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Preface 



This collection presents the cream of the diverse crop of articles which 
appeared in the pages of 99*er Home Computer Magazine during its first 
year. Beginning with Volume 1, Number 1, we have combed through each 
issue of the magazine, carefully reviewing each article and selecting only 
those that have withstood the test of time. This is a rigorous test in the home 
computer world where rapid changes in the technology can render the best 
efforts immediately obsolete or irrelevant. What we have chosen to include 
here are the classics — articles that present fundamental programming con- 
cepts, step-by-step tutorials, favorite games— with careful revisions, addi- 
tions and updates when necessary. In addition, this volume contains some 
new, never-before-pubhshed material essential to the library of any well- 
informed TI Home Computer user. 

The book is, we feel, an important one for the serious Texas Instruments 
Home Computer user to own. It is now, and will likely remain, the largest 
collection of information for users of these Texas Instruments machines. 
One quick look through its contents will assure you that this is no coffee 
table book for the dilettante. It is, rather, a console table book — a well 
organized, cross-referenced handbook, idea book, and comprehensive 
resource for the dedicated TI Home Computer user. Of course, the dedicated 
user is not necessarily the experienced one. Keeping this in mind, we have 
tried to balance the content of the book, as we balance each issue of the 
magazine — providing material for both the novice and savvy user. An Ap- 
pendix (p. 355) offers help to those who may have problems keying in the 
program listings, and we have included several articles that offer the most 
basic and necessary information (such as how to store programs on cassette) 
for the neophyte. Best of 99'er is a book that grows in sophistication with 
the reader, providing stimulating and informative reading for the beginner 
as well as the experienced programmer. 



Although many of these articles will be familiar to longtime 99'er Home 
Computer Magazine readers, Best of 99'er is much more than just a stroll 
down memory lane. The articles and programs have been completely revis- 
ed. The chapters have been organized for easy access to areas of particular 
interest: computer-assisted education, programming languages, gaming, 
utilities, and business applications. The Ustings have been typeset for max- 
imum clarity and a minimum of key-in errors. The bugs and ambiguities 
which may have crept in when the articles were first published have been 
hunted down and eradicated. 

An undertaking of this scope has involved many people. I would like 
to directly acknowledge our debt of gratitude to the following authors who 
contributed the original articles and art work: 

W. K. Balthrop, F. T. Berkey, Ron Binkowski, David G. Brader, Fernando Caracena, 
Dean Cleveland, J. Crawford Cook II, Norma and John Clulow, Greg Davis, Borden D. 
Dent, Howard G. Drake, J. R. Dew, James Dugan, Fred Ellis, Fred Forster, Henry Gorman 
Jr., John Gunter, S. T. HoU, Samuel Jenkins, Al Kanada, Paul Karis, Roger Kirchner, 
Jerry Kirsling, Ira McComic, G. R. Michaels, Mark Moseley, James H. Muller, Samuel 
Pincus, Corby Poticha, Martin Rayala, Lawrence Riley, George Struble, Flavian Stellerine, 
Malladi V. Subbaiah, Patricia Swift, Harley M. Templeton, Dennis Thurlow, Daniel H. 
Watt, Cheryl Whitelaw, and Jerry Wolfe. 

rd also Uke to thank June Gaber, Julienne Laabs, and Kathy Garcia 
who typeset the book; Hayder Amir, Laredo, Larry Fisk, Barbara Mickelson, 
and Norman Winney, Jr. for the art design, and production work; Peter 
Bloch, William Balthrop, and Roger Wood for their technical editing and 
program verification; Joan Killough-Miller, Erin O'Connor, Judy Sanoian, 
and Greg Roberts for their editorial assistance; and to Julie Kawabata for 
the indexing. 

Finally, my personal appreciation goes to Robert Ackerman who super- 
vised, coordinated, edited and revised the contents of Best of 99'ery and 
to both Sharyn Lyon and David Brader who were instrumental in wrapping 
up loose ends and getting the book out the door. 



Gary M. Kaplan 
Editor-in-Chief 
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starting Out 

Taking the first steps on an exciting adventure! 
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In this article I will offer some suggestions to help those 
of you shopping for your first personal computer. I will 
not directly compare brand names, nor will I attempt 
a technical critique of the TI-99/4A home computer— but 
I will point out some of the TI machine's exceptional 
features. 

What follows is a general discussion of computer shop- 
ping techniques written by and for the computer novice who 
is experiencing the bewilderment of trying to make a wise 
purchase in a market exploding with products. I offer these 
suggestions from the perspective of a writer who is not a 
computer professional. I have ov/ned a TI-99/4 for a year 
and a half and also recently bought a competitive brand 
computer. In addition, I plan to purchase a third brand dur- 
ing 1982. Therefore, I am not dedicated to a single brand 
of computer although I am impressed with the 99/4A 
capabilities. All of my comments apply equally to the 99/4 
and the new 99/4A unless otherwise noted. 

My computers are used to develop computer-assisted in- 
struction (CAI) for applications in the field of rehabilita- 
tion. The following suggestions result from the actual ex- 
periences of a beginner faced with the task of learning about 
computers — one who has spend literally hundreds of hours 
poring over manuals and magazines, and peering into a 
monitor screen. 

Because my background is in psychology and counseling 
I can't resist beginning with some general, facilitative 
remarks. First of all, no matter which computer you event- 
ually buy, you will later regret your choice at times. No one 
computer will have all the features you want; you'll have 
to compromise on some features— just remember that the 
grass always looks greener. . . so be aware that your buyer's 
anxiety may not totally disappear the instant you take 
possession of your new computer. 

Secondly, regardless of how impressed you are with your 
new computer's gee-whiz features, you will quickly adjust 
your expectations upward. Whatever you buy now you wiQ 
probably soon want to expand, with either more hardware 
(machinery/gadgets) or more software (programs). 

Thirdly, start now! Don't wait for computers to come 
down to $9.98— they probably never will. The manufac- 



to Buy A Computer 



. . be assured that you are embarking on an ex- 
citing adventure . . . and realize that ownership is 
not only exciting but helpful and productive too." 



turers will just keep on making them more sophisticated for 
about the same money. 

And last of all, don't expect your friends, spouse, etc., 
to be as thrilled as you are about your computer. It is up 
to you to educate them. 

Who Buys A Personal Computer 

Rumor has it that someone once tried to profile the 
"typical" personal computer buyer for more effective 
marketing strategies. The survey data showed one shared 
factor: The majority of buyers wanted to become rich by 
writing and marketing a very successful program. In other 
respects, they are all different, and are using their computers 
for myriads of different purposes. So you're not alone when 
you go out to buy a computer— you may even find yourself 
in one of the following categories: 

Type 1— The electronics amateur who is intrigued by all the 
technology. Fiddling with the equipment is enough reason 
for him to buy. We should be grateful to him: When he 
began buying kits and tinkering around with them a few 
years ago, he started the home computer craze. 

Type 2 — The aware parents who want the family to be up 
on "the latest." The family can play games and learn about 
computing as well as do the budget, and so on. The average 
family will want a computer that is flexible, versatile, inex- 
pensive and "friendly" (easy to use). It should be expan- 
dable so that it can grow as the family's needs grow. This 
market has yet to peak. 

Type 3 — The small business owner or professional person 
who wants to automate the office. He will agonize over how 
much computer to buy. If it's not enough, it could well 
become merely a toy for his kids, but why buy a $10,000 
system if a $3,500 package will do the job? This system will 
probably need both large amounts of data storage capacity 
and word processing capabilities. 

Type 4— The educator interested in computer-assisted in- 
struction (CAI). He or she will need a computer capable 
of displaying eye-catching color graphics and animations 
along with text, speech and sound. 

Type 5 — The scientist or engineer who will use the machine 
at work or home because it is easier than standing in line 
to get on the company's big main frame computer. Even 
companies that own big "braniac" computers are buying 
micros to spread around to key people. 

The list could go on and on, but I hope I have made my 
point that the "typical" microcomputer buyer is anything 
but typical. We all have one thing in common, however. 
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We have all been bitten by the computer bug and the only 
known cure is to take the plunge and get our very own 
microcomputer! 

Types of Sellers 

If you as a buyer are feeling overwhelmed by all the com- 
puter choices, pity the typical salesperson. He may be more 
at home with stereos and televisions, and entirely new to 
computers. Or he may be a programmer or technician en- 
tirely new to selling. Odds are that you'll meet the former 
more often at your local computer outlet; just as buyers exist 
at every level of sophistication, so do sellers. More impor- 
tant than knowledge of computer technology, though, is the 
willingness of the computer salesperson to help you learn. 
After all, we're all new to personal computing. 

If you haven't already, you will shortly encounter at least 
one of the following salespeople: 




Type 1— The sincere young man or woman who produces 
a nervous smile and confesses, "I only started in this depart- 
ment yesterday; let me see, where is the power switch on 
this little beauty. . ." Don't leave too soon, though. If 
you've the time and patience, you and the trainee can learn 
a lot about the computer in an hour. 

Type 2— The equally sincere salesperson who introduces 
himself and says, "What can I show you. . .we have a 48K 
whiz-banger with a double DOS and CP/M on special. . ." 
This individual will joyously prattle on until your glazed 
eyeballs communicate either lack of interest or comprehen- 
sion. (They are equivalent in the clerk's opinion.) You can 
then leave the store with a handful of pamphlets and a heart 
full of doubt — and possibly a car full of computer. 

Type 3 — The merchandising expert who moves computers 
the same way he used to move TV sets, stereos, etc. This 
type cannot refrain from knocking the competition by say- 
ing things like, "Brand X is almost out of business, that's 
why we don't handle 'em. . .what'd ya' say you do for 
work. . .1 sell a number of Crunchy lOO's to people in your 
field." This individual may be able to tell you a lot about 
his computer since he will be shrewd enough to read up on 
all the features of his machine; you may actually learn 
something if you have the confidence and patience to en- 
dure a barrage of irrelevancies. 



Type A — The skilled and sensitive sales professional who has 
developed a good knowledge of computing, or vice versa, 
the computer professional who has developed basic com- 
petence as a salesperson. This person will ask you right off 
what you want to do with your computer and help you with 
the answer if you aren't sure. You will appreciate this in- 
dividual's patience and willingness to find out information 
for you. He or she will consult with a superior or even call 
the manufacturer without fear of appearing ignorant. When 
you meet people like this, respect their time and effort and 
show your appreciation. We don't want them to get 
discouraged and switch jobs. There will be little danger of 
this, however, since they will probably be making a lot of 
sales with many happy customers! 



How To Shop 

Be careful not to equate the amount of advertising you 
see for a computer with its technical sophistication or 
suitability for your needs. Take the time to go beyond mere 
advertising when you shop. Talk to computer owners, or 
visit a local computer club. But remember to expect some 
very prejudiced views, because people always try to con- 
vince themselves that their choices are best. Be cautious, too, 
of magazine reviews of various computers. Articles with ex- 
tensive charts and diagrams may look impressive, but they 
are sometimes simply wrong. I have read articles which 
declared that the TI machine had no high-resolution color 
graphics or memory expansion capabilities. Well, TI has one 
of the best high-resolution color graphics capabilities on the 
market and can be expanded to a 48K system. I have notic- 
ed similar errors on other brands as well. 

So visit several stores, read a few computer magazines, 
like Home Computer Magazine, and get your confidence 
up so the salesperson won't intimidate you. I am impressed 
with the TI-99/4A as I grow more familiar with it, but very 
little of this knowledge came from advertising or from 
salespeople: It came from use of the machine. 

You may also need to know a little computer jargon, 
although the better salespeople will avoid trying to impress 
you with their vocabulary. If you don't already have one, 
pick up a glossary of terms while you are out for your first 
visit to the computer store. For starters, you should study 
the accompanying glossary for an understanding of its 
terms: With just a few of these terms tucked away in your 
memory banks, you can walk into the computer store with 
more confidence and less quiver in your voice when you ask 
to see the "Brainiac 3000" computer. 

Ask to see a demonstration of each computer you think 
you can afford. But be aware that many demonstration pro- 
grams you see are written in a program language other than 
BASIC— i.e., the language available to the user on most 
small computers. Consequently, the demo may be super im- 
pressive with lots of color graphics, animation, and sound, 
but find out if you can duplicate these effects readily with 
the BASIC programming language available to you. If you 
are interested in having good color graphics in your pro- 
grams, ask the salesperson to enter some simple statements 
in BASIC to illustrate the computer's ability to perform the 
following: 

A. Clear the screen. 

B. Change the screen color. 
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C. Plot the color shapes on the screen. Try to place a 
"duck" or a "car" on the screen. Find out if the user 
can create his own shapes or is he limited to pre-defined 
shapes stored in the computer's memory. 

D. Place a graphic shape and text on the same screen. 
Some computers can do one or the other without 
elaborate and difficult programming. 

Happily, the 99/4A does all of the above with ease. You 
can program in 16 colors with simple, easy-to-use BASIC 
statements. If graphics are important to you, check out the 
TI Extended BASIC graphics capabilities. They are sensa- 
tional and compete with computers costing as much as a 
thousand dollars more. If you want sound capabilities in 
your program, ask for a demo of the following: 

A. Play a three note chord. 

B. Play a simple scale. 

C. Demonstrate the highest and lowest frequency 
programmable. 

D. Demonstrate the loudest and softest volume of sound 
possible. 

E. Create sound effects like a "choo-choo" or an 
"explosion." 

Speech synthesis adds an exciting dimension to computing, 
especially in educational programs. Texas Instruments makes 
it easy to integrate speech into BASIC progams with its speech 
synthesizer and Speech Editor Command Cartridge or the 
Terminal Emulator II Command Cartridge. The TE-II will 
synthesize any English word typed into the computer; the 
Speech Editor will allow you to choose from a vocabulary 
of over 300 words. By all means get a demonstration of speech 
synthesis if you are interested in computer-assisted 
instruction — it is well worth the added cost. 

The Editor 

Regardless of the type of use you plan for your computer, 
you will definitely need a good editor. However, if you can 
think and type without errors, you can skip this section and 
not worry about editing. 

Good, you are honest! I found out the importance of an 
editor the hard way. Not one salesperson mentioned this 
feature in any of my shopping except to say that I could 
correct errors. From this treatment of the subject, you might 
conclude that all editors are alike. The galaxy of differences 
between computer brands and their editing capabilities can 
make them either a joy or a pain to use. 

So, what is an editor? Somewhere buried in all that 
fabulous circuitry is a component which interprets all of the 
instructions you type in. It turns your instructions- 
words — into the ones and zeros that the computer 
understands. It interprets the program for the computer. 
It will also edit or change, program statements after they 
have been entered into the computer. When you are writing 
and debugging (removing errors from) programs, you are 
bound to make typing errors. Typing the whole line over 
would correct these, but it is very time consuming and ir- 
ritating, especially when there may only be one or two 
mistakes in 25-50 characters! If you could only correct the 
mistakes without disturbing the rest of the line. 

You can: A good editor will permit you to modify a line 
of a program by inserting or deleting characters or words 
with a single keystroke, while displaying the changes on the 
monitor screen exactly as made in the program. A poor 



editor will require multiple keystrokes, and won't display 
the corrections as they are made. It will make you pound 
many keys and ultimately resort to retyping. The TI editor 
is far superior to my Number 2 computer's editor, and is 
equivalent to a good word processor in its correction 
capabilities. (I am writing this article on my 99/4 using a 
simple word processing program I wrote myself. It uses all 
the editing features resident in the computer and works very 
well for editing text.) 

I cannot overemphasize the importance of the editor, and 
strongly recommend that you evaluate it carefully before 
you buy. Sit down at the keyboard and have the salesper- 
son walk you through some editing. Don't let the clerk do 
it because he may pick simple tasks to make it look easy. 

For instance, you might enter this program line; 

100 PRINT "NOW IS THE TIME FOR ALL GOOD 
MEN TO COME TO THE AID OF THERE 
COUNTRY." 

(If you are new to programming, let me point out that this 
BASIC statement will cause the words inside the quotes to 
be displayed on the monitor if you RUN the program.) 

Notice that the word THERE is mispelled; so correct the 
spelling without retyping the entire line, then insert the word 
BEST before the TIME. If you can't accomplish this by 
the store's closing time, ask the salesperson to do it; if he 
can't do it with ease, give serious thought to buying another 
brand of computer. 

While you are at this, ask the salesperson to demonstrate 
resequencing for you. Resequencing is a simple but valuable 
(and frequently unavailable) feature which permits you to 
renumber your program line numbers in order to insert ad- 
ditional lines into an existing program if necessary. For ex- 
ample, you might type in this simple BASIC program: 

10 PRINT "HELLO" 

II PRINT "WHAT IS YOUR NAME?" 

12 INPUT N$ 

13 PRINT "THANK YOU ";N$ 

14 END 

Notice that you don't have any room between lines for 
additional lines. If you later decide to change the program, 
you either have to type the program over or resequence the 
line numbers to provide space. Normally, you don't inten- 
tionally get yourself into comers where it is necessary to rese- 
quence your programs, but it does frequently happen 
(courtesy of Murphy's Law). On the TI machine, resequen- 
cing is easily accomplished by typing RES and pressing the 
ENTER key. Presto! The program looks like this. 

100 PRINT "HELLO" 

110 PRINT "WHAT IS YOUR NAME?" 

120 INPUT N$ 

130 PRINT "THANK YOU ";N$ 
140 END 

Now you can add additional lines between the original 
ones. Many computers do not have the resequencing func- 
tion built in so you have to load in a separate program from 
a disk or tape. This function is important enough that it 
should be built into the machine as it is in the TI-99/4A. 

General Considerations 

Regardless of the sophistication of the system, you should 
expect certain fundamental "creature comforts." First, it 
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is mandatory that the screen be clear and easy on the eyes. 
You may not fully appreciate this during a brief demonstra- 
tion in the store, but spend an hour or two peering at the 
screen in your basement, and you'll know what I mean. 
Your 19-inch TV at home may not display characters as 
sharply as the store's 9-inch monitor. On a big screen, the 
characters may appear more ragged because the dots com- 
posing the characters are larger and more spread out. In- 
stead of white characters on a black background or vice ver- 
sa, the TI has exceptionally sharp black characters formed 
by an 8 x 8 dot matrix with a pale blue background. It's 
also possible to change the characters and background to 
any of 16 colors. 

My only criticism of the TI display capabilities is that with 
TI BASIC it is limited to a line of 28 characters for text 
or 32 for graphics. [With TI's Editor/Assembler or TI- 
Writer Conunand Cartridge, you have a 40 character "win- 
dow" which automatically scrolls horizontally across an 
80-column "page." The Video Display Processor chip in- 
side the computer actually has a 4()-column "text mode," 
and the software produces the doubling effect. — Ed.] Some 
computers display fewer, but many display lines up to 80 
characters or more. My Number 2 computer displays 40, 
but I see little practicsd difference between it and the TI 
machines. However, the 80-character display and lower-case 
characters are desirable if you plan to do extensive word 
processing (letters, reports, etc.). The TI-99/4A has a type 
of lower-case which is actually compressed upper-case; it 
works very well. You can do word processing with a 28 
character format, but you won't be able to see the text on 
the screen exactly as it will appear on the printed page; with 
an 80 column format, however, you will. Your printer 
should have the capability of printing both upper- and lower- 
case characters with the proper program, so that you need 
not worry about having lower-case resident in your 
computer. 

Another "creature comfort" to consider is the computer 
keyboard. The original TI-99/4 was criticised for having a 
keyboard smaller than a conventional typewriter. Actually 
it is very easy to use and one can touch-type on it very effi- 
ciently. But TI modified the keyboard on the TI-99/4A so 
it is more like a standard typewriter and added some func- 
tion keys and a repeat key function to improve the com- 
puter's flexibility. 

If you select a disk system for program and data storage 
rather than a cassette tape system, you will have the advan- 
tages of speed and convenience but you will sacrifice 
something, too. In addition to the higher cost of the disk 
system (maybe 10 times the cost of a tape recorder), you 
will also lose some of your program space (random access 
memory, known as RAM) inside the computer. Some 
systems will have a 2K overhead (2000 bytes) while others 
may require lOK or more. It is desirable to have a low 
overhead so that your valuable program memory space will 
be available for programs. The 99/4A disk system digests 
about 2K of your RAM leaving a nominal 14k for programs 
(on the standard 16K system). To put this into perspective, 
one page of typed, double-spaced material with liberal 
margins is equivalent to about 2K of information. If you 
buy a 16K computer which has a lOK overhead for the disk 
system, you would only have about 6K of program space 
after you turn on the disk system. And one of the very 
popular computer brands actually has a lOK overhead! So 



when you look at one in a store the salesperson will pro- 
bably insist that you get (and pay for) at least 32K of RAM. 
Moral: 16K memory in computer "A" does not necessari- 
ly equal 16K memory in computer "B." Texas Instruments 
gives you a lot of memory for the money. 

How much memory will you need in your computer? For 
most home use, a 16K computer is generally considered a 
satisfactory start. For business and educational applications 
you will probably need more memory— 48K is satisfactory 
in most cases. That covers your program requirements in- 
side the computer. For permanent storage of large amounts 
of data such as student grade records and inventory reports, 
you will use disk or tape. Such storage is relatively cheap. 
A diskette (called a "floppy disk" because it is flexible 
plastic) can store 90K or more of information on a 5 !4inch 
surface costing a mere four or five dollars. You can store 
the equivalent of about 50 typed pages on one such disk. 
Cassette tape is okay for home use and for back-up copies 
of your disk data, but is generally too slow for serious 
business or educational applications. 

Service 

Check out the service policy on your computer before you 
buy. Some manufacturers will exchange defective com- 
ponents, and others want to repair and return the original 
unit. If downtime is critical to you, choose the system which 
can be replaced in the shortest time. My 99/4 developed in- 
termittent problems after more than a year of very heavy 
use, and TI exchanged it for a factory rebuilt unit for only 
$45.00 with same day service and no questions asked. If 
trouble develops during warranty, the exchange charge is 
minimal. When I thought I had a defective disk system dur- 
ing the third month of ownership, the service center would 
have exchanged the entire disk system for about $3.50, but 
as it turned out, I had a bad diskette instead. 

Where to Buy 

Deciding where to buy your computer can be difficult. 
Should you buy from a local computer store, a department 
store, or perhaps from a mail-order outlet? You can get 
some terrific bargains from a mail-order firm. You'll see 
dozens of ads in any computer magazine and nearly all will 
accept credit cards, making it very easy to buy. I saved nearly 
40% on my TI machine buying it from a firm in another 
city across the state; my Number 2 computer cost almost 
$500 less from out-of-state company than from the local 
store. The argument for buying from a local dealer and pay- 
ing more is that you can count on better personal service 
if your machine goes on the blink. This may or may not 
be true depending on your dealer's integrity and quality of 
service. You could buy locally and still have problems with 
service. In my opinion, the overhead of the local computer 
store justifies the higher prices. If you can afford it and 
desire peace of mind, buy locally. 

In the case of TI computers, you can exchange the defec- 
tive unit for a factory rebuilt unit at one of the exchange 
centers. It won't matter where you originally purchased the 
unit. You can check with your local dealer to see if a ser- 
vice center is near you. 

Another point to consider is that we really should not 
abuse the local computer store owner's time by letting him 
educate us if we have no intention of buying locally. It is 
fair to expect him to compete with other dealers for our 
dollar by demonstrating his wares and services, but unfair 
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to sit through an hour or two of free demonstrations if we've 
already decided to buy through the mail. After all, we want 
the computer store to succeed, since it will advance personal 
computing in general. 

Miscellaneous Points 

Ask the salesperson if the computer you select can per- 
form the graphics, sound, and text functions you desire just 
as it comes out of the box, or must you buy additional at- 
tachments or plug-in devices. You may find the demonstra- 
tion you witnessed on a "loaded" floor model cannot be 
performed on a basic unit without adding several hundred 
dollars of additional equipment. On the other hand, you 
may find that most of the desirable features are built right 
into the basic computer. 



It is also essential to have clear, concise, easily understood 
manuals which explain how to use your computer. You 
should not have to have any knowledge about computers 
to understand the basic introductory and tutorial manuals 
for your computer. 

If you have not yet bought that first computer, be assured 
that you are embarking on an exciting adventure. The ex- 
citement and pride you'll experience when opening the box 
on the first day is like a dozen Christmas celebrations com- 
bined. Enjoy the experience, and realize that ownership is 
not only exciting but helpful and productive too. 

In the meantime read all you can and shop carefully un- 
til you just can't stand it any longer. . .then take the plunge. 
Go out and get that computer! 



Glossary of Terms 



BASIC — Beginners All Purpose Symbolic Instruction Code is a pro- 
gram language developed at Dartmouth in the early 60's; it is the most 
common of all programming languages for small computers. BASIC 
is relatively easy to learn and is an effective and powerful language for 
most small computer applications. 

bit — The smallest piece of information your computer deals with. It 
is equivalent to a circuit being turned either on or off. Like a light bulb, 
a computer logic circuit is either on or off; this equals one bit of infor- 
mation. Most home computers use an 8-bit microprocessor, but Texas 
Instruments and IBM have a 16-bii microprocessor. The advantages 
of the 16-bit configuration are too technical for this discussion, but 
we can generally say that more powerful and accurate computing can 
be accomplished. It has been predicted that the 16-bit microprocessor 
will be the future industry standard. 

byte — The amount of memory necessary to code a character (a 
number/letier/punctuation, etc.) A byte has 8 bits in it. A computer 
which has I6K bytes of memory has 16 thousand bytes and can work 
with about 16 thousand characters of information in a single program. 

chip — The circuits of the computer are fabricated on silicon chips. A 
chip is typically about 1/4 inch on a side. Today's chips are so 
sophisticated that the basic components of an entire computer can be 
fabricated on a single chip. 

CRT (monitor)— The TV-like screen (cathode ray tube) to which the 
computer outputs information like numbers/letters/graphs, etc.) 

disk drive — The accessory which stores and retrieves information on 
plastic (mylar) diskettes. The DOS (see below) controls the operation 
of the disk drive. 

disk operating system — Sometimes called DOS and sometimes pro- 
nounced like "DOSS." It is the set of instuctions (software) which con- 
trols the storing and retrieving of information with the disk drive. 

diskette — A plastic disk coated with an oxide upon which data and pro- 
grams are stored using the disk drive under control of the DOS. Diskettes 
come in either of two sizes, 5 1/4 inch or 8 inch. The TI-99/4A uses 
the 5 1/4 inch. 

firmware — Generally speaking, firmware is a chip in which a program 
has been stored permanently. It is "soft" in that it is a program (see 
software) but "hard" to the extent that it is an electronic chip rather 
than a diskette or tape. Hence it is "firmware." Firmware is used to 
store programs which are used repeatedly, and need not be changed 
or modified, (see ROM) 

hardware — The actual physical machine, i.e., keyboard. CRT, primer, 
etc. 

integrated circuit (IC) — If you look into the back of an old radio, you 
will see a lot of resistors, capacitors, and the like. Each component will 
be discrete — i.e., separate from other resistors, etc. which surround it. 
Integrated circuits, on the other hand, have many such individual com- 
ponents packed together or integrated in a small area. (See chip.) If 
you peer into a computer, you will see rows of little black boxes plugg- 
ed into circuit boards. Each little black rectangle may have thousands 
of components integrated into it. 



input/output (I/O)— Input is the data that goes into the computer via 
the keyboard as well as disk drives, tape recorders, etc. Output is what 
comes back out of the computer to the monitor screen, disk drive, tape 
recorder, and printer. (Throughput is what happens in between). 

microcomputer — All computers used to be very large and esoteric and 
were called "mainframes." But miniaturization with integrated circuits 
has resulted in very powerful computers of small size coming into be- 
ing. That is, you could pack a lot of computer into a very small box. 
These computers were initially called "minicomputers." But as the 
reduction in size continued, small desktop-size computers were produced 
with sufficient computing capacity to still be very useful. These are called 
"microcomputers." The difference in power between the mini and the 
micro is diminishing rapidly, so that it will soon be difficult to tell a 
mini from a micro. For now, all home computers are considered 
microcomputers. 

modem — A device that connects your computer to the telephone so you 
can communicate with other computers. It works by Modulating and 
DEModulating a sound tone. 

peripherals — All those hsurdware devices which plug into your computer 
such as disk drives, tape recorders, printers, and modems. 

printer — A peripheral device which will print a copy (called hardcopy) 
of your computer's output. Very handy to have for Qorrespondence and 
for program debugging. 

program — The set of coded instructions which directs the activities of 
your computer. Without a program, your computer is just so much 
metal and silicon junk. (See software and BASIC.) 

RAM — Traditionally, the abbreviation for random access memory. But 
the name is a little misleading. Both RAM and ROM memory are ran- 
dom access. More accurately, RAM should be described as read and 
write memory (contrast with ROM). RAM is the memory you are us- 
ing when you program a computer. It is also the memory to which your 
computer salesperson is referring when he says, "This one has 16K 
memory." The more RAM you have, the bigger programs you can run. 
When you turn your computer off, all the contents of RAM is erased. 
So if you wish to avoid having to type in hundreds of program lines 
everytime you use your computer, you must save programs on tape or 
disk for future use. 

ROM — This is read only memory. That's right, you cannot "write" 
anything to a ROM; you can only "read" it. This means that you can- 
not change the contents of a ROM memory like you can a RAM 
memory. ROM contents are usually not changed; therefore they are 
used for firmware. 

RS-232C— A common interface specification used to define the link 
between the computer and some other device like a modem or a printer. 

software — It is not the physical machine (hardware) and usually not 
the permanent programs stored on chips (Firmware) that instructs the 
computer on how to perform a task. It is the program stored on disk 
or tape. You can see that a tape or plastic disk is not as much a part 
of the computer as a chip (not as "firm"); therefore the programs stored 
on tape or disk are called "software." 
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Congratulations, you're the new owner of a TI-99/4A 
Home Computer!! Now what? You have it all un- 
packed and need to know what to do with it, right? 
Fortunately, you have The Best of 99'er, and we'll give you 
a few ideas to start you on your way. 

Of course you can plug in a variety of Command Car- 
tridges that can teach you exercise, challenge you to a chess 
game, help with your finances, or do a multitude of other 
things. But the real fun and challenge is making that machine 
do what you want it to do. 

When I got my computer, many of my friends asked, 
"Well, what can it do?" And the next questions were: "Can 
you balance your checkbook with it?" "Can you file names 
and addresses?" "Can" you keep track of other things such 
as household inventories?" "Can you do your income 
taxes?" 

The TI-99/4A is so versatile that you can do all of these 
home applications plus a myriad of business and profes- 
sional applications. You'll soon be "hooked" on your com- 
puter and be one of those computer nuts who stay up all 
night saying, "I'll just make one more change in this pro- 
gram, and then . . . ." 

Let me just give you a few ideas for programming and 
then you'll be on your own. 

Most households own a calculator. Now, with a calculator 
you just punch in numbers and symbols and get an answer. 
Your computer can manipulate numbers too, but it can also 
interact with you, using words. And it can do the same pro- 
cess over and over again. You can also save your program 
and the data and use it again a month or a year later. You'll 
soon find your computer is a valuable household addition. 

To make an interactive program you'll need to use 
PRINT or DISPLAY and INPUT. PRINT and DISPLAY 
do the same thing on the screen in Tl BASIC. You pro- 
bably have discovered how to PRINT messages, so let me 
just give you one hint here. A colon in a PRINT (or 
DISPLAY) statement means, "Go to the next line." The 
screen will be much easier to read if you have a few spaces 
here and there rather than all the printing jammed up. You 
may use more than one colon in the statement to get more 
blank lines. Here's an example: 

100 CALL CLEAR 

110 PRINT "THIS IS A SAMPLE." 

120 PRINT : "HELLO" : "HOW ARE YOU?" :::: 

130 PRINT "START SPACING HERE." 



140 PRINT : "I SKIPPED ONE LINE." 
150 PRINT :: "I SKIPPED TWO LINES." 

I usually start a program by clearing the screen. Line 1 10 
prints a message. You'll notice the line actually prints then 
moves up one line. The first colon in Line 120 says, "Go 
to the next line," then print HELLO. Another colon— so 
HOW ARE YOU? starts on the next line, then you "go 
to the next line" four times. The number of blank lines is 
the number of colons at the end of the line, minus one. If 
the colons are at the beginning of a statement, the number 
of lines is equal to the number of colons. Don't get 
confused— just RUN this program and experiment a little 
to learn how to use the spacing effectively. 

INPUT is how you enter something from the keyboard 
while the program is running. You may PRINT a message 
and then INPUT like this: 

100 PRINT "WHAT IS YOUR NAME?" 
110 INPUT NAMES 

Remember, string variables need $ at the end of the variable 
name; numbers do not. This program will print the message, 
then print a question mark on the next line, blink the cur- 
sor and wait for the user to enter something. 
INPUT also allows a prompting message: 

100 INPUT "WHAT IS YOUR NAME?":NAME$ 

This time the cursor will blink in the space immediately 
following the prompt message and print your response there 
as you key it in. 

When programming responses, you generally use INPUT. 
However, on a one-stroke answer I like to use CALL KEY. 
The user will just have to press one key (won't have to press 
ENTER), and you can block out unacceptable answers. For 
example, suppose you need a yes or no answer. 

400 PRINT "ANSWER Y OR N" 
410 CALL KEY(0,KEY,STATUS) 
420 IF KEY = 78 THEN 500 
430 If KEY< >89 THEN 410 
440 Continue here for "Yes" answer 



500 Continue here for "No" answer 

Only Y and N are accepted; any other key pressed is ig- 
nored. Another example is: 
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400 PRINT "CHOOSE 1, 2, 3, OR 4" 

410 CALL KEY (0,K.S) 

420 IF K<49 THEN 410 

430 IF K>52 THEN 410 

440 ON K- 48 GOTO 1000,2000,3000,4000 

Only 1, 2, 3, or 4 will be accepted, then the program will 
branch to the appropriate section. Remember that the K 
value in the CALL KEY statement is the ASCII code 
number of the character pressed. 

Now you are armed with some basics of interactive pro- 
gramming. Let's try some specifics and answer those ques- 
tions above. 

Checkbook Balancing 

Ah-ha! That's already in your TI-99/4A User's Reference 
Guide, page III-22. Just key that program in and add your 
own embellishments to make it your program. I like to take 
advantage of TI's color and sound to enhance a program, 
so let's add a little color at the beginning. Add: 

115 GOSUB 500 

This means go down to Line 500 and do some stuff then 
come back. Now add Lines 500 to 660. A complete modified 
listing follows. Try it. Then adapt it to what you want. 



100 
110 
115 

120 

130 
140 
150 
160 
170 

180 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
320 
330 
340 
350 
360 
370 
380 
390 
400 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 



REM 
CALL 
GOSUB 
NPOT 



DI 
INPUT 
F 



I NPUT 
CTOTAL 



GOTO 



DI 



GOTO 
NBAL 



DI 



SPLAY 
SPLAY 
SPLAY 
SPLAY 
SPLAY 



SPLAY 



SPLAY 
SPLAY 
SPLAY 
SPLAY 
SPLAY 



END 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



CNUM 



I 
I 

DTlOTlAL 



RETURN 



SPLAY 
NPUT 
DAMT 



SPLAY 
NPUT 



SPLAY 



CHECKBIOlOK 
CLEAR 
500 



200 



BANK 



CHECK 



CHECK lAMOUNT 
CTOTAL+CAMT 



DEPOS 



CHAR 

CHAR 

CHAR 

COLOR 

HCHAR 

VCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 



ENTER 
DEPOS 

ENTER 
IWHEN 



320 

BALANCE 



ENTER 
ClHECK 

ENTER 
CHECK 



THEN 



NEW 



CHECKBOOK 
CORRECT 



BlALlANCE 
EACH 



THEN 



DTOTAL+DAMT 



NUlMBER 
250 



13 
6 
6 
7 

12 
16 
7 
7 

18 

7 

7 



16 



BALANCE 



NUMBER 



ZERO 
NUlMBER 



EACH 



AMOUNT 



ZERO 



ION 



O0O0FF 



SHED 



AMOUNT? 
360 



96 



97 



CNUM] 
CAMT 

OUTSTANDI 



BlALlANCE 

BALANCE 



BALANCE 
lOUTSTAND 



AND 

FOR 
MHEN 



AMOUNT 



DAMT 



CTlOTALH-DTlOTAL 

NBAL 



8618433402CC61 



NG 

lAlMjOlUNT 

tIhe 

FINISHE 



NBAL 



NG 



CBAL 
CBAL 



As the program is written in the manual, there may be 
a few problems. There is no DIMension statement, so if you 
have more than ten outstanding checks or deposits you will 
get an error. Because there is really no need to even worry 
about subscripts, delete (N) in Lines 200, 210, 220, and 230 
and (M) in Lines 320, 330, and 340. You may then also 
delete Line 190 and change Line 240 to GOTO 200; and 
delete Line 310 and change Line 350 to GOTO 320. 

Remember what I said above about spaces, and insert 
a colon before the first quote mark on Lines 130, 250, and 
370 to make the screen easier to read. You may wish to add 
SOUND and red lines if the balance or correction is negative. 
Try your own ideas. 

Name and Address File 

Another easy solution — find Issue 2 of 99'er Magazine 
and use the Electronic Home Secretary program. [Reprinted 
in this volume.— Ed.] What? You haven't keyed it in yet?? 
I thought everyone grabbed his issue of 99'er and immediate- 
ly keyed in all the programs! ! 

You can probably use this program as is, or adapt it to 
your needs to make your address file, phone list, Christmas 
list, or even a wedding invitation list. You can add a printer 
to print address labels if you want. 

Recipe Conversions 

How about recipes? Some people cook with a dab of this, 
a glug of that, enough flour until it looks right, and cook 
it until it's done. But a computer is more precise and will 
give you exact amounts. Try this program to convert a 
recipe. 



100 
110 
120 
130 
1 40 
150 

160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 



REM 
CALL 



DIM 



NPUT 

A MIT 
NPUT 
NPUT 



FOR 



PR 



PR 



PR 
FOR 



END 



I +1 



GOTO 
CALL 



NEXT 



CALL 



PR 
NEXT 
PR 



CALL 



AlMiT 
NT 
NT 
NT 

NT 
NT 



NT 



NPUT 



INT 
I 



NT 



RECI 



CLEAR 



K = 
K<>78 



THEN 

ENTER 
AlMOUNT 



MEASURE 



KEY 
89 



ENTER 



THEN 



INGREDI 



180 

CLEAR 



AMT 



OR 
CLEAR 



20 



USE 



PE 



MULT 



T 
TIO 
AMT 



THEN 
THEN 



, MS 



CONVERT 



CONVERS 



NUMERI 



DEC 



ENTER 



ENTER 



IMES 



THEN 
ENT 



DECI MAL 



1 



PLY 



S 

290 



20 



I MAL 



MS 



370 



TO 
AlMT 



OR 



MEASURE 



MS 



AGA 



250 



BY 



I GI 



I ON 



NGS 



CAL 
I 



NGRED 



FRACT 
NAL 



END 



I 

INIGS 



WHAT 



AMOUNT 



FRACT 



20 



I 

ENT 
REC 



INGS 



liON? 
REC 



NGS 



I ION 
TSPP 



PE 



NUMBER 
F 



PE 



Let's show an example of this program. Key it in then 
RUN. Remember you need to use decimal fractions. 

AMOUNT: 2 
MEASURE: CUPS 
INGREDIENT: SHORTENING 
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AMOUNT: 2 
MEASURE: CUPS 
INGREDIENT: SHORTENING 

AMOUNT: 2 
MEASURE: CUPS 
INGREDIENT: SUGAR 

AMOUNT: 2 

MEASURE: Gust press ENTER) 
INGREDIENT: EGGS 

AMOUNT: 1.5 
MEASURE: TSP 

INGREDIENT: ALMOND EXTRACT 

AMOUNT: 2 
MEASURE: TSP 

INGREDIENT: BAKING POWDER 

AMOUNT: 4 
MEASURE: CUPS 
INGREDIENT: FLOUR 

AMOUNT: 4 
MEASURE: DOZ. 
INGREDIENT: ALMONDS 

AMOUNT: 

If you want to triple the recipe, you would next enter 3. 
Answer CONVERT AGAIN? (Y/N) with Y, and this time 
try .5 and the recipe will be halved. While someone is key- 
ing in this program, another member of the family can try 
this recipe. It's Grandpa's Almond Cookies. Mix the in- 
gredients together in order (except the almonds), roll in balls, 
and flatten slightly on cookiesheets. Press one ahnond on 
top of each cookie and brush with egg. Bake at 375 for about 
10 minutes. 

You may use this program as part of a larger program 
that retrieves the recipe from a file, then asks if you want 
to convert the recipe. You may want to READ the recipe 
from DATA statements rather than using INPUT. You can 
get fancy and print the title and instructions and draw pic- 
tures. [Also check out Micro Bartender in this book— a pro- 
gram that can be adapted for any recipe file.— Ed.] 

Inventory 

There are many ways to approach an inventory program. 
Ten programmers will come up with ten different programs. 
One possibility is to use the Electronic Home Secretary pro- 
gram. Here is one method for a household inventory. Use 
DATA statements and enter each item in the following 
order: room number, item, cost. 
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Only a few items in a few rooms are shown here to il- 
lustrate the logic of the program. You will probably want 
to include more rooms, the year purchased, and perhaps 
depreciation, replacement value, and a few other remarks. 
And don't forget to add titles to make the information more 
meaningful. You can use this program idea for any kind 
of inventory from food storage to retail products. Extend- 
ed BASIC allows nice formating of output (with PRINT 
USING or IMAGE) so the numbers line up. It is also possi- 
ble in regular BASIC by testing the length or the size of the 
numbers and printing accordingly. 

I entered the DATA items in alphabetical order so they 
will be listed alphabetically, but you could use a sort routine 
to alphabetize the items or list the items according to cost. 
Following is a basic sorting routine: 
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EM 
EM 



SW 
FOR 



N 
E 
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LTIO 
TO 



lAlGA 




I = 



UlMlB 
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TO 



TO 
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NG 
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EMS 
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EQ 
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M= 



You can use this interchange sort algorithm to arrange 
a list of numbers in ascending order. In this example, the 
user inputs the numbers of items in the list, N, and then 
enters each number (in any order). For this example, N is 
limited to 50. The maximum execution time for 50 numbers 
is about 50 seconds. 

Within a FOR-NEXT loop, each number is compared 
to the next number. If the first number is larger than the 
second number, those two numbers in the array are swit- 
ched and SW is set equal to 1 to indicate a switch is made. 
If the first number is smaller than or equal to the next 
number, the loop returns to the next pair of numbers to 
compare. 

If SW = 1, at least one switch has been made and the pro- 
cess is repeated with SW reset to zero and the limit LIM 
of the loop set to the place a switch was made (the numbers 
after the last switch will be in ascending order with the largest 
number of the orginal list situated last in the series.) 

To change this algorithm to rearrange a list of numbers 
in descending order, simply change the "less than" sign in 
statement 230 to "greater than." More efficient (and com- 
plex) sorts are available for large sets of numbers, but this 
algorithm is sufficient for smaller sets of numbers. 

The alphabetizing algorithm is the same as this inter- 
change sort algorithm with the list of variables changed to 
string variables. Just change all occurences of A to A$ and 
AA to AA$. In a regular program the INPUT and PRINT 
formats would be different from this example. 



In the inventory application, we have three variables for 
each item: room, item name, and cost. These could be read 
in as arrays and the sort routine would need to interchange 
all three items. For example, let A(I) be the cost that you 
are sorting. You would need to add: 

242 RR$ = R$(I) 

244 1I$=ITEM$(I) 

252 R$(I)=R$(H- 1) 

254 ITEM$(I) = ITEM$(I + 1) 

262 R$(I-M) = RR$ 

264 ITEM$(H- 1) = II$ 

This coding ensures that the variables associated with each 
cost are interchanged in the same order as the costs are in- 
terchanged. You could also combine the room number and 
item name into one string variable to be interchanged with 
the cost variable. 

Income Tax 

Probably the most common use for the computer when 
helping out at income tax time is keeping track of expen- 
ditures in different deduction categories. You can use the 
same program idea discussed above in the inventory sec- 
lion, but with a slightly different data structure. Instead of 
room number, you would use category (medical, interest, 
contributions, etc.). You would probably still use item and 
cost, and possibly add the date of expenditure. Your DATA 
statement would look like this: 

500 DATA 1, "DR. PAYNE",25.50,"MAY 9" 

for a medical expense of $25.50 to Dr. Payne on May 9. 

I have suggested several ideas to help you get started 
writing your own programs for your own home, business, 
or professional applications. Now you just need to DO IT! 

Recently someone asked me for a special income tax 
program — one that would indicate zero taxes to be paid. 
Hmmmm. I'm still thinking about that program .... 
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You bought your TI-99/4A Home Computer 
because the plug-in Command Cartridges looked 
like a quick and easy way to get started. You 
played the games and typed in the programs that you 
found in the User's Reference Guide. Now comes the mo- 
ment of truth— What to do next? The answer, fellow 
99'ers, is easy: Learn how to use a cassette tape recorder 
with your computer so that you can begin to build up 
a program library by recording and saving the many ex- 
cellent software programs that are printed in 99'er Home 
Computer Magazine. 

TI manufactures a special cassette recorder (PHP-2700) 
for use with its computers that comes supplied with a dual 
cassette cable. If you cannot locate this recorder, things 
may get a little complicated. Finding a recorder that pro- 
vides satisfactory results is not as easy as you'd think. 
To explain why, I will have to give you a quick 
background on how a computer talks to a tape recorder 
and vice versa. 

What the Recorder Records 

In order to do the wonderful things your computer is 
capable of doing, bits (the "offs" and "ons" that com- 
puters use) have to be arranged into patterns. This is true 
not only for numbers, but also for letters. For example, 
if you type the letter "A" on the keyboard, your 
TI-99/4A really sees a pattern that looks like this: off- 
on-off-off-off-off-off-on. If we think of an "off" as a 
zero and an "on" as a one, the pattern looks like this: 
01000001 . Remember that everything your TI-99/4A does 
is based on groups of binary numbers like that. A group 
of 8 bits is called a byte. 

Learning to count in binary is beyond the scope of this 
article, but there are a number of books or articles around 
that can teach it to you. What you should know for now 
is that each letter and character has its own pattern of 
zeros and ones (its own binary value). For example, the 
65th pattern (a byte value = 65) represents the letter "A" 
in the ASCII character coding system used by the 
TI-99/4A and most computers. This means that 65 is the 
ASCII value of letter "A." That is why the computer 
will give you back an answer of 65 if you ask for the value 
of ASCC'A"). 



A Beginner's Guide 

To Cassette Operation 

With A Home Computer 

In order to read data from a tape recorder, your com- 
puter will have to be able to read in bytes of data. That 
means that it will have to understand "offs" and "ons" 
when listening to the tape. But, the TI Home Computer 
doesn't listen to the cassette tape for "off" and "on" 
sound. Rather it listens to two different frequency tones 
that represent the two states. 

Not all Recorders Are Equal 

It appears generally true that it takes more power for 
a cassette tape recorder to produce or reproduce a high 
frequency than it does to produce or reproduce a lower 
frequency tone. If the volume is not high enough during 
either recording or playback, your computer won't hear 
anything, or it might not be able to hear the higher fre- 
quency tone. In order to help the TI-99/4A hear the high 
frequency tones properly, the tone control knob on the 
recorder should be set at or near the maximum level. Even 
if this is done, some tape recorders cannot handle the high 
frequency. If your recorder doesn't have a tone control, 
there's a good chance it was meant to handle only the 
frequencies of human speech and won't be mechanically 
able to handle the high frequency tone at all. 

Since it is possible that your recorder cannot reproduce 
the high frequency tones properly, your computer has to 
be sure that it has read all the data. How can it be sure 
that nothing was lost? Your computer counts the number 
of" ons" that it heard. After every so many bytes, it ex- 
pects to read a number on the tape. This number tells 
the computer how many "ons" it should have read. If 
the two numbers don't match, a parity error has occur- 
red and the computer will tell you that you have a 
problem. 

Now suppose that the volume is set high enough to 
reproduce the high level tones, but is up too high? Well, 
too much volume causes distortion in a tape recorder. 
This distortion will mean that some of the tones will not 
be heard accurately by the computer at all. It's just as 
if someone screamed in your ear. You know something 
was said, but you don't know what it was. 

A Remote Possibility 

There is one additional problem that may crop up even 
with tape recorders that satisfy the above criteria: Almost 
all cassette recorders have a remote control jack which 
allows you to stop the recorder by pressing a button or 
switch located on the microphone. Unfortunately, since 
this jack is meant to work with the manufacturer's own 
microphone, there is no guarantee that the jack is hook- 
ed up the same way in each tape recorder. In fact, there 
is a 50-50 chance that a non-TI tape recorder model you 
may buy or already own will not be compatible with the 
Home Computer system. This means that the drive motor 
of your recorder might not be capable of being turned 
on and off automatically by the computer when the plug 
on the TI cable is inserted into the recorder's remote jack. 
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Luckily, if this is true for your recorder, Emerald Valley 
Publishing Co. sells an inexpensive adapter (called "TEX- 
SETTE") which is used between your recorder and the 
TI cable. If you don't want to spend the money for this 
adapter, you can get by without it by manually starting 
and stopping the tape [except if you intend to use cassette 
data files, in which case the automatic operation is 
necessary. — Ed.]. 

The conclusion you can draw from all this is that your 
TI-99/4A requires a tape recorder with specific attributes 
in order to consistently guarantee good results. If you do 
not already own a recorder, I strongly suggest that you 
buy the model PHP2700 tape recorder from Texas In- 
struments. If you do have a recorder, you should try it 
out before incurring the expense of purchasing a new one. 

Plugging In! 

Now that we have discussed why some recorders won't 
work at all or won't work with the remote control jack 
plugged in, let's get down to business. Shut off your 
machines and plug the wide connector (with 9 holes in 
it) into the back of your computer. The other end of the 
cable has two cords. One cord has three plugs attached 
(labeled plug #1), and the other (plug #2) has only two. 
The tape recorder that you connect to plug #1 will be call- 
ed "CSl" by the computer. If you are lucky enough to 
have a second usable tape recorder, you can hook up that 
one to plug #2. It will be called "CS2" by the computer. 
Just follow the installation instructions printed on the 
card that came with the TI cassette cable. If your tape 
recorder does not have a remote control jack, just ignore 
the instructions to insert the black plug. Note that CS2 
does not have a playback plug. You can only record on 
CS2. 

Plug the tape recorder into an electrical outlet and you 
are now ready to check out your system. [A battery- 
operated tape recorder is usually too unreliable for recor- 
ding and playing back data for your computer because 
of the possible fluctuations in speed and amphfier gain 
over the life of the battery.— Ed.] Load a high-quality 
(remember we have to record those high tones accurate- 
ly!) C-10, C-15, or C-30 blank tape into the tape recorder. 
The number part of the tape code gives the number of 
minutes of recording time available on both sides of the 
tape. A C-10 tape has 5 minutes of recording time on each 
side. You can use a tape as long as a C-60, but never 
anything longer. This is because longer tapes are thin- 
ner, stretch more, and may not maintain proper speed 
in the recorder. For this first test, make sure the tape is 
completely blank. Turn on your computer and select TI 
BASIC. Key in the following 4-line program: 

100 PRINT •♦HELLO" 
110 1 = 30 

120 PRINT "MY VALUE IS";I 
130 END 

Turn up the volume on your TV (or monitor) by a few 
notches so that you can hear a slight hum. Set the volume 
control on your tape recorder midway between the lowest 
and highest settings. Set the tone control (if there is one) 
up to maximum. [Or, if you are using the TI PHP2700, 
follow its manual's setup instructions. — Ed.] Now type 
in SAVE CSl and press the ENTER button. Follow the 



instructions that the computer gives you to rewind the 
tape and begin recording. When you press "record" on 
your tape unit and then press the ENTER button on the 
computer, the tape should start moving. 

If the tape doesn't start moving, you have a non- 
compatible remote control jack. If this is the case, wait 
for the computer to leave recording mode and print the 
"VERIFY (Y/N)" message. When it does, type in an 
"N". Now remove the plug from the remote control jack 
and begin the recording process all over again (by typing 
SAVE CSl and pressing the ENTER button). When you 
are told to record, you should now see the tape moving. 

Getting Adjusted 

After a short pause, you will actually hear your pro- 
gram being recorded onto the tape. The recording con- 
sists of an initial long phrase of a single tone, followed 
by bursts of sound with a very short pause between bursts. 
The initial tone is used to tell the computer on playback 
that data is coming. This tone is recorded before each 
program and each block of data (which we will talk about 
later). When the recording is over, you will get the verify 
message (see above). Type in a "Y" (you don't have to 
press the ENTER button). Follow the instructions about 
rewinding the tape. When you play back the tape, listen 
to the sounds that it is making. Note that the volume is 
much louder than when you recorded. If that initial tone 
does not sound pure (if it seems to warble, with the tone 
going higher and lower), you are probably using a 
recorder that won't work well consistently. If the tone 
does seem pure, you're halfway home! 

When the tape goes silent, the program has finished 
loading. You should get a message that says either 
"DATA OK" or "ERROR IN DATA". If no message 
prints, then the volume setting was too low and your com- 
puter is still waiting for the first recognizable byte of data. 
It will eventually get tired of waiting and give yo\i a "NO 
DATA FOUND" error. Just wait for this message to ap- 
pear, or shut off your computer and start all over again. 

If you got the "DATA OK" message, you are home 
free! Relax and go on to the next paragraph. If you were 
unlucky enough to get a "NO DATA FOUND" error, 
turn up the volume one notch. Write down the latest 
notch on a piece of paper. In either case, respond to the 
computer question by entering an "R" to re-record. The 
computer will guide you in another recording session. 
Keep repeating the process until you can't change the 
volume any further, or the "DATA OK" message ap- 
pears or the error message has changed (i.e., from "NO 
DATA FOUND" to "ERROR IN DATA"). If you can't 
change the volume any further, your recorder just isn't 
good enough. Don't aggravate yourself any longer — go 
out and find somewhere to buy the TI recorder. If the 
"DATA OK" message has appeared, you are in good 
shape. If the message has changed, back off your last 
change by half a notch. For example, if moving the con- 
trol from 6 to 7 made the "ERROR IN DATA" message 
appear, try the recording process again at 6'/2. If that 
doesn't work, try it at V4 notch intervals. If that doesn't 
work, forget it. Buy a different recorder. 

After you get the "DATA OK" message, mark the 
volume setting in some way. I usually dip a toothpick in 
white paint (a light nail polish will also work) and dab 
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a line on both the recorder and the control so that I can 
easily see that the volume setting is correct. You now have 
a functioning cassette tape system and are ready for big- 
ger and better things. 

Better Safe than Sorry 

When you entered the SAVE CSl command, you told 
the computer to copy the bytes that represented your pro- 
gram inside the computer onto a tape. The entire pro- 
gram is saved each time. Your program is still in the com- 
puter, however. If you agree to verify your tape, TI 
BASIC will read the data from the tape and compare it 
in a byte-for-byte manner with the program still residing 
in memory. Unless the two match perfectly, your 99/4A 
will issue a warning that you have a bad tape. ALWAYS 
VERIFY ANY SAVEs BEFORE ENDING A PRO- 
GRAMMING SESSION! 

The tape version of the program is saved in a "machine 
image" format that is meaningful only to TI BASIC. You 
cannot, however, write a TI BASIC program that will 
read this tape. The only way to get your program back 
into the 99/4A is via the OLD CSl command. This will 
load the program back into the machine. Anything that 
may have been in the computer before the OLD CSl will 
be lost. By the way, you can SAVE CS2 (if you have a 
recorder hooked up to cable #2) and then read in the tape 
by entering OLD CSl. Of course, you have to move the 
tape over to the recorder attached to cable #1 first! 

The instructions built into the TI-99/4A whenever you 
enter the SAVE CSl or OLD CSl command assume that 
you have only one program per side of tape. A long pro- 
gram will require about 3-4 minutes of recording time. 
This means that it is possible to save about 4-5 programs 
on each side of a C-30 tape. If your recorder has a tape 
counter, just keep track of where the next free space on 
the tape is located. Then, when the computer tells you 
to rewind the tape, just fast-forward to that next free spot 
on the tape instead. Make sure to keep a log of what pro- 
grams are recorded on tape and where they are located. 
[If you don't want to be bothered by this, and want max- 
imum reliability, it is better to use C-10 cassettes and 
record only one program per side.— Ed.] 

A cassette tape recorder will usually have the ability 
to record a new program directly over an old one. It is 
good to get into the habit of completely erasing a tape, 
however, when you no longer need it. This ensures the 
best possible recording the next time you use the tape. 

Filing Data 

The cassette recorder also makes a handy data storage 
device for use in your computer programs. Suppose that 
you have written a program to keep track of the bowling 
scores and figure out the handicap of each member of 
your bowling league. You don't want to re-enter this in- 
formation each time you run your program. What you 
need is a way of saving the data when you are through 
with it so that it can be read in the next time around. Some 
people do this by entering the information in DATA 
statements each time before SAVEing the program. A 
better way of doing this is to write out a small file of data 
onto tape. Your program can then read in this data file 
the next time it runs. TI BASIC has an easy way of do- 
ing this by using the INPUT # and PRINT # statements. 



Before you can read or create a file, you must tell the 
computer a little about your file. This is done by the 
OPEN statement. Your reference manual does a pretty 
good job of explaining this statement, so I'll just go over 
the parts specifically dealing with cassette tape files. 

Unlike the SAVE command which writes out your en- 
tire program as a large "chunk" of data, BASIC data 
files can only handle small chunks of data, called records, 
at a time. Each file can contain 1 or more records. All 
cassette records in a file must be of the same size. They 
can all be 64 bytes (characters) long, 128 bytes long, or 
they can all be 192 bytes long. You can specify other 
lengths as part of the OPEN statement, but TI BASIC 
will boost the number up to either 64, 128, or 192. If a 
record you want to write is shorter than the length that 
you specify, TI BASIC will add enough blanks at the end 
of the record to make it the right length. 

Each record can contain as much data as you can fit 
in a record of that size. When you have a statement that 
uses PRINT # and ends with a semi-colon, BASIC will 
add that data to the record, but will not write anything 
out to the tape. When BASIC sees a statement with 
PRINT # that doesn't end with a semi-colon, it will write 
out everything in a record (including this last piece of 
data) to the tape. When the record is written to tape, it 
is preceded by the steady high-pitch tone that starts off 
a SAVE. That means that BASIC uses a lot of tape to 
write a single record. In fact, if you use records that are 
only 64 bytes long, it is possible that more room is spent 
on the tape for the start tone then is used to record the 
data! Remember that more room on the tape means 
slower reading by the computer. That's why I usually use 
192 byte records and try to fit as much data as possible 
into each record. Doing this will cut down on the number 
of records written to tape, and make the program run 
faster. 

Because TI BASIC only writes to tape when you tell 
it to, the computer must have total control of the cassette 
recorder so that it can start and stop the recorder as need- 
ed. This means that the black remote-control plug must 
be inserted (and functional!). If your remote jack is not 
compatible with the TI-99/4A, you will not be able to 
use the recorder for saving and reading data under pro- 
gram control. 

You can store in two different formats. DISPLAY for- 
mat means the data is saved just the way it would look 
in a DATA statement. INTERNAL format saves the data 
in the same way that the computer stores the informa- 
tion internally. Numbers require 8 characters (bytes). 
Strings (i.e., names) require 1 byte (for the length) plus 
the data itself. I usually save my data in INTERNAL for- 
mat so that I know the length needed for numbers no 
matter how big or small they are. 

THE BASICS of Record Keeping. 

Let's write a part of a program that will save each 
bowler's name, his pin average and his handicap. Pre- 
tend that we have 60 bowlers in our league. If we restrict 
each bowler's name to a maximum of 45 characters, we 
will need a total of 62 bytes per bowler (45 bytes + 1 
= 46 for the name + 8 for the average + 8 for the han- 
dicap = 62). We can therefore fit the data for 3 bowlers 
into one 192 byte record. (See Listing 1 .) If you have not 
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filled up a record by the time the program hits the CLOSE 
statement, TI BASIC will fill out the record with blanks 
and write it out. You do not have to worry about writing 
out a last record that is partially full. Just remember 
always to program in a CLOSE statement. To read the 
data file into your program, you need program instruc- 
tions that almost duplicate the write program (see Listing 
2, below). 

When your program executes the OPEN statements, 
the computer will issue commands about rewinding the 
tape and pressing ENTER. When INPUTing from tape, 
the screen will scroll up one line to indicate that it has 
begun processing the tape just before it reads the first 
record. 

Once you have these basic components working and 
understood, you will probably wish to embellish them 
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with things like update capability, printing of bowlers' 
statistics, etc. 

I have often been asked why TI provides the CS2 plug. 
I have to admit that most manufacturers do not provide 
dual cassette support. It is useful if you must process more 
data in your program than the computer can handle in- 
side its memory. You would need two recorders hooked 
up, and would read in as much data as possible (for ex- 
ample, as file #1) on CSl, then do whatever you have 
to, and finally write the updated data out on CS2 (as a 
different file number). You would then go back and read 
in the next batch of data from CSl, update it, and write 
it out. You repeat this until there is no more data on CSl . 
This allows a small computer to handle very large files. 

At this point you should have the basic knowledge for 
choosing a cassette recorder, and getting it to work with 
your computer. Keep in mind that tape storage 
transforms your Home Computer into a very powerful 
and versatile machine. And once you get familiar with 
the few simple procedures and precautions, each occa- 
sion of saving and loading programs and data files will 
become second nature. . .one might even say, "filled with 
memories . . . . " 
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**. . . we find more and more companies that can be 
described . . . as nothing but 'people huddled around a 
computer. * Put the computer in people's homes, and they 
no longer need to huddle." 

—The Third Wave 
By Alvin Toffler 



In his book, The Third Wave, Alvin Toffler presents 
a powerful argument that "... our biggest factories 
and office towers may, within our lifetime, stand half 
empty .... This is precisely what the new mode of pro- 
duction makes possible: a return to cottage industry on a 
newer, higher, electronic basis, and with a new emphasis 
on the home as the center of society." Toffler goes on to 
single out many powerful socio-economic forces that are 
presently fueling this transition and points to the software 
production industry which has already set an early exam- 
ple as the fastest growing cottage industry of the 1980s. 

Within the last three years, the microcomputer communi- 
ty has been witnessing the unfolding of an extraordinary 
event. I say "extraordinary" not because of what has already 
happened, but rather, for what it portends for the future. 
What is this event, and what great significance does it hold? 
Quite simply, the event has been the birth and maturation 
of "information utilities"— a significant event because of 
their awesome potential to speed up Toffler*s timetable and 
change the way most of us live and work within this cur- 
rent decade! 

There's certainly nothing mysterious about utilities. All 
of us are already familiar with telephone, electric, water and 
gas utilities. These are necessary and valuable resources 
delivered to and consumed in the home. If we now add in- 
formation to this list, we create an "information utility"— a 
service that brings information to a place where the general 
public can access it and put it to use. . .and where the cost 
of packaging and delivery is shared by the consuming public. 
And what better, more convenient place is there for the 
general public to consume this information than in the 
home — the forthcoming "electronic cottage." 

The New Timesharing 

Timesharing, the foundation of all information utilities, 
is certainly not new. It was originally developed to serve the 
needs of business by providing companies with access to 
computer power without them having to buy expensive data 
processing equipment. Custom programming and technical 
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assistance were available at extra cost to those who couldn't 
use the "canned programs." 

What these information utilities have done is add a new 
wrinkle to the traditional timesharing concept. Using the 
famous "baking soda technique"— whereby a producer of 
this unglamorous age-old product continually dreams up and 
advertises new uses for it— they have repackaged timeshar- 
ing to make it palatable to a much greater potential market. 
But lest you jump to the wrong conclusion, I should point 
out that these utilities are not simply pushing an old service 
to a new market. Rather, what we really have here is the 
creation of an entirely new dimension to timesharing — an 
attempt to satisfy a mass audience with extremely diverse 
needs and wants. . .and do it at an affordable price. 

Information Services for the Masses. 

To provide you with some appreciation for the great 
diversity of presently available information services, let's 
take a brief look at one of the largest, fastest growing 
utilities, The Source (a service mark of Source Telecom- 
puting Corporation, a subsidiary of The Reader's Digest 
Association, Inc.) At present, The Source offers over 1,200 
services in areas such as: 

(1) computer-based message services 

(2) proprietary databases 

(3) business and professional applications packages 

(4) personal and corporate services 

(5) consumer purchasing 

(6) entertaiment 

(7) education 

(8) "classical" timesharing 

All these services enter a subscriber's home or business 
through existing telephone lines (using the packet-switching 
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networks of Telenet and Tymnet.) A local number is 
available in over 360 U.S. cities for accessing The Source. 
A subscriber types in (on a computer terminal connected 
to the telephone line, or a self-contained microcomputer with 
appropriate software to emulate a terminal) his or her private 
ID account number, and then chooses from a menu of ser- 
vices. Since subscribers can command the "host" computer 
in plain English (in a somewhat abbreviated form), very little 
instruction is necessary to do meaningful things— an ex- 
tremely important attribute of any information utility. 

Although an information utility such as The Source 
hopes, in the not-too-distant future, to be able to feed 
millions of inexpensive computer terminals in U.S. 
households, its present subscriber base is drawn from the 
business community and a small segment of the vast con- 
sumer community — the segment which presently owns 
microcomputers. 

It's not surprising that businesses of all types are attracted 
to very inexpensive services such as electronic mail, travel 
arrangement, applications software packages, programm- 
ing access to mainframes, and business/industry news. It 
does, however, take some stronger incentives to lure the con- 
sumer segment of the microcomputer community— the 
present-day pioneers who purchased their micros for home 
use. It's to this group that information utilities like The 
Source must ultimately cater if they hope to eventually reach 
the economy of distribution and substantial return-on- 
investment that are possible in a mass market. 

To this end, consumers with microcomputers are presently 
being wooed with a rapidly expanding array of personal ser- 
vices (such as bookkeeping, correspondence, travel ar- 
rangements and keeping track of investments), educational 
programs, home economics assistance, plus activities and 
information that the whole family can use — especially 
games, movie and product reviews, news and sports reports. 

The TEXNET Turn-On 

If having the services and activities of The Source in your 
home isn't exciting for you, how about having it together 
with the following package of special enhancements: color 
graphics and animation, music and sound effects, a soft- 
ware exchange with hundreds of free programs plus state- 
of-the-art synthetic speech— actually "spoken" to you! No, 
all this isn't just a "wouldn't-it-be-great-if" speculation of 
things to come, but rather embellishments to the basic 
Source menu. 

The special services and enhancements I've been describ- 
ing are available to users of the Texas Instruments TI-99/4A 
microcomputer, and come under the TEXNET (a service 
mark of Texas Instruments, Inc.) umbrella. Besides the 
microcomputer, the only additional items that are needed 
to take advantage of all of the special TEXNET features 
are an RS232 Interface and modem (for establishing a com- 
patible telephone connection), a plug-in Terminal Emulator 
II Command Cartridge (the software for the micorcom- 
puter), and the plug-in Solid State Speech Synthesizer— the 
Texas Instruments peripheral that "voices" the synthetic 
speech. The synthesizer won't be necessary if speech 
capability isn't desired. 

Just how, exactly, are TEXNET and The Source related? 
According to Craig W. Vaughan (President, Software 
Sorcery, Inc.), a systems support consultant to Source 
Telecomputing Corporation and Texas Instruments, TEX- 




NET appears to encompass The Source totally. That is to 
say, TEXNET subscribers have access to everything Source 
subscribers do plus additional special services that require 
the Texas Instruments Home Computer for access and use. 
Graphically, it would appear like this, with the outer ring 
of TEXNET including everything 
within The Source's inner ring, and ex- 
panding its own outer ring of special 
services over time. This is only an ap- 
pearance, however, as Vaughan 
pointed out; "In reality, TEXNET 
users will be running a shell pro- 
gram . . .on The Source system." 

Services on TEXNET fall into two major groups: (1) 
directory or lookup textual information, and (2) interactive 
or transfer services. In this first group there will be a pro- 
duct and technical newsletter (TI News), TI Software Direc- 
tory, TI User Groups, TI Service Centers, and TI Phonetic 
Dictionary (helpful when programming with text-to-speech). 
The second group of services is really what TEXNET is all 
about. First, there are the transfer services. Sophisticated 
error-checking software in the Terminal Emulator II Com- 
mand Cartridge will permit any of hundreds of user pro- 
grams from the TI Software Exchange to be downloaded 
correctly into another user's system. Eventually, we can ex- 
pect to see on TEXNET the capability for direct uploading 
and downloading between users. The TI Graphics Library 
and TI Music & Sound Library will work the same way: 
A TEXNET subscriber will be able to download the color 
graphics, musical scores, and sound effects into his own 
system for later use in his own programs. 

The interactive services on TEXNET are really speech 
enhancements of services already available on The Source. 
For example, the electronic mail service — probably the most 
highly used service, and reason enough for many to be 
Source subscribers — is made even more intriguing when you 
mail is "read" to you by your machine's electronic voice. 
And if "electronic voice mail" intrigues you, wait till you 
experience TI Voice Chat: TEXNET users will be able to 
participate in "spoken"interactive communication, CB- 
style. Well almost .... What actually happens is that one 
user types in something, and the words get converted back 
into synthetic speech on the other end; the typed-in reply 
gets sent back, and then also gets converted to speech. So 
what we actually wind up with is a real-time verbal conver- 
sation between two speech synthesizers! 

There's one short paragraph in the latest Source brochure 
that perfectly sums up what's presently happening in the 
world of information utilities: 

^ ^ This brochure is obsolete. 
By the time you read this brochure, new 
information and communication services 
will have been added to The Source. Old 
data bases will have been updated, and 
streamlined "user friendly" access pro- 
cedures introduced. ^ > 

Without a doubt, it's an exciting time to be living and 
learning along the new information frontier. 

For more information on TEXNET and the Source, see 
your TI dealer or contact The Source Telecomputing Corp., 
1616 Anderson Rd. McLean, Virginia 22102. 
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If you have invested in an RS232 interface and a modem 
in addition to your TI-99/4A system, you have the 
possibility of tapping a vast information network 
through existing and planned computer time-sharing ser- 
vices. A variety of information services such as news, finan- 
cial information, computer games, various data bases, and 
program exchange, to name just a few, are provided through 
information utilities such as The Source (by Source Telecom- 
puting Corporation). TEXNET, a collaboration between 
Source Telecomputing Corporation and Texas Instruments, 
will enhance data base services with the addition of text-to- 
speech, color graphics, and music. This service is available 
exclusively to users of the TI-99/4A. TEXNET and The 
Source are covered in another article. [See "Information 
Utilities & the Electronic Cottage."— Ed.] This article is an 
examination of basic data communications between the 
TI-99/4A and other computers. 

Data Communications Concepts 

A number of coding schemes have been devised to repre- 
sent characters in order to input information into a com- 
puter. The most widely used code is the American Standard 
Code for Information Interchange— more commonly 
known as ASCII code. It is a 7-bit code which can repre- 
sent 128 character configurations. Figure 1 illustrates the 



bit patterns associated with each of the characters. An eighth 
bit, called a parity bit, is commonly included in the ASCII 
code. The parity bit used to detect errors in the bit stream 
which might be due to the reading or transmission of the 
data. Parity of a ASCII coded signal can be odd or even. 
An ASCII code with even parity must contain an even 
number of ones; for an odd parity the number of ones must 
be odd (i.e., 1, 3, 5, 7). The Texas Instruments Terminal 
Emulator II (TE-II) Command Cartridge enables you to 
tailor your TI-99/4A to fit the characteristics of the remote 
computer system. With the communications device menu, 
you can specify the parity of the received or transmitted 
signal— odd, even or none (no parity bit)— and set the 
number of data bits at 7 or 8. 

The actual number of bits transmitted is larger than the 
number of bits in the code. "Housekeeping" bits are add- 
ed both before and after the bits which represent the 
character code. The additional bits are called start and stop 
bits. A single bit is added at the front of the code as a signal 
to advise the receiving device to start sampling the incom- 
ing signal. Stop bits, added after the character code, indicate 
when the code is finished, and reset the device for recogni- 
tion of the next start bit. For an ASCII coded character 1 1 
or 12 bits are typically transmitted. 

In data communications terminology, a full duplex chan- 
nel implies that information can flow in two directions 
simultaneously. On a half duplex channel, the information 
can flow in both directions, but not simultaneously. If you 
select the half duplex mode from the TE-II communications 
device menu (and set the modem accordingly), the characters 
you send will be "echoed" back to your monitor or TV set, 
and appear on the screen. The echoed or extra character 
does not occur if full duplex is selected. 

The public telephone network can provide means of com- 
munication from your TI-99/4A to another computer or 
information service. The information or bit stream that your 
computer sends and receives, travels serially through the net- 
work. That is to say that the bits making up a character 
are sent and received one after another. 

There are a variety of modes of serial data transmission. 
Your modem transmits data asynchronously. This means 
that any set character is sent independently of any other 
character, and that the character bits are preceded by a start 
bit and followed by at least one stop bit. Synchronous 
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transmission requires that both the sending and receiving 
modems are synchronized by a clock signal. The rate at 
which data is transmitted (or received) is termed the baud 
rate. The formal definition of a baud is the reciprocal of 
the length of the shortest pulse used to create a character. 
Since all the bits of the ASCII code are equal in length, the 
terms "bits per second" and "baud" can be used inter- 
changeably. A baud rate of 1 10 requires a minimum of 2 
stop bits; at 300 baud and higher a minimum of I is re- 
quired. The TE-II software allows you to choose between 
two baud rates (1 10 or 300), and your modem usually limits 
your use to either 1 10 or 300. The RS232 interface (without 
the TE-II) also allows you to use baud rates of 1200, 2400, 
4800 or 9600. The higher rates can be used to output data 
to a printer or to send data to another TI-99/4A connected 
directly to your system. 

The function of your modem is to convert the binar>' pulse 
train (Is and Os) from your computer to some form of 
analog signal (tones) that can be transmitted over a telephone 
line. You will note that in the transmit mode your modem 
emits a continuous tone. This tone is called the carrier signal. 
When sending data from your TI-99/4A, the modem's func- 
tion is to modulate (vary the amplitude or frequency) this 
carrier signal. It also works in the opposite direction by 
demodulating the carrier, so that the ASCII code sent to 
your TI-99/4A can be properly interpreted. Thus, the term 
"modem" is derived from the two words which describe 
its function: Modulation and DEModulation. A common 
modulation technique is called frequency shift keying (FSK), 
This technique converts the binary pulses from the com- 
puter to two tones of different frequency. For example, if 
the carrier signal has a frequency of 1500 Hz, a I might 
be transmitted at 2000 Hz and a at 1000 Hz. 

Terminal Emulator II Command Cartridge 

The TE-II Command Cartridge implements all 128 
characters of the standard ASCII code, which is illustrated 
in Figure I. It's also possible to send any standard ASCII 
control characters (used for signaling a remote computer 
or device to perform a predefined function), and display 
lines containing more than 40 characters by "wrapping" the 
extra characters onto a second line. The most powerful 
feature of the TE-II is the ability it gives users to store receiv- 
ed data on tape or disk. You can review this data after log- 
ging off the remote computer, and can also send it to a 
printer or another computer. 
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The format of the data stored by the TE-II is ASCII 
(display format) and is of fixed record length of 80 bytes 
(characters). In order to make further use of the informa- 
tion, it is necessary to write programs using BASIC. A sim- 
ple example of such a program is shown in Listing I. Line 
130 opens a saved disk file using the OPEN statement. The 
following line inputs an ASCII character string; if the record 
denotes the end of file (EOF), the program ends. Other- 
wise, the program returns to the INPUT statement (line 140) 
and continues to read the data file until an EOF is detected. 

Data Communications Using BASIC Programs 

Display format files can be sent from your TI-99/4A to 
another computer under control of the BASIC listing shown 
in Listing 2. The program assigns file number 1 to the in- 
dicated disk filename, and file number 2 to port I of the 
RS232 interface. Each record or character string is input 
from the disk and then transmitted to the remote computer. 
Of course, this assumes that a means of recording this data 
is resident on the remote computer. This program can be 
used, for example, to efficiently transmit a pre-recorded 
message, or text file to another Home Computer. 

The program listings in Listing 1 and 2 have a common 
flaw: If a display format file contains commas, the character 
string will be terminated by the first comma encountered. 
This is due to the fact that the BASIC INPUT statement 
interprets a comma as a separator between character strings 
or data items in display format data. (See page II-I26 of 
the User's Reference Guide.) This flaw can be overcome by 
using the LINPUT statement from Extended BASIC. 
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GO ahead — shout something at your Home Com- 
puter. . .but don't be surprised if it answers you 
back! Welcome to the exciting world of talking 
computers — a world in which synthetic speech will very soon 
cease being a novelty, and will instead become instrumen- 
tal in the everyday interactions between humans and 
machines. 

If you have a Texas Instruments Home Computer, you're 
one jump ahead of everyone else in taking advantage of this 
revolutionary communications tool. All you need additional- 
ly is the Speech Synthesizer peripheral, and the plug-in Ter- 
minal Emulator II Command Cartridge. Text that you type 
on the console keyboard will be converted to synthetic 
speech, and "spoken" through your TV set or monitor. 
There's no fixed vocabulary to constrain you, and personal 
phrases can be called up under program control through 
the TI BASIC computer language. 

But this is only the beginning. ... If you connect TI's 
RS-232 interface and a modem to this configuration, you 
can have access (through your telephone) to the electronic 
mail, database, entertainment, and computing facilities of 
the SOURCE and its offspring, TEXNET. The TEXNET 
service allows TI-99/4A users to access all the menu selec- 
tions from its parent information utility plus some additional 
features with the enhancements of text-to-speech, sound ef- 
fects, music, and color graphics! Imagine a weather report 
with a color graphic representation of a bright sun being 
blotted out by ominous looking rain clouds, while "Stor- 
my Weather" is being played in the background, and the 
temperature, wind, humidity and other vital statistics are 
flashed on the screen and recited to you by your speech 
synthesizer— an exciting prospect at the least. 

Linear Predictive Coding (LPC) 

When Texas Instruments made the first single-chip speech 
synthesizer in 1978, its original application was in their Speak 
& Spell learning aid. The chip, A TMS5100, is essentially 
an electronic model of the human vocal tract (a 
mathematical model implemented as a filter network) that 
produces speech through a technique known as Linear 
Predictive Coding (LPC). There have been other approaches 



to speech storage-methods .employing digitized speech and 
pulse-coded modulation— but these result in very high data 
rates (64,000-100,000 bits per second). And the higher the 
data rate, the fewer words of speech the available memory 
can hold. 

The value of TI's LPC technique is its modest memory 
requirement: It provides speech quality nearly comparable 
to these other methods, at a much lower data rate (1,200 
bits per second). For example, a speech reproduction of the 
words "Texas Instruments" requires approximately 90 times 
as many bits using digitized speech techniques as it requires 
with LPC. 

What is the secret to LPC's economy of storage? The 
"P" in the middle that stands for "Predictive." Here's how 
it works: A speech waveform is originally sampled and en- 
coded. This data is used to calculate the coefficients of the 
linear equations of the digital filter network that will con- 
trol the "shape" of this synthetic vocal tract. When excita- 
tion noise (a chirp function and white noise generator) is 
applied to this filter network, the circuitry produces a 
simulation of the resonant effects of the mouth and nasal 
cavities. 



Allopliones 

This is fine if a user doesn't mind being confined to a 
pre-stored vocabulary. A pre-stored vocabulary is, however, 
under-utilizing the synthesizer's capability to produce any 
spoken work on demand as long as it has the appropriate 
input data. This is where TI's recently unveiled allophone 
stringing technique comes into play. TI linguists have chosen 
128 separate sounds called "allophones" that can be link- 
ed together to sound out any word in the English language. 
Allophones are variations of a particular "phoneme" (the 
smallest unit of speech that can distinguish one utterance 
from another) that are modified by the environment in 
which they occur. For example, the aspirated (followed by 
a puff of air) "p" in "pin" and the non-aspirated "p" in 
"spin" are allophones of the phoneme "p." These 
allophones represent the sound more accurately than the 
phoneme. 
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A total of 128 allophones are grouped in a library occu- 
pying only 3 kilobytes of memory storage. Each allophone 
is identified with a numerical code (indicating the parameters 
for setting the filter characteristics in the LPC synthesizer). 
When a word is entered into the computer, its ASCII 
representation is identified; the computer then searches 
through a set of rules (contained in 7 kilobytes of memory 
storage) to pick out the appropriate allophones and string 
them together in the proper sequence (concatenation) to 
represent the keyed-in words. 

The rules (about 650 presently) overcome most of the 
many pronunciation exceptions and irregularities in the 
English language; they're able to select both phonemes and 
allophones correctly over 90% of the time. However, speech 
scientists have found it impossible to achieve 100% accuracy 
in a text-to-speech system of this type since there are too 
many silent letters and incongruities that humans perceive, 
but that the computer cannot discern. To get around this 
problem, some words must by typed into the computer 
phonetically or entered allophone-by-allophone. 

If this were all the text-to-speech software did, the quali- 
ty of the speech would sound monotonous and unnatural. 
TI therefore provides its software with the ability to pro- 
duce more lifelike inflection: Users can add stresses to cer- 
tain syllables, and required pitch patterns to particular points 
in a sentence. Questions then sound like questions, and com- 
mands like commands! 



Text-to-Speech with the TI-99/4A 

The chip used in the speech synthesizer peripheral that 
attaches to the TI-99/4A is a TMS5200— a second genera- 
tion of the TMS5100 (used in the Speak & Spell). It has the 
following added features : (I) "Speak External" input which 
allows the chip to accept speech data from a source other 
than a Speech ROM (read-only memory), (2) an internal 
buffer to store chunks of data (freeing the computer for 
other tasks), and (3) a memory data bus allowing it to work 
with any standard 8-bit microprocessor. (The 16-bit data 
bus of the TMS9900 micropressor is converted to 8 bits for 
use with all TI-99/4A peripherals.) 

The text-to-speech production by this configuration is a 
two part process : (1) the speech construction phase in which 
letters are translated into a digital representation of com- 
ponent sounds and are concatenated (strung together), and 
(2) the speech synthesis phase in which the LPC circuitry 
"voices" the spoken words through a simulation of the 
mouth and nasal cavities. As seen in the accompanying 
diagram, speech construction is handled by the software resi- 
dent in the Terminal Emulator II Command Cartridge, and 
speech synthesis by the TMS5200 chip within the separate 
speech peripheral. 
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Just the sound of the name Walt Disney conjures up 
images of all those fantastic animated movie classics 
spanning over a quarter century of entertainment for 
young and old alike. But recently, the celluloid magic of 
Disney Studios has taken on a new dimension with the 
release of their eagerly awaited science-fantasy, TRON — 
an incredible computer graphics extravaganza in which fan- 
tastic vistas of texture and light are generated artificially by 
computer. As movie-goers worldwide continue to be awed 
by TRON's video warriors and computer programs fighting 
for survival in an electric universe, a new awareness of 
computers — and in particular, the mind-boggling 
possibilities of computer-generated imagery — permeates the 
consumer cosmos. With one wave of Disney's digital wand, 
the glass of Cinderella's slipper has been magically 
transformed into the cathode ray tube , \\. 
of a video monitor. x 

This heightened awareness is the 
death knell for manufacturers of 
consumer computers who do 
not provide sophisticated 
color graphics and ani- 
mation capabilities. 
Fueled by TRON 
(and the horde of 
video clones that are 
destined to follow), the 
public's demand for, 
and expectation of, 
more visually spec- 
tacular video games 
and educational 
displays will surely 
take quantum leaps. 
How can computer 
manufacturers and 
software houses ever 
hope to satisfy this 
demand? That's one 
tough technical quest- 
ion that some of the 
finest design teams in 
the world are currently 
tackling. One thing is 
obvious, though — more 
more special effects that 
implemented through software must 
instead be "integrated" in the hardware. This 
means more powerful, and easier-to-control VDP 
(video display processor) chips — the silicon workhorses 
responsible for the displays. 

The easier-to-control requirement doesn't necessarily 
mean easier for highly-trained, professional programmers 
to control. There will have to be a way for people such as 
as artists and "graphic gurus" with fantastic imaginations 
to interact directly with the display system — a way that re- 
quires only a bare minimum of "programming" experience 
to implement sophisticated visual effects. 

To anyone familiar with the interactive graphics capability 
of the Texas Instruments 99/4A Home Computer, it is ob- 
vious that TI has already made great strides toward this 
design goal — great enough, in fact, to cause at least two 



other well-known computer manufacturers to attempt to 
emulate Tl with their "newly-discovered," smoothly mov- 
ing graphic patterns now known universally as sprites. Color 
sprites as implemented on the TI-99/4A, however, have yet 
to be equaled in their versatility and ease of use in a multi- 
language environment. (Extended BASIC, TI LOGO, 
UCSD Pascal, 99(X) Assembly Language and TI PILOT). 

A Flat, Yet 3-D Sandwich 

The wonder VDP chip behind sprites and other video af- 
fects that the 99/4A is capable of producing is called the 
TMS9918A. This complex LSI (large-scale integrated) chip 
represents the next generation beyond the many small- and 
medium-scale integrated circuits that formerly had to be 
assembled to achieve a display with a minimal level resolu- 
tion required for video games. 
But the consolidation 
of many-into-one 
wouldn't merit 
, ^^ .i an entire 

A y'^ I article 




here if it 
weren't for the 
chip's novel approach 
to dramatically simulating a 3- 
dimensional animated graphic display: It does this by 
creating nearly three-dozen flat, "stacked" geometric planes 
that are sandwiched one on top of the other onto the pic- 
ture tube of your TV or color monitor. 

On each of the first 32 planes (numbered to 31), we 
can define the image of one sprite, give it one of the 15 stan- 
dard colors (the 16th is transparent), and then set it in mo- 
tion quickly and smoothly. We do not have to redefine the 
imagery over the screen to simulate motion, because once 
set in motion, a sprite can continue to move without fur- 
ther program control. When a sprite on a lower numbered 
plane (closer in the foreground) comes into contact with 
another sprite on a higher numbered plane, it progressively 
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,■■ - — MULTICOLOR PATTERN PLANE 

J — BACKDROP 
— EXTERNAL VIDEO 
— REARMOST PLANE 

blots the second one out 
and creates the illusion of passing in 
front of it. 

For example, in the figure shown here, the moving car 
that is composed of four sprites set in motion together on 
plane numbers 2-5 will pass behind the stationary tree (com- 
posed of 2 sprites on plane numbers and 1) and in front 
of the billboard which is drawn on the plane immediately 
behind the rear-most (number 31) sprite plane. By the same 
design rules, the cloud (plane 7) will mask the color of the 
sky behind it, and a bird (plane 6) both mask the sky behind, 
and appear to fly in front of the cloud. And since sprites 
move in a transparent surrounding, the scenery in the 
background behind the car may be seen through the "win- 
dows" of the moving vehicle! The entire scene has the ap- 
pearance of depth and simulates a 3-D animated color 
movie. 

The Multicolor or Pattern Plane is used for textual and 
fixed-graphics images. It is this plane (containing the sky, 
mountains, bushes, billboard, fence, roadway and grass) 
that the sprites on the remaining 32 planes appear to pass 
directly in front of. 

Immediately behind the Multicolor Plane is the Backdrop 
Plane— solid-colored and slightly larger than the other 33 
planes in front of it, so that it forms a rectangular rim 
around the other elements on the display. 

The rearmost plane is pure black, so that when the other 
planes are set to transparent, the screen appears to be black. 
Although there is no provision in the current version of the 
TI-99/4A for simultaneous on-screen mixing of external 
video with computer-generated graphics (e.g., sprites or fix- 
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ed graphics mixed with input from a video cassette recorder 
or video disk player), the TMS9918A chip can, in fact, ac- 
comodate external video; this video would be displayed on 
the rearmost plane with part or all of it masked by computer- 
generated graphics until needed (e.g., as subtitles for the deaf 
or foreign language translation or perhaps a "real-life" 
video-taped space movie scene viewed through a scanner 
screen of a computer-generated starship command center). 
Add to this the capability of chaining together multiple 
991 8 A chips, and you have the potential for a visual gam- 
ing or educational environment (in future versions of the 
TI Home Computer) that is simply mind-boggling! 

Those Magical Sprites 

When sprites are on the screen, the 9918A chip organizes 
the display into a high resolution pattern of 256 by 192 lit- 
tle boxes or picture elements called "pixels"— the smallest 
controllable elements on the display. Each one of these 
49,152 pixels represents a possible address for a sprite to 
reside at, or pass through when moving across the screen. 

The shape of a regular or standard sprite is defined by 
an 8 X 8 bit pattern stored in memory. Each of these 64 
bits correspond to one of the 49,152 screen pixels mention- 
ed previously — with each being a single color whenever the 
bit pattern contains a 1 (is thereby "turned on"); a zero 
designates transparency ("turned off). We can specify a 
larger sprite by either (a) using a 16 x 16 bit pattern ("a 
double-sized unmagnified sprite"), (b) magnifying the ex- 
isting sprite by a factor of four, ("single-sized magnified"), 
or (c) using both techniques together to create a sprite six- 
teen times normal size ("double-sized and magnified"). This 
size feature allows screen objects to grow and shrink at 
will— with virtually none of the programming effort that 
would be required in more conventional VDP systems. 
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This high-resolution scene is shown over-sized to illustrate 
the color combination possibilities in Bit-Map Mode. Notice 
the color blending and shadings that the eye perceives when 
viewing the same scene on the screen-size display of the lower 
figure. 

Each sprite carries four attributes: The first two specify 
its horizontal and vertical position; the third defines its shape 
"name" (according to the bit-pattern concept described 
above); and the fourth specifies its color. Moving a sprite 
is simply a matter of changing its position indicators; it will 
continue moving smoothly on its own. The high-speed, 
smooth motion of a sprite compared with a conventional 
moving-graphic element is due to the smaller, more precise 
"steps" (higher resolution) that the sprite can take while 
moving. Animated secondary motion — for example, 
rotating wheels or an asteroid tumbling through space— is 
achieved by defining ("naming") several similar 

looking sprites in different 
secondary positions (e.g., 



□ 

- standard 



□ 

single-sized and magnified 



double-sized and unmagnified 



double-sized and magnified 



States of rotation). Then 
swapping the sprite names 
causes what appears to be 
a single sprite to move 
smoothly across the screen. 

The TMS9918A VDP 
chip has four modes of op- 
eration: (1) Graphics 1 or 
Pattern Mode, (2) Graphics 
2 or Bit-Map Mode, (3) 
Text Mode, and (4) Multi- 
color Mode. The Pattern 
Mode consists of a 32-co- 
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Notice the difference between the Pattern Mode in the top 8x8 
pixel square which is limited to just 2 colors (foreground and back- 
ground), and the Bit-Map Mode of the bottom 8x8 pixel square 
which is allowed 2 unique colors in each horizontal 8-pixol row. 



lumn by 24-row grid of 8 x 8 pixels in each 2-color grid 
square. Bit-Map Mode (shown in the above figures) allow 
each of the 8 horizontal rows within an 8 x 8 grid square 
to have 2 unique colors. In Text Mode the screen is a 
2-color single plane (so sprites aren't available) of 40 col- 
umns by 24 rows composed of 6 x 8 grid squares. This 
allows an ASCII character set with each character form- 
ed from a 5 X 7 pixel grid, with 2 pixels between 
characters and rows. Multicolor Mode [see the "Super 
Crayon" article in this book for more information] 
divides the pattern plane into an unrestricted 64-column 
by 48-row color-square display, with each 4x4 pixel 
square allowed to take on any of the 15 colors or be made 
transparent. 
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Although glitches, crashes, errors, false printouts, 
memory loss, and other forms of erratic 
microcomputer operation are usually blamed on 
software and hardware, most of these annoying problems 
actually come to you courtesy of your ordinary 120-volt 
powerline! These problems are directly traceable to three 
general causes: (1) processor-memory-peripheral interaction, 
(2) power line noise/hash, and (3) transient voltage surges. 
Fortunately, serious computer users don't have to live with 
these problems, because many types of corrective devices 
are available. 
Powerline Coupling 

The fact that microcomputer systems are so easy to hook 
up— just plug the computer and peripherals into the wall 
socket, and connnect the components with a few convenient 
male/female preassembled cables— makes them susceptible 
to power line noise. Connecting them to powerline strips 
that are integrated with RFl (radio-frequency interference) 
filters will effectively isolate the computer and peripherals 
from each other and from the power line — thus providing 
a convenient solution to the problem. 
Hash 

Hash is another problem altogether. When your favorite 
space-war game gets fouled up by "glitches," or your 
previously-proven-to-be-faultless program "blows up" or 
creates erroneous printout, externally created hash is the pro- 
bable cause. Elimination of hash at the source is the most 
desirable solution. But with hundreds of potential sources 
(arcing in tools, motors, appliances, and other small elec- 
trical devices, plus loose, defective, or corroded light sockets, 
wall sockets, line-cord plugs, or wire connections), pinpoint- 
ing the offender is often most difficult. That's where hash 
filters are most effective. They often can completely 
eliminate the interference. 

An alternate approach to the hash problem is first to make 
certain that all equipment covers and shields supplied by 
the manufacturer are securely fastened in place. If that 
doesn't work, you might try building and installing your 
own shield. Also don't forget to make sure that you have 



an adequate grounding system with direct ties to a good 
ground rather than ground loops (which often provide a 
home for system hum that can induce glitches). 

Transient Voltage Surges. 

Transient voltage surges (transients) are certainly not 
friends of microcomputer circuitry. Semiconductor com- 
ponents are easily damaged by these momentary spikes— 
often 5 or 10 times the normal AC line voltage. And in- 
dustry studies indicate that some transients have pulses up 
to 5,600 volts! 

Common causes of destructive powerline transients in- 
clude (1) demand power load switching by utility companies, 
(2) nearby lightning strikes, (3) static discharge, and (4) 
on/off switching of inductive motors, power supplies, air 
conditioning and refrigeration units. Any of these can cause 
a Differential Mode powerline surge — one in which short 
surges of extremely high voltage are developed between the 
AC lines. Anything connected to the AC lines will get a dose 
of this damaging voltage. The resulting "domino effect" 
could wipe out large sections of microcomputer memory. 

A Common Mode surge occurs when both AC lines are 
brought to a very high voltage— a situation usually caused 
only by lightning. This high vohage may cause arcing bet- 
ween conductors and ground, destroying the insulation of 
power transformers (rendering the units worthless) and 
cables. Damage to switches and controls is also a frequent 
occurrence in this situation. 

Besides the surge damages that are immediate and per- 
manent, there are some harder-to-detect damages as well: 
deteriorated performance and shortened life-spans. These 
damages can be the most irritating since equipment will re- 
quire repeated servicing and will often seem to be falling 
apart. 

Fortunately, a large measure of surge protection is possi- 
ble with clamping devices that can be placed across the AC 
line and between each AC line and ground. These devices 
are frequently built into special AC line cords, and thus, 
like the other protective devices mentioned, can be attach- 
ed without altering any equipment. 
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Murphy's Law 

and the Home Computer 



The significance of Murphy's Law is etched into the 
hearts and minds of all professional programmers. 
As an outgrowth of their crucial need to prevent 
costly errors and protect their sanity, these professionals 
have developed a set of rules for minimizing the expected 
problems inherent in any programming project. In this 
article, I'll acquaint you with a few of these "tricks of 
the trade" that you can adopt when working with your 
own home computer. 

Rule #1 — Name that Variable 

Most beginning programmers select simple two-letter 
variable names like XI, X2, X3, etc. The major problem 
with this kind of naming scheme is that you tend to forget 
what each one represents. Fortunately, both of TI's 
BASIC languages allow you to use long variable names. 
Unfortunately, using long names tends to slow down a 
BASIC language program. The solution is to pick a 4- 
or 5-letter name that adequately identifies the variable 
it represents. For example a program that needs a loop 
counter could have the name "LOOP" for the counter. 
[When picking names for variables, you should also be 
careful to avoid reserved words used in BASIC. If in 
doubt, check your User's Reference Guide. — Ed.] Keep 
a running list or chart of variable names and their mean- 
ings in front of you while you program. Avoid the temp- 
tation to add a variable to your program without updating 
the chart. 

Rule #2 — Save that Program 

Get used to SAVEing your program after typing in 
about 50 program lines if your storage medium is a flop- 
py disk, or 75 lines if cassette tape. Keep your labels up- 
to-date or else you may get confused in case of trouble. 
I always place the version number "V.XX" on the 
cassette before recording on it. Flipping the tape over and 
scratching out the old version number as soon as the pro- 
gram has been SAVEd makes sure that I don't accident- 
ly record over my last SAVE. For disk users, I suggest 
that they SAVE their programs under the names VOl and 
V02 alternately so that they don't fill up a disk. 

Rule #3— Walk, Don't RUN 

Computer-induced heartburn is one experience you'll 
definitely want to avoid. Yet how many of you court this 



"ANYTHING THAT CAN GO 
WRONG WILL GO WRONG" 
— Murphy's Law 

"And at the worst possible time." 

— Pincus's Corollary to Murphy's Law 



malady by meticulously entering the last 50-75 lines of 
your program, then typing in RUN? If you're guilty of 
this practice, don't be too surprised if Murphy pays an 
unexpected visit and causes your computer to "freeze" 
on you— effectively wiping out everything in memory. 
The best way to avoid this is to always "back up" your 
entire program (on tape or disk) before you RUN it the 
first time. Then verify your recording. The next step is 
to plan what you want to test: Don't expect to have the 
program execute successfully the first, second, or even 
third time that you try it out. Instead, take a blank sheet 
of paper and write down what you want to test and how 
you will do it. Then RUN your program following your 
plan. If you notice a problem that does not halt your pro- 
gram, write it down on your test sheet and keep going. 
Don't stop to figure out what program line caused the 
problem; there will be time for that later. And above all, 
avoid the temptation to correct the error right away. Do- 
ing this will cause the following: 

• If you change a program line, TI BASIC resets all the 
variable data (that you entered during your test) to zero 
or spaces. Subsequently, you will have to retype all that 
data back into your program. 

• You may lose your train of thought when you stop your 
test in the middle. It's possible to miss testing a major 
item because you spent your time fixing a minor problem. 

After you have done as much of your test as possible, 
stop the program and begin fixing all the "bugs." Don't 
forget to mark down the statements that you change. This 
will come in handy if you must restore a previous ver- 
sion because of a problem in making corrections. There 
are various way to correct (debug) a program, some of 
which you'll encounter as you read through this book. 
One of the best, however, is Rule #4. 

Rule #4— Test, Test, TEST ! 

Any professional programmer will tell you that it's ex- 
tremely difficult to produce a bug-free program— maybe 
even virtually impossible to do with very complex pro- 
grams. So even after extensive testing, your program may 
have minor flaws in it. Therefore, the only way to pro- 
duce a relatively clean program is to test it as much as 
possible. This brings up another corollary to Murphy's 
law: "The only programs without bugs are the ones not 
yet written." This says it all, and should be reason enough 
to TEST, TEST, TEST ! 
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Languages for 
the Home Computer 



Chatting 
with 
Your Micro: 




Home Computers are indeed wonderful machines. 
They have been carefully designed to allow begin- 
ners to do meaningful tasks, act as educational tools, 
and provide hours of inexpensive family entertainment. 

All of this is made possible by the availability of "user- 
friendly" software— Command Cartridges, cassette tapes, 
and floppy disks that have been pre-recorded with program- 
ming instructions the computer can understand and carry 
out. 

Users of this software need not concern themselves with 
how this programming was actually produced— unless, of 
course, they get smitten with that highly contagious human 
germ known as "curiosity," and want to understand 
something about the process. 

"Programming" the Home Computer is not some 
mysterious rite that is meant to be practiced by a select few 
in secrecy. Rather, it is simply a means of communicating 
with a machine in a language that both humans and human- 
designed electronic circuits can understand — nothing more 
elaborate than basic, down-to-earth communication. 

Languages, whether human-to-human or human-to- 
machine, differ widely in their complexity. Depending on 
the language, varying amounts of memorization and prac- 
tice are required before a "speaker" can communicate ef- 
fectively. The levels of computer language complexity run 
the gamut from conversational English phrases, to the swit- 
ching on and off of electric current that the machine 
"understands" and transforms into various actions. 

Before a user can begin communicating with a computer, 
however, one of three conditions must be met: (1) The user 
must be able to communicate in the computer's language; 
(2) the computer must be able to communicate in the user's 
language (i.e., English, German, Spanish, etc.); or (3) some 
common intermediate language must be established, 
understood, and used by both parties. By definition, the 
closer this intermediate language is to the machine's natural 
"electrical" language, the lower its level. And conversely, 
the closer to the human's language, the higher the level. 

Machine Language 

First, let's take a look at the lowest level of common in- 
termediate language— referred to as "machine language." 



Since electricity can either be on or off— one of two pos- 
sible conditions — machine language can only be constructed 
from two "words." This binary language is often express- 
ed by humans with the two digits 1 and 0, with 1 represen- 
ting the "on" state (presence of electricity), and represent- 
ing the "off state (absence of electricity). Absolutely s/iocJt- 
ing in its simplicity, isn't it? 



Figure 1. 
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Figure 1 represents six machine language "sentences." 
It's not easy for a human to understand, is it? Yet when 
communicating this way, more explicit control of the 
machine is possible, because there can be nothing "lost in 
the translation." 



TMS99(M) Assembly Language 

Human difficulty in communicating in a binary language 
led to the next step in the evolution of higher-level 
languages — an easier-to-remember ("mnemonic") way of 
expressing these binary "sentences." This was done by 
assigning combinations of alphabetic letters to represent 
operations formerly only expressable by binary sequences, 
and assigning a full range of characters (including numbers) 
to represent the things actually "operated" on. 

This easier, alphanumeric way of communicating is call- 
ed Assembly Language because these newly created scores 
of symbols must eventually be translated back (assembled) 
to their binary equivalents for the machine to carry them 
out. 
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Figure 2 








REF 


VMBW.INPUT 


LINE 1 


TEXT 


•HI, I AM THE TI-99/4A' 


LINE 2 


TEXT 


•HOME COMPUTER ' 


LINE 3 


TEXT 


•WHAT'S YOUR NAME?' 


BUFFER 


BSS 


32 


LINE 4 


TEXT 


•NICE TO MEET YOU, ' 


GREET 


LI 


R0,0 




LI 


Rl.LINEl 




LI 


R2,32 




BLWP 


@VMBW 




LI 


R0,64 




LI 


RI,LINE2 




BLWP 


@VMBW 




LI 


R0,128 




LI 


R1,LINE3 




BLWP 


@VMBW 




LI 


RO.BUFFER 




BLWP 


©INPUT 




LI 


R0.256 




LI 


R1,LINE4 




BLWP 


@VMBW 




LI 


R0,288 




LI 


RI, BUFFER 




BLWP 


@VMBW 




END 


GREET 



Note: Keep in mind that the use of this and other sample program 
segments that follow are for comparison purposes only, and do not in- 
dicate the true power of any of the languages. Note also that the reference 
to a routine called INPUT doesn't imply the existence of that routine 
(as this is only an example). 



In Figure 2 we are showing you part of an Assembly 
Language program that causes the computer to print several 
English language messages on the screen, and allows it to 
accept and acknowledge human response via the keyboard. 
The screen dialog goes like this: 

HI, I AM THE TI-99/4A 

HOME COMPUTER 

WHAT'S YOUR NAME? 



You type in your name 



NICE TO MEET YOU, 



Your name appears here 



Observe in Figure 2, the left to right sequence of symbols 
that must be followed if the program is to be assembled cor- 
rectly. As an example of the proverbial "before and 
after" — Assembly Language lines that have been assembl- 
ed back to binary — take a look at the last seven lines of sym- 
bols in Figure 2. The machine language that results from 
the assembling of these symbols appears as the entire se- 
quence of left-to-right binary sentences shown in Figure 1 . 



Higher-Level Building Blocks 

Although some very important programming is still done 
at the Assembly Language level, the majority of programs 
written are in higher-level languages. These languages are 
closer to human languages such as English than to machine 
language. To generate these higher-level languages, we must 
take ordered groups of Assembly Language statements and 
equate each group with a single word of the new, higher- 
level language we are generating. Each word of this new 
language is much more powerful than any single Assembly 
Language symbol: With one new higher-level word, we can 
make the computer do several things. This is a powerful 
technique, indeed, and has been the basis for all computer 
languages that have evolved. 

For the computer to understand one of these new English- 
like languages, the language must first be translated into 
machine language. 




Compiling & Interpreting Down 

When translation of all the high-level language statements 
in a program takes place before the computer acts on the 
statements, the language is said to be compiled. The binary 
sequences that result from this compilation are then saved 
and later used directly any number of times. 

On the other hand, the language is said to be interpreted 
when the computer acts on each statement immediately after 
that statement's translation. Therefore, every time an in- 
terpreted language program is "run" (all statements follow- 
ed step-by-step to completion), the program must be re- 
translated. Because of this basic difference in translation 
technique responsible compiled language programs are faster 
than interpreted ones. 

This is not to say that interpreted languages do not have 
compensating advantages. Ease of use is a case in point: 



Additional Terms You'll Want to Know 



command cartridge— A plug in plastic 
cartridge from Texas Instruments with in- 
tegrated circuits that contain a computer pro- 
gram (software). 

floppy disk — A mass storage device using 
a flexible mylar disk to record Information. It 
is a more sophisticated alternative (quick ran- 
dom access) to cassette tape storage (se- 
quential access). 

Home computer— The Texas Instruments 
TI-99/4A console with either home television 
or Tl Color Monitor. 



integrated clrcuittlO— integrated circuits 
have many individual components packed 
together or Integrated in a small area. The cir- 
cuits of the computer are fabricated on silicon 
chips. A chip is typically about 1/4 inch on a 
side. Today's chips are so sophisticated that 
the basic components of an entire computer 
can be fabricated on a single chip, 
mnemonic— Assisting or intended to assist 
the memory. 

screen — The home television or Tl monitor 
to which tthe computer outputs Information 



like numbers/letters/graphs, etc. 
Speech Synthesizer— A peripheral device 
built by Texas Instruments for use with the 
Home Computer and used to reproduce the 
human voice electronically. 
TMS9S00 — A very sophisticated integrated 
circuit (called a "microprocessor") containing 
all the most basic components of an entire 
computer. Designed and built by Texas In- 
struments, it is the heart of the Home 
Computer. 
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Just as soon as we finish writing the last program statement 
in an interpreted language, we can immediately run the 
program— without having to go through an additional in- 
termediary step such as compilation. The translation in an 
interpreted language is therefore invisible or hidden from us. 

Furthermore, in many interpreted languages such as the 
BASIC language that comes built into your Home Com- 
puter, statement misuse or errors of spelling in language 
vocabulary are checked for right at the time the statements 
are typed in. Appropriate error messages (if needed) will 
appear on the screen; the person doing the programming 
can then make immediate corrections. 

TI BASIC 

Because TI BASIC is a high-level and interpreted 
language, it is easy to learn and use. The sample program 
segment that follows (Figure 3) will cause the computer to 
carry on a dialog similar to the one previously shown in 
Figure 2. Notice how much easier the TI BASIC version 
is to understand. 



Figure 3 


100 


PRINT "HI, I AM THE TI-99/4A" 


110 


PRINT "HOME COMPUTER" 


120 


PRINT "WHAT IS YOUR NAME?" 


130 


INPUT NAMES 


140 


CALL CLEAR 


150 


PRINT "NICE TO MEET YOU," 


160 


PRINT NAMES 


170 


END 



TI Extended BASIC 

TI Extended BASIC, one of the higher-level languages 
that you can add to your Home Computer by plugging in 
the separate Command Cartridge for the language is similar 
to the regular built-in BASIC. It gives you everything that 
the regular BASIC does plus many special additional 
features such as arcade-style animated graphics (known as 
"sprites"), commands to control the Speech Synthesizer, 
as well as more precise control of on-screen text messages 
(demonstrated in Figure 4). 

Figure 4 

100 DISPLAY AT(2,I):"HI, I'M THE TI-99/4 HOME 

COMPUTER" 
1 10 DISPLAY AT(6,1):"WHAT IS YOUR NAME?" 
120 ACCEPT AT(8,5) VALIDATE 

(UALPHA)SIZE(15):NAME$ 
130 CALL CLEAR : : PRINT "NICE TO MEET YOU, 

";NAME$ 
140 END 



TI LOGO 

Another interpreted language very popular with children 
and educators is TI's unique implementation of LOGO. It 
contains the previously mentioned sprites and features "Tur- 
tle Graphics." These line drawings generated by a "pen" 
attached to a simulated "turtle" object (that is moved about 
the screen with only simple heading and distance commands) 
are both enchanting and instructive— contributing to the 
wonder of discovery that children experience with the com- 
puter. See Figure 5 for a sample TI LOGO program (known 
as a procedure). 
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Figure 5 

TO GREET 
CLEARSCREEN 

PRINT [HI, I AM THE TI-99/4A1 

PRINT [HOME COMPUTER! 

PRINT [WHAT IS YOUR NAME?] 

CALL READLINE "N 

PRINT "HELLO, 

PRINT :N 

END 



TI PILOT 

Whereas LOGO is a high-level language with great 
depth — i.e., the built-in vocabulary can be "customized" 
by the user— TI PILOT, another high-level language, is 
much more abbreviated. With a fixed vocabulary of only 
15 major commands, the interpreted TI PILOT language 
still allows access to sprites, color graphics, and sound. Each 
command is represented by one or two letters followed by 
a colon. The program segment in Figure 6 illustrates a dialog 
in PILOT. 



Figure 6 

D: R$(15) 

T: HI, I AM THE TI-99/4A 

T: HOME COMPUTER 

T: WHAT IS YOUR NAME? 

A: R$ 

T: HI THERE. $R$ 
E: 



With PILOT, you can develop effective educational pro- 
grams even if you've had little or no programming ex- 
perience. For this reason, PILOT is favored by educators 
as a language highly suitable for producing computer- 
assisted instruction (CAI) courseware. 

UCSD Pascal 

Currently, the only high-level compiled language available 
for the Home Computer is University of California at San 
Diego (UCSD) Pascal. This version of Pascal includes func- 
tions for accessing all the special Home Computer features. 
The language is more appropriate for professional program- 
mers or users who wish to delve into more sophisticated pro- 
gramming. Although not as difficult as Assembly Language 
to master, UCSD Pascal is, nevertheless, much more dif- 
ficult than other high-level languages on the Home 
Computer. 

This compiled language also happens to be highly 
structured — i.e., it restricts programs to modular organi- 
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zation according to sets of specific construction rules known 
as syntax. Because it is both compiled and structured, pro- 
grams written in UCSD Pascal are faster and easier to 
modify than most other high-level languages. This makes 
it a suitable language for large business and scientific pro- 
grams. See Figure 7 for a very simple (almost trite!) exam- 
ple of our now-familiar man-machine dialog as written in 
Pascal. 



Figure 7 

PROGRAM GREET; 

VAR NAME: STRING; 

BEGIN 

WRITE(OUTPUT/HI,I AM THE TI-99/4A '); 
WRITELN(OUTPUT/HOME COMPUTER.'); 
WRITELN(OUTPUT,*WHAT IS YOUR NAME?'); 
READLN(INPUT,NAME); 
WRITE(OUTPUT,'NICE TO MEET YOU, '); 
WRITELN(OUTPUT,NAME'); 
END. 



Figure 8 


10 


CLEAR 


20 


MAKE + 


30 


MAKE X 


40 


COLOR SCREEN RED 


50 


COLOR + BLACK 


60 


COLOR X GRAY 


70 


LET Rl = 5 


80 


LET CI = 5 


90 


LET R2 = 21 


100 


LET C2 = 13 


110 


REPEAT 9 


120 


DRAW + IN R0W#R1 COL#Cl 


130 


DRAW X IN ROW#R2 COL#C2 


140 


LET CI = CI + 1 


150 


LET R2 = R2 - 2 


160 


END 



ASPIC 

Early in this article we implied that higher-level languages 
are constructed from other languages. This means that you 
have the opportunity to design your own personal languages 
for communicating with your Home Computer. You can 
do this by defining both the syntax and each word of your 
new language in terms of the statements and commands of 
an existing Home Computer language. The new ASPIC 
language is a case in point. Constructed from TI BASIC, 
ASPIC was created to simplify a child's manipulation of 
color graphics on the Home Computer. Figure 8 shows an 
example of a typical program segment. [See ASPIC article 
in this book for a complete discussion of this new 
language — Ed.l 



TI FORTH 

If you want to modify a language to fit your own par- 
ticular needs, TI FORTH may be for you. FORTH is 
much like LOGO, in that the basic language implemen- 
tation consists of a small number of built-in primitives 
(called definitions) from which you may construct new 
definitions. The primitive definitions and the new defini- 
tions which you create are entries in FORTH's dictionary. 
Once you've entered your new definitions in the dic- 
tionary, however, they're a permanent part of your 
FORTH implementation. Programmers who feel the need 
to simplify their work with custom modifications — 
software developers, for instance — will be most interested 
in FORTH. 

Now it's up to you ... Go ahead and strike up a conver- 
sation with your new-found electronic friend. Who knows? 
New respect for and long-lasting Ties with your Home 
Computer may be the result. 



COMPARISON OF LANGUAGES 
FOR THE TI-99/4A HOME COMPUTER 





Minimum 
Cost of 
Componen 

To Run 
Programs 


Relative 
System . 
s Needed 

To Write 
Programs 


Ease 
ol 
Use 

(1-10)^ 


Execution 
Speed 
(MO)* 


Color 
Graphics 
Supported 


Sprites 
Supported 


High 
Speed 
Turtle 
Graphics 
Supported 


Speech 
Supported 

(with 
additional 
Synthesizer 
peripherals) 


IMusic 
Supported 


ASPIC 


1.0 


1.0 


9 


1 


yes 


no 


no 


no 


no 


3900 
Assembly 

Language 


1.3 
Note 2 


4.7 
Note 3 

1.3 
Note 3A 


1 


10 


yes 


yes 


no5 


yes 


yes 


TI BASIC 


1.0 


1.0 


7 


3 


yes 


no 


no 


no« 


yes 


TI Extended 
BASIC 


1.3 


1.3 


6 


4 


yes 


yes 


no 


yes 


yes 


TI LOGO 


2.9 
Notes 


2.9 
Notes 


8 


4 


yes 


yes 


yes 


yes 


yes^ 


UCSD Pascal 


3.3 
Notes 


7.3 


4 


7 


yes 


yes 


no* 


yes 


yes' 


TI PILOT 


5.4 


7.5 


10 


5 


yes 


yes 


no 


yes 


yes' 


TI FORTH 


1.3 


4.7 


4 


7 


yes 


yes 


no 


yes 


yes 



1. Relative cost ratio with price of a 
TI-99/4A taken as unity. 

2. Cost for running assembled program 
In Mini Memory cartridge. 

3. Cost for writing Assembly Language 
programs using Editor/Assembler. 

3A. Cost for writing very small 
Assembly Language sub-routines & 
programs using Mini Memory cartridge 
and separate Editor/Asembler Manual. 

4. Number 1 represents worst case; 10 
represents best case. Please note 
these values are subjective and are not 
based on any laboratory test data. 

5. With the proper background and ex- 
perience, the user can use this 
language to write his own turtle 
graphics support routines. 

6. If the Speech Editor cartridge or Ter- 
minal Emulator // are added to the 
system, speech can be supported by 
the language. 

7. The new TI LOGO II, TI PILOT, and 
USCD Pascal have enhanced music 
commands. 

8. Minimum configuration based on 
cassette storage. 
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HOW TO WRITE YOUR OWN 



Using 
To Oi 




Sitting down in front of your TI-99/4A and running 
packaged software may stimulate your desire to try 
some programming of your own. If you have taken 
courses in computer programming or have had some prac- 
tical on-the-job training, you can probably type some lines 
and have the computer do what you want. However, if you 
haven't had this experience, you may soon find the frustra- 
tion of not knowing where to start too much to bear. Well, 
take heart! Here we present some basic information on how 
you can begin programming on your own. 

A Framework for Writing Programs 

Computer programming is an exercise in reasoning and 
logic. Before programmers develop software to do specific 
jobs, they plan their attack on the individual elements that 
are inherent to those jobs or problems. It is helpful to have 
in mind a general framework for solving each problem. 

This general framework could take a number of different 
forms. Most will, however, contain similar steps. These steps 
can be described as follows. 

1. Define the Problem 

Initially, it is necessary to have a good understanding of 
exactly what you want the program to do. If it is possible, 
try to express the problem in a simple thought or sentence 
stating the intended outcome of the programming effort. 
Defining the problem in this manner may not only save you 
time, but may also help focus your efforts. 

2. Outline the Solution 

This step is the primary purpose of this article. We'll get 
back to examine this step in more detail later. 

3. Select the Algorithm 

Many problems requiring a computer for solution depend 
on certain mathematical algorithms that are required in the 
calculation of the desired solution. For those who are puz- 
zled by the word "algorithm," mathematicians and math 
teachers use this word to refer to the specific method of solv- 
ing a certain kind of mathematical problem. For example, 
you may have been taught to subtract whole numbers by 
placing the larger number on top, the smaller on the bot- 
tom, and to borrow when necessary. This is but one possi- 
ble algorithm for subtraction. In general, you can either 
locate those algorithms that are necessary from published 
sources, or design your own. In either instance, the simpler 
the algorithm, the better. 

4. Writing the Program 

Many people believe the writing or "coding" of the pro- 



gram is what computer programming is all about. Actual- 
ly, this is just one in a series of steps. Prior planning (as 
detailed in steps 1-3, above) is absolutely essential before 
the actual writing of the program can begin. And inherent 
in the writing of the program must be a reasonable 
understanding of the computer language you will be using. 

5. Debugging 

Once you have typed the program into the computer, it 
is necessary to run it to determine if and what difficulties 
exist. You will seldom write an error-free program on the 
first draft. Trying to locate and correct those "bugs" can 
be frustrating. This is where some of the 99/4A's built-in 
features help tremendously. 

6. Validating the Program 

In this step, you intentionally try to locate situations in 
which the program yields inaccurate or undefined solutions. 

7. Documentation 

It is a good idea to record the characteristics of the pro- 
gram such as its intent, algorithms, and specifications. Some 
day, in the future, when you decide to modify this program 
you will be very happy that this documentation exists. In- 
cidentally, when buying a program, the author's documen- 
tation (or lack thereof) can often be a good indication of 
the quality of the program. 

Outlining the Solution 

The development of an adequate outline (Step 1 above) 
is the most critical step in writing a program. Many of us 
dabblers in the art of programming seem to fail in develop- 
ing an adequate outline. My intention here is to demonstrate 
to you some elementary outlining techniques— in the hopes 
that we, the dabblers, may be able to improve our lot in 
the somewhat puzzling world of bits, bytes, and bugs. 

Flowcharting 

There are a number of methods available for outlining 
a solution to a problem. Of those used in computer pro- 
gramming, flowcharting is one of the simplest and easiest. 

To introduce you to the flowcharting method, let's first 
look at some of the symbols used. 

1. START and END symbol 

CD 

This symbol is used to indicate both the beginning and the 
end of a program. 

2. INPUT -OUTPUT symbol 
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The input-output symbol is used to indicate where the user 
of the program will need to supply a piece of data or where 
a calculation will be printed out for the user. 

3. COMPUTATION or ASSIGNMENT symbol 

□Z] 

This symbol is used to indicate where computations or 
assignments of values to variables will occur. 

4. DECISION symbol 



O 



This decision symbol is used to indicate where a "yes" or 
"no" or "true" or "false" decision point is located. 
5. STOP symbol 

□ 

This symbol is used in some programs to indicate a termina- 
tion point if this point is different from the end point of 
the program. 

There are other symbols that can be used according to 
your needs. Also, remember that no rules exist to stop you 
from developing your own symbols. 

Toward a Workable Technique 

The outline strategy that works best for me is to start off 
simple and then increase the complexity of my outline until 
it does what I want it to do. My approach includes: (1) 
writing a sentence that defines the problem I want to solve, 
(2) preparing an informal outline, (3) developing a more 
complex flowchart, and then (4) writing the program. To 
demonstrate how this approach leads you to developing a 
better program, let's take a look at some examples. 

EXAMPLE 1 

For our first example, let's write a program that will add 
two numbers together and print their sum. We will design 
the program so that we may input two numbers from the 
console. This is called an interactive program, in that the 
user must input the values to be assigned to the variables. 
Following the approach presented, we first define the 
problem: 

Step 1. Definition of the Problem: 

The program will take two numbers being input from the 
console, add them together and print the sum. 

Step 2. Informal Outline: 

1. Start 

2. Input two numbers, A and B 

3. Add A and B 

4. Output the sum of the numbers 

Step 3. Flowcharting: 

Using the flowcharting symbols, the solution is further 
developed: 

y/wPUT A. 



symbol shows that the two values are requested, with the 
first input value being assigned to the variable A and the 
second to B. The addition of the two numbers and the 
assignment of their sum to a variable occurs inside the com- 
putation symbol. The value of the sum is then output, and 
the program ends. The algorithm necessary for the solu- 
tion is shown. 

Now that the problem has been outlined, we proceed to 
write or code the program. 

Step 4. Coding: 

100 REM **ADDITION PROGRAM** 
110 INPUT A,B 
120 LET S = A + B 
130 PRINT S 
140 END 

Explanation of the program. 

The program shows how the original intent is followed. 

Line 100 contains a REM statement allowing us a means 
of identifying the program. 

Line 110 allows the user to type in the two numbers to 
be added. 

Line 120 assigns the value of A plus B to the variable S. 
Line 130 prints the value of S. 
Line 140 ends the program. 

Since my primary intent here is to explain how an' outline 
is developed and used, I will not explain the TI BASIC com- 
mand statements but assume that readers of this article have 
already read most of the TI Beginner's BASIC, the book 
that came with their computer. 

EXAMPLE 2 

For a more complex example, let's develop a program 
that will select and print the larger of two input values. 

Step 1. Defining the Problem. 

Given two numbers, the program will select the larger of 
the two and print it. 

Step 2. Informal Outline: 

1. Start. 

2. Input two numbers, A and B from the console. 

3. Compare number A with B. If A is larger than B, print 
A. If A is not larger than B, print B. 

4. End. 

Step 3. Flowcharting: 



/ INPUT A, a/ 




Explanation of the flowchart 

The "flow" is evident in the continous line running from 
the initial start symbol to the final end symbol. The input 



y/oUTPUT / OUTPUT A ^ 



Explanation of the flowchart. 

The flowchart begins with the start symbol. The two 
values are then input. In the decision box, a comparison 
of the value A with B takes place. If the statement A>B 
is true, the computer is instructed to bypass the output B 
box, and output the value of A. If the statement is false, 
the computer continues down the chart to output the value 
assigned to B. The program then ends. 
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Step 4. Coding: 

100 REM **PR1NTS LARGER OF TWO NUMBERS** 

110 INPUT A,B 

120 If A>B THEN 150 

130 PRINT B 

140 GOTO 160 

150 PRINT A 

160 END 

Explanation of the program. 

Line 100 is a REM statement used to identify the 
program. 

Line 1 10 allows the user to input the two numbers to be 
compared. 

Line 120 is used to compare the two numbers. If the state- 
ment A is greater (>) than B is true, the computer is then 
instructed to go to line number 150 to print A. If the state- 
ment in line 120 is false the computer continues to the next 
line. 

Line 130 prints the value of B, as it must be the larger. 

Line 140 is used to direct the computer to go to line 160. 
Without this line, the computer would print the value of 
B, then the value of A. This is, of course, not what we 
wanted. 

One difficulty exists with this program. If A and B are 
equal, the program will not be able to distinguish the two. 
(If this arises, B will be printed.) This difficulty could be 
corrected for this situation by allowing another step where 
value A and value B could be displayed. 

EXAMPLE 3 

Let's take a look at one more simple example. This time 
we'll try writing all the squares of the integers between 1 
and 99, inclusive of the two boundaries. 

Step 1. Defining the Problem: 

The program will make a list of all the squares of the 
integers between 1 and 99, inclusive. 

Step 2. Informal Outline: 

1. Start. 

2. Let N be a variable whose initial value is 1. 

3. Compute the value of N^, and let the result be the 
value of S. 

4. Print N and S on one line of the screen. 

5. If the value of N is 99, then end the program. Other- 
wise go to step 6. 

6. Add 1 to the value of N and then go back to step 3. 
Step 3. Flowcharting: 




Explanation of the flow chart. 

After the program starts, the variable N is increased by 
1. As the TI BASIC will automatically set the initial value 
of N to zero, using the statement N = N -h 1 will set the first 
value of N to 1. Next, the square is calculated. Both the 
integer and its square are then printed. The next step checks 
to see if N is equal to the upper boundary of 99. If N is 
equal to 99, the computer is instructed to end the program. 
If N is not equal to 99, the program loops back to add I 
to the value of N and continues. 

Step 4. Coding: 

100 REM **SQUARES** 
110 LET N = N-H 
120 LET S = NA2 
130 PRINT N,S 
140 IF N<99 THEN 110 
150 END 

Explanation of the program. 

Line 100 is the REM statement. 

Line 110 adds 1 to the variable N. 

Line 120 computes the square. 

Line 130 prints the integer N and its square S. 

Line 140 determines if the value of N is 99. If N is equal 
to 99, the computer goes to line 150 and ends the program. 
If N is not equal to 99, the computer returns to line 110. 

Line 150 ends the program. 

Now that we have seen the use of the outlining tech- 
nique in some rather elementary program examples, let's 
get serious and try something more challenging. 

EXAMPLE 4 

Let's try writing a program to test our recall of a series 
of digits. With each correct matching of a digit, we'll in- 
struct the computer to add another digit to the series. 
Step 1. Defining the problem: 

The program will display a series of digits of increasing 
length and ask the user to recall the correct order of the 
digits. 

(It might be helpful to place some limits on the program 
to further qualify what we want it to do. This can be done 
in the informal outline.) 

Step 2. Informal Outline: 

1. Start. 

2. Have the computer select a random digit. 

3. Display the series of digits for a short time. 

4. Clear the screen. 

5. Ask for a response from the user. 

6. Compare the response to the series of digits. 

7A. If the response is correct, congratulate and ask if the 

user wants to continue. 
7B. If the response is incorrect, show the correct series 

of digits and ask if the user wants to continue. 

8. If the user wants to continue, have the computer select 

another digit and add it to the end of the previous 
series. 

9. If the user does not want to continue, end the 
program. 
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Step 3. Flowcharting: 



select! 
nciT 




^ GOT ITl J ^ DISPLAY ^ 




Explanation of the flowchart. 

After the program starts, a random digit is selected. The 
series of digits is displayed, and the screen is cleared. The 
user is then asked to respond. If the response is correct, the 
computer offers congratulations with a GOT IT! message, 
then asks if the user wants to continue. If the response is 
incorrect, the computer says SORRY!, then displays the cor- 
rect response. The user is then asked if he wants to con- 
tinue. If the answer is yes, the computer loops back to the 
random digit selection box, tacks on an extra digit to the 
string, and continues. If the answer is no, the program ends. 

Step 4. Coding: 

In coding the program, we'll use the RANDOMIZE and 
RND statments from TI BASIC to get a better selection of 
digits. Take the number returned by RND, multiply it by 
10, then take the integer portion: The algorithm is 
INT(RND*10). In order to display, compare and add digits 
to the series, we'll translate them into a string using the STR$ 
function. 

Explanation of the program. 

Lines 100-170 are REM statements. 

Line 180 is the RANDOMIZE statement. 

Line 190 begins the selection of the random digit. With 
this statement, the computer will display a series of digits 
starting with a single digit and extending to an upper limit 
of 25 digits maximum. 

Line 200 is the algorithm for selecting the random digit 
and assigning its value to the variable A. 

Line 210 translates the digit selected to a numeric string. 
The line will also function in adding each digit selected to 
the end of the previous series of digits. 

Line 220 clears the screen. 

Lines 230-250 present the series of digits and tell you how 
much time you are allowed to study the series. 

Lines 260-270 time the digits being displayed. Going 
through the FOR. . .NEXT loop takes about five seconds. 

Line 280 clears the screen. 

Line 290 directs the computer to jump to line 320. The 
line is intended to get us out of the FOR I. . .NEXT I loop 
without disrupting it. 

Line 300 continues the FOR I. . .NEXT I loop. 



Line 310 ends the program. 

Lines 320-330 prompt the user to respond. 

Line 340 compares the response to the series of digits. 
If the response is incorrect, the THEN condition directs the 
computer to line 380, which is the SORRY! comment. If 
the response is correct, the computer goes to the next line 
(line 350). 

Line 350 clears the screen. 

Line 360 congratulates the user. 

Line 370 directs the computer to go to line 390, bypass- 
ing the SORRY! comment. 

Line 390 asks if the user wants to continue. 

Lines 400-410 check to see if the user is interested in 
continuing. 

Line 420 returns the computer back into the FOR 
I. . .NEXT I loop. 
Line 430 ends the program. 
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FINAL COMMENTS 

Once you've had a chance to use this approach— defining 
the problem, doing an informal outline, flowcharting, and 
then coding— in a project of your own, programming your 
computer )will no longer be as forbidding and mysterious 
as you first thought. 

Before attempting programs of your own, you may want 
to try a little exercise. Add the following features to the 
previous program: 

(1) Allow the user to choose how much time the digits are 
displayed on the screen. 

(2) If the response is correct, play a 3-note chord. 

(3) If the response is incorrect, play one note of noise and 
print a screen message that tells how many digits were con- 
tained in the largest number correctly guessed. 
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LIVENING UP 




The CALL SOUND subprogram in TI BASIC com- 
mands an amazing integrated circuit in your TI-99/4A 
called the SN76489 Sound Generation Controller. On 
a single chip, TI has squeezed in three programmable fre- 
quency dividers, a programmable noise generator, four pro- 
grammable attenuators (volume controls), and eight registers 
to hold the data that control the tones, noise, and their 
volume levels. In effect, the tones and noise are synthesized 
to your specifications from a frequency of 3.58 megahertz; 
this is also the frequency that carries the color information 
from your computer to your color monitor or video 
modulator. 

If you have used CALL SOUND only to produce 
miscellaneous beeps, noise, and music, read on. I'm going 
to give you some "mini programs" that demonstrate the 
variety of other sounds your Home Computer is capable 
of producing. 

For the first example, let us try to re-create the sound 
of a door bell of the type associated with the once popular 
"Avon Calling" commercial. This is an example of an ob- 
ject that is struck a sharp blow and allowed to vibrate at 
its resonant frequencies. The following characteristics are 
needed to recreate this sound: I) the fundamental frequen- 
cies of the two tones, 2) the overtone frequencies, and 3) 
a gradually decaying volume. Those of you with a sense of 
absolute pitch would inmiediately recognize the two fun- 
damental frequencies, but in my case, I actually measured 
the dimensions of the sounding bars and their points of sup- 
port and determined with a magnet that the bars were prob- 
ably steel. From a textbook. Acoustical Engineering by 
Harry F. Olson, I obtained the formula and values of the 
constants needed to calculate the resonant frequencies of 
the bars. The calculated frequencies came out to be very 
close to 698 and 554 cycles per second (F and C# above high 
C). The book also told me that the two closest overtones 
were 2.756 and 5.404 times the fundamental frequency. The 
bars were supported on rubber mounts close to the 
theoretical nodes (points of minimum vibration) for the fun- 
damental and the first overtones, but were located near 
points of maximum vibration for the second overtone. I 
therefore assumed that the second overtone would be 
dampened out, so I omitted it from the CALL SOUND 
specification for each tone. The decaying volumes for the 
tones were obtained by including each CALL SOUND in 
a FOR -NEXT loop as follows: 
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100 REM DOOR CHIMES 

110 FOR A = TO 30 STEP 5 

120 CALL SOUND(-99,698,A,1924,A) 

130 NEXT A 

140 FOR A = TO 30 STEP 5 

150 CALL SOUND(-99,554,A,I527,A) 

160 NEXT A 

If you are wondering about the significance of the 99 for 
the durations, it is simply an easily keyed number larger than 
the 50 milliseconds needed to make the steps sound con- 
tinuous. The minus sign indicates that the sound generator 
will be updated as soon as the new value for A is determined; 
the duration specified need only be long enough to cover 
the time between updates. 

Next, let us try a sound in which the frequency varies with 
time. A siren is an example which can be characterized by 
a slowly rising and falling frequency. Apparently, this is a 
sufficient clue to the brain for us to recognize it as a siren. 
Try varying the frequency range step in the following pro- 
gram to see how far it can be varied and still be recognizable 
as a siren. 




170 REM SIREN 
180 N=l 

190 FOR F = 700 TO 900 STEP 5 
200 CALL SOUND(-99,F,0) 
210 NEXT F 

220 FOR F = 900 TO 700 STEP -8 
230 CALL SOUND(-99,F,0) 
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240 NEXT F 
250 N = N+1 

260 IF N = 4 THEN 270 ELSE 190 
270 END 

N = 4 on line 260 limits the siren to 3 up-down frequency 
sweeps. 

In the next example, let us vary both the frequency and 
the volume as a function of time. Imagine a large "killer" 
bee buzzing around you, with the frequency of the buzz pro- 
portional to the rate of the beating wings, and the volume 
proportional to the closeness of the bee. 




280 REM BEE 
290 N=l 

300 CALL SOUND(-99,RND*8-H 1 10,RND*10) 
310N = N-t-l 

320 IF N = 75 THEN 330 ELSE 300 
330 END 

Unlike the previous examples, where the variations in fre- 
quency and volume were obtained by using a FOR-NEXT 
loop, the variations in this case were obtained by using the 
RND statement. It is interesting to note that this routine 
will not sound the same in TI Extended BASIC— the bee 
sounds very sluggish. This is one case in which the TI BASIC 
runs faster than the Extended version. 

For the next sound, imagine that you are tuning a short- 
wave radio receiver. The background static is simulated with 
the noise type ( - 8), and the random signal is simulated with 
frequency #3. The random volume on frequency #3 
simulates varying signal levels with the noise volume for- 
mulated to be high when the signal level is low and vice 
versa. 

340 REM SHORTWAVE RECEIVER 
350 N = l 

360 F = RND* 15000 +110 
370 A = RND*30 

380 CALL SOUND(-99,111,30,111,30,F,A,-8,30-A) 
390N = N+1 

400 IF N= 100 THEN 410 ELSE 360 
410 END 

Frequencies #1 and #2 are "do nothing frequencies" since 
their volumes are set to the minimum and are inserted so 
the program will recognize frequency #3, from which noise 
type - 8 is derived. The 1 1 1's therefore were picked for the 
ease of inputting. 




Next, imagine that the 
radio of the previous 
example is now tuned 
to a "pre-ASCII" 
teleprinter signal which 
uses an 850 cycle-per- 
second frequency shift 
to differentiate bet- 
ween a mark and a 
space. 



420 REM RADIO TELEPRINTER 
430 N=l 

440 CALL SOUND(22,2975,0) 

450 FOR D=l TO 5 

460 S = 850*INT(RND*2) 

470 CALL SOUND(22,2125 + S,0) 

480 NEXT D 

490 CALL SOUND(3 1,2125,0) 
500 N = N+1 

510 IF N = 30 THEN 520 ELSE 440 
520 END 

One character consists of a 22 millisecond (ms) start pulse, 
followed by a five-bit code for the character with each bit 
22 ms long, and a 31 ms stop pulse. Line 440 generates the 
start pulse, which is always a space. The FOR - NEXT loop 
in lines 450-480 randomly generates a mark or space pulse 
for the five data bits, and line 490 generates the stop pulse, 
which is always a mark. Line 510 limits the number of 
characters generated to 29. Like the "bee" sound, this will 
not come out well in Extended BASIC. In general, data 
communications signals are easy to imitate because they are 
well defined by standards. 
For a change of pace, try the following sound: 

530 REM FOOTSTEPS 
540 N=l 

550 X = INT(RND*5) 
560 IF X = 2 THEN 620 
570 CALL SOUND(5,-3,5) 
580 CALL SOUND(30,-7,20) 
590 CALL SOUND(500,-7,30) 
600 N = Nh-1 

610 IF N = 30 THEN 640 ELSE 550 
620 CALL SOUND(60,-7,20) 
630 GOTO 590 
640 END 

The CALL SOUND on line 570 is the heel contacting the 
floor, followed by the sole contact on line 580. The CALL 
SOUND on line 590 is the delay between steps. Lines 550, 
560, and 620 add a shuffle about once every 4 steps to make 
the footsteps sound a little more natural. Changing the noise 
type on line 580 from - 7 to - 5 .will make the shoes squeak. 

The sound of a sword fight can be re-created by recogniz- 
ing that the sword blade is a resonator like the door chimes, 
except that instead of being essentially free, it is clamped 
at the handle— thus creating overtones at different ratios 
than the chime bars. Also, the amplitude decays faster, since 
the collision of the two blades would have a dampening 
effect. 
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650 REM SWORD FIGHT 
660 N=l 

670 FOR A = TO 30 STEP 15 

680 CALL SOUND(-99,1000,A,3250,A,6750,A) 

690 NEXT A 

700 FOR D = 1 TO RND*200 
710 NEXT D 
720 N = N+1 

730 IF N = 30 THEN 740 ELSE 670 
740 END 

Lines 700 and 710 add a random delay between sword 
clashes. 

For the final example, let us try to simulate the sound 
of an internal combustion engine starting, accelerating, and 
then decelerating to a stop. 

750 REM ENGINE 

760 FOR N = 1 TO 8 

770 CALL SOUND(60,220,8,-5,0) 

780 CALL SOUND(60,220,8,-5,5) 

790 NEXT N 

800 CALL SOUND(80,220,8,-5,0) 

810 FOR F= 1000 TO 5000 STEP 20 

820 CALL SOUND( - 99, 1 1 1 ,30, 1 1 1 ,30,F,30, - 8,0) 

830 NEXT F 

840 FOR F = 4000 TO 800 STEP -50 

850 CALL SOUND(-99,111,30,111,30,F,30,-8,0) 

860 NEXT F 

870 END 

Lines 760 through 800 simulate an electric starter motor. 
The accelerating and decelerating engine sound is made by 
sweeping noise - 8 up and down in a FOR - NEXT loop. 



Now that you're convinced that your computer can pro- 
duce a wide variety of sounds, you are probably wonder- 
ing how one uses these sounds. If you are an adventure game 
programmer, suppose that the player is confronted with a 
door with a knocker and a bell button. Wouldn't it be more 
interesting if the player heard the bell upon pressing the bell 
button — before getting the usual textual message? Or if you 
are dynamically simulating a race car, you could use line 
820 in the engine sound example in a CALL KEY loop 
where the F parameter would depend on the accelerator 
pedal setting. The duration in the CALL SOUND would 
have to be increased if you are updating other parameters 
in the loop for the sound to be continuous. 

One nice thing about sounds is that the listener will make 
up the visual image that fits, which is why the radio pro- 
grams of years past were so effective. The bee sound, for 
instance, immediately conveys the situation, whereas a 
screenful of color graphics would be hard-pressed to evoke 
the same feeling. Thus, for the programmer of interactive 
fiction, sound should be a very effective way to make a story 
come alive. If you could collect enough sounds, you could 
even write a sound effects program where a given sound 
could be accessed on cue for stage plays. 

Hopefully, this article has opened your ears to the sound- 
making capabilities of your TI-99/4A 
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FUN 

& 

GAMES 




Psst! I've got a little secret for you, gang: Designing 
and programming your own game can be just as much 
fun as playing games produced by others. And best 
of all, it's really not as hard as you might think. . . . 

Pick an Idea 

You can have a maze, a game using dice, a card game, 
a memory-type game, a board game, a popular sport, a 
game involving logic, a game using skills or reaction time, 
some form of hide-and-seek, an adventure, or a myriad of 
space and shooting games. Still don't have a game plan? 
Walk through a video arcade to get some ideas. 

Use the Computer 

Now this sounds silly, doesn't it, since we're talking about 
writing computer games. Let me explain. If you write a game 
of tic-tac-toe or Othello for two players, you're really only 
utilizing graphics — the game could just as well be played 
on paper or on the board. But, if you write the game for 
one person against the computer, then you are using the 
computer to help go through a logic process. Another use 
of the computer is doing anything with random numbers. 

Write Your Program 

Of course, you may just sit at the console and begin pro- 
gramming your game and hope you can remember all the 
logic. Some programmers like to draw a flowchart. On logic 
games you may like "tree diagrams"— i.e., if the player does 
one option you branch one way; then depending on the next 
choice, you branch again and so forth. Other programmers 
prefer a structured approach — each process of the game is 
in a subroutine and the main program calls the subroutines 
in order. This type of program is easy to evaluate and easier 
for other programmers to follow than a program that has 
GOTO statements all over the place. 

Include Instructions 

Many players are anxious to play the game and won't 
read anything that comes with the game program, so it is 
wise to include simple instructions within your program. 
Players who are playing the game a second time, however, 
won't want instructions, so you must try to satisfy everyone. 
One method is to print the instructions on one screen with 
"PRESS ANY KEY TO START" at the bottom of the 
screen. The player can then look at the screen as long as 
he wants or immediately press any key to start the game. 

100 PRINT "PRESS ARROW KEYS TO GO" 
110 PRINT "LEFT OR RIGHT." 



120 PRINT "PRESS T' TO SHOOT." 
130 PRINT :::"PRESS ANY KEY TO START." 
140 CALL KEY(0,K,S) 
150 IF S<1 THEN 140 
160 Program continues for game. 

Another method is to ask the player if he needs instructions: 

100 PRINT "NEED INSTRUCTIONS? (Y/N)" 

1 10 CALL KEY(0,K,S) 

120 IF K = 78 THEN 150 

130 IF K<>89 THEN 110 

140 Program prints instructions. 

150 Program continues for game. 

If the player presses Y, instructions will be printed; if he 
presses N, the game starts. Any other key pressed is ignored. 

Be sure the instructions are as clear and concise as possi- 
ble. Use enough blank lines to make the instructions easy 
to read. Make sure words are not divided at the ends of 
lines, be sure to spell correctly, and use correct grammar. 

"Dummy-Proof" Your Game 

A nicer way of saying this is make your program "user- 
friendly." This means consider all possibilities of input. You 
never know what some other player will try to do. If he has 
to answer "yes" or "no," can he just press Y or N, or does 
he need to spell out and ENTER the answer? Pressing one 
key makes for less chance of error than using INPUT. What 
if the game asks for a number, and a letter is pressed? What 
if the game asks for a choice of 1 through 4, and the number 
7 is pressed? If the player needs to use the arrow keys, is 
there a default value if he hits the wrong key, or is that key 
ignored— or worse yet, does the program crash? 

Check for Speed and Captivation 

You don't want the player to fall asleep between moves. 
If you have moving objects in your game, he wants them 
to be as fast as possible. The main hints here are to make 
the moving object just one character and to minimize the 
logic between moves. Remember, the more objects you have 
to move, the longer it will take. And if you don't need to 
worry about scrolling (lines moving up the screen), PRINT- 
ing characters is faster than CALL HCHAR or VCHAR. 

Look Through your Listing 

If you use the same group of lines several times, use a 
GOSUB and place the subroutine near the beginning of the 
program. For example, a subroutine to print a message M$ 
on Row X starting in Column 1 is 

180 FOR J = 1 TO LEN(M$) 

190 CALL HCHAR(X, J,ASC(SEG(M$(J,1))) 

200 NEXT J 

210 RETURN 
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Within the program, the message and row numbers are 
defined, then the subroutine called: 

1740 M$ = "BLUE WINS THIS TIME." 
1750 X = 22 
1760 GOSUB 180 

Check for unnecessary statements. I have seen a few 
listings that contain some coding that can never be executed 
or is superfluous, or a subroutine that is never called. Other 
cases may occur because of editing. For example: 

900 GOTO 920 
910 X = 25 
920 GOTO 980 

Or: 

900 GOTO 910 
910Z = Z + 1 

Or: 

900 IF X = A THEN 700 ELSE 910 
910 GOTO 980 

Test Your Game 

Again, check all possibilities. If you say your spaceship 
can move to the right and to the left, be sure to check both 
directions. Make sure positive and negative numbers work 
correctly in your calculations (you may want to use the AB- 
Solute function). Check the scoring to see if it is adding cor- 
rectly. Test the possibility of hitting the wrong key. Test 
moving objects at the edges of the screen. 

Specific Game Coding 

Random Numbers 

Be sure to use the statement RANDOMIZE before us- 
ing RND so each game played will be different. If random 
numbers are computed in several different places, consider 
using RANDOMIZE before each RND to ensure total ran- 
domization throughout the game. Sometimes a single RAN- 
DOMIZE statement at the beginning of the program does 
not work. 

A simulation of rolling the dice would need a random 
number between 1 and 6: 

100 RANDOMIZE 

110 D1 = INT(RND*6)+1 

In a space program or skill-type game you may want to 
place obstacles at random positions. If you have several ob- 
jects, DEFine a few functions at the beginning of the pro- 
gram, so they can be used more easily in the coding later: 

100 DEF RX = INT(RND*24) + 1 

110 DEF RY = INT (RND*29) + 2 

120 CALL CLEAR 

130 RANDOMIZE 

140 FOR 1=1 TO 5 

150 CALL HCHAR(RX,RY,65) 

160 NEXT I 

170 CALL VCHAR (RX,RY,66) 
180 STOP 

The DEFinition statements must be numbered lower than 
the statements in which the functions are used. Lines 140-170 
place five A's and one B in random X and Y positions for 
X from 1 to 24 and Y from 2 to 30. 



Another use of random numbers is choosing a random 
message or procedure. For example, 

500 PRINT A$(INT(RND*9) + 1) 

chooses one of nine messages previously stored in the A$ 
array. For random subroutines, the coding would be 

510 ON INT(RND*5)+ 1 GOSUB 220,250,300,350,400 

Games using a deck of cards may use an array to keep 
track of which cards are dealt. You may use C$(52) for the 
52 cards or a two-dimensional array C(13,4) where the first 
parameter is the number chosen and the second is the suit. 
An example for choosing ten cards follows. The values in 
the card array are initially zero. As a card is chosen, the 
corresponding C element is set equal to 1. In the following 
example I printed the card values, but you really should use 
the TI graphics to draw the cards. 
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One more use of RND is for choosing random sounds. 
The CALL SOUND statement requires a frequency between 
1 10 and 44733. Of course, most people cannot hear frequen- 
cies above 15,000; however, your dog may enjoy the higher 
frequencies. This statement plays a sound frequency bet- 
ween 110 and 2109: 

300 CALL SOUND (200,INT(RND*2000) + 110,0) 

You may wish to use random sounds while you're placing 
objects randomly on the screen. 

Sound and Noise 

A lot of the fun in programming games is choosing the 
sound effects to fit your game. The following is a program 
that demonstrates the "noises" available on the TI-99/4A: 

100 REM NOISE 

110 FOR 1= -1 to -8 STEP -1 

120 CALL SOUND(4000,I,0) 

130 CALL CLEAR 

140 CALL SCREEN(ABS(I) + 2) 

150 PRINT "NOISE NUMBER";I 

160 NEXT I 

170 GOTO 110 

180 STOP 

Listen to these noises and choose what you need for your 
game. You can make crashing noises, explosions, airplane 
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or car motors, splats, bounces, rocket boosters, missile fire, 
or whatever you need. The noises may be varied by adding 
another set of sound frequencies and loudnesses. 

Time 

Since the 99/4A does not have an accessible real-time 
clock, time may be simulated by placing a counter in the 
CALL KEY routine or another loop that is executed regular- 
ly. The following example shows a counter as you move 
the asterisk up and down with the up and down arrows (E 
and X) keys. After a time of 100, the number of moves you 
have made is printed. You will notice that if you press a 
key, the counter moves more slowly than if no key is pressed, 
so the counter is not as even as a metronome but good 
enough for games. 
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Following is another example of a way to time a 
process — in this case, typing your name. 
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An accurate way to delay for a specific length of time 
in your program is to use CALL SOUND for the number 
of milliseconds you need. Use 30 for the volume level and 
a very high frequency if you don't want to hear anything. 
While the CALL SOUND statement is being executed you 
may also be doing graphics of calculations. To end your 
timing device you will need another sound statement with 
a duration of 1 . The following example illustrates how the 
CALL SOUND statements may be used for a rocket 
countdown. 

100 FOR I = 10 TO 1 STEP - 1 
110 CALL SOUND (1000,44000,30) 



120 PRINT I 
130 NEXT I 

140 CALL SOUND (1,44000,30) 

150 Program continues for rocket blastoff. 

Arrow Keys 

In games where you move a character up, down, left, or 
right, you may wish to have the player press the arrow keys. 
The arrows are on the keys E, D, X, and S. A CALL KEY 
statement is used to receive the player's input; then the pro- 
gram branches, depending on which arrow is pressed. Any 
other key pressed should be ignored so your program doesn't 
crash with bad values. 

The following routine will draw a trail of asterisks as you 
press the arrow keys. Remember, you must consider the 
edges of the screen or you will get a "BAD VALUE" 
message. Lines 270-340 test for the edge values and will keep 
the asterisk at the edge position. 
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Remember that there are many ways of coding to get the 
same result, and the examples presented here are just that— 
examples. The following routine illustrates another way to 
use the arrow keys to move a character. This time the 
previous character is deleted. Also, lines 330-410 will make 
the asterisk scroll to the other side of the screen instead of 
staying at the edge. 
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A more compact approach to automatic scrolling is to 
replace lines 330-360 and 380-410 with these two lines: 

330 X = INT(24*((X - l)/24-INT((X - l)/24))) + 1 
380 Y = INT(32*((Y- l)/32-INT((Y- l)/32)))+ 1 

Split Keyboard 

A split keyboard is used when two competing players or 
teams are interacting with moving objects on the screen. In- 
stead of CALL KEY( 0, KEY, STATUS), you will need to 
recieve input with CALL KEY ( 1, KEYl, STATUSl) and 
CALL KEY(2, KEY2, STATUS2). You may wish to use 
a Video Games 1 Command Cartridge overlay for the ar- 
row keys. You'll notice the arrow keys for the right side 
of the keyboard are keys I, J, K, and M. The key codes 
returned in CALL KEY are 5 for up, 2 for left, 3 for right, 
and for down for both sides of the split keyboard. Note: 
There is a slight problem in testing for zero on the 99/4A 
console, so use logic such as IF KEY2 -h 1 <> 1 instead 
of IF KEY2 <>0. It also seems wise to avoid using SHIFT, 
ENTER, G, B, slash, semi-colon, comma, periods, and the 
space bar for key input (such as firing a missile) because 
the key codes for these keys are different on the 99/4 and 
99/4A. You will want your game to work on both consoles 
so you can share with others. 

An example of the logic for two players and a split key- 
board is shown in lines 910-1510 from the game Maze Race 
in the section "Computer Gaming." 

Joysticks 

Enter the sample programs that come with your TI Wired 
Remote Controllers to get an idea how to program move- 
ment with one or two joysticks. Keep in mind that CALL 
JOYST (KU, X, Y) returns X and Y values of and plus 
or minus 4, depending on the position of the lever. By the 
way, don't get these X and Y values confused with X- and 
Y-coordinate values for HCHAR and VCHAR. 

Following is a sample program that allows the player to 
move the asterisk with either the arrow keys or a joystick. 
Line 150 is a CALL KEY statement. If no key on the 
keyboard is pressed, all the arrow key logic is skipped and 
CALL JOYST (line 330) is executed. If a key has been 
pressed, then the joystick logic statements (lines 330-350) 
are skipped. (Remember: ALPHA LOCK up for joysticks, 
down for arrow keys.) 
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Detecting a Crash 

Probably the most common way of determining if your 
moving object hit some obstacle in position X, Y is by us- 
ing CALL GCHAR(X ,Y ,C). The C value returned is the 
character number occupying positon X, Y on the screen. 
For example, you may then test if C = 32 (space); if so, the 
program could continue. But if C = 96 (one type of object), 
the program would branch one way, and if C = 99 (another 
object) the program would branch another way — with the 
appropriate sounds and graphics. 

Another method of determining the character in a cer- 
tain position is to have the screen positions in an array and 
have each array element contain information about the 
character in that position. For example, you may have an 
array A(24,32) for the 24 rows and 32 columns of the screen. 
Each element of A could be zero for a space and 1 for a 
block in a maze. Your testing statement would look like 

200 IF A(X,Y)= I THEN 240 

This means if the position X , Y is a block, then branch to 
line 240 where a crashing noise is made and appropriate ac- 
tion takes place. Note that by using OPTION BASE 1, you 
will eliminate Row and Column and save memory space. 

Do It! 

I've presented some fundamental hints and ideas for pro- 
gramming; now it's your turn to put on your thinking cap, 
turn on the computer, and have fun writing your own 
games! 
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PART 1; ^^A bad beginning makes a bad ending^^ 



Have you ever LISTed a program that you bought, 
and after looking at the listing thought, "That's not 
so hard. . 

Actually, you're quite correct in believing that writing a 
good program is not really so difficult. But when begin- 
ning programmers sit down to translate this belief into a 
finished program, many wind up confused and frustrated. 
This can most often be attributed to their accompanying 
belief that writing a program is just a matter of sitting down 
at a keyboard and banging away at it— a procedure that 
is destined to fail. 

To explain an alternate approach— one that all experienced 
programmers use— I'll list the sequence of events that I 
go through whenever I want to write a program. 

First, I sit down and decide what the program is going 
to do. If it's a game, I write down all the rules (even if 
I'm making the game up). If it's a business-oriented pro- 
gram, I decide what features it has to have— i.e., sorting, 
saving data, or printer output. Without this initial plan- 
ning, I wouldn't have a goal in mind when I reached 
subsequent stages. 

Second, I design the program. A design is a plan show- 
ing the functions (the "whats") that a program contains. 
For example, a program that plays the game of Chuck- 
A-Luck would contain the following functions: (1) ex- 
plaining the rules, (2) rolling dice, (3) accepting bets, (4) 
paying off (or collecting) money, and (5) checking for 
the final win/loss condition. (See Figure 1 for the rules 
of the Chuck-A-Luck game that I'll be using as an ex- 
ample.) I don't figure out how I'll do these things at this 
time; I just figure out what the program has to do. 

Third, I group together any "whats" that I feel are 
different parts of the same top-level module or function. 
For example, giving the rules, generating the dice 
characters, and getting player names are all part of in- 
itialization; so at first I put them together under the top- 
level function name of START-UP. Now, I'll write these 
functions down in a list. For this simple game of Chuck- 
A-Luck, my list of top-level modules looks like this: 
START-UP, DICE-ROLLS, and END-GAME. 

Next, I look closely at each function (or module) and 
list everything I need to do in each of these modules. For 



example, the START-UP function will also have to in- 
clude things like DIMensioning data, asking if rules are 
needed, asking the number of players, and initializing 
data fields. The DICE-ROLLS module will have to take 
bets for each roll, roll the dice (and display them), decide 
the winners and losers, and recompute new cash balances 
for each player. The END-GAME routine will have to 
print an appropriate message after all players go broke 
or a winner is determined, ask if any player wants to try 
again, and restart the game. 

Notice that all 1 have done so far is write down the 
"whats" of the program. 1 haven't looked at the "hows" 
yet. The technique I have been using is called top-down 
design and consists of breaking a problem or program 
into its component modules. These new modules are 
themselves broken down into even smaller ones until you 
finally arrive at reasonably sized, easily codable low-level 
modules. 

Sometimes, as you break modules into smaller and 
smaller routines, you may find at the lowest levels that 
some modules are duplicated! That means that the same 
module can belong to (or be used by) more than one 
higher level module. This kind of routine is called a 
subroutine. A good example of a subroutine that you 
would code in TI BASIC would be a routine to display 
messages on the screen using CALL HCHAR. It would 



Figure 1. 



CHUCK A-LUCK Rules 



1. Each player starts with $500. 

2. Each player bets an amount of money from $10 to $50 
on a dice value from one to six. 

3. Three dice are rolled. 

4. If no die has a value equal to the value selected by a 
player, he loses his bet. 

5. If one die has a value equal to the value selected by a 
player, that player receives an amount equal to the 
amount that he bet. 

6. If tw/o dice have that value, the player receives twice 
the amount he bet. 

7. If three dice have that value, the player receives three 
times the amount he bet. 

8. A player who goes bankrupt is out of the game. 

9. The game ends when only one player remains. The re- 
maining player is the winner. 

10. If all the remianing players go bankrupt at the same 
time, there is no winner. 
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be called by other routines in your program (using the 
GOSUB statement) whenever they wanted a message 
displayed on the screen. 

But when do we stop designing and actually start 
writing the program? There's a different answer for each 
program and programmer. The idea here is to stop at a 
point where you feel that you can picture in your mind 
what the code should look like. For advanced program- 
mers, this may mean that there are fewer modules in a 
design, and each module will have a lot of lines of code 
in it. For beginners, 1 would recommend stopping when 
each module is self-explanatory to you — usually this re- 
quires about 10-20 lines of BASIC code. 

As I am doing my design, I keep track of the modules 
by drawing a structured design chart which shows which 
lower-level modules belong to (are to be part oO each top- 
level module. After going over all of my top-level 
modules, my structure d design loo ks like Figure 2, below. 

Figure 2 Stniaurtddoitnfor l CHUCK-A-tucK | 
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Take a look at the START-UP module. It includes a 
bw-level function called GET NAME. Now look at 
DICE-ROLLS. It includes a low-level module called 
EDIT AMOUNT. These routines demonstrate two rules 
I always follow when I design programs: First, whenever 
possible, I try to make the program "user-friendly." This 
includes things like displaying understandable error 
messages (instead of a cryptic "NOT POSSIBLE"), us- 
ing player names (instead of numbers), and giving 
prompts that explain what action is required. Too many 
people write programs that call you PLAYER #1 and tell 
you to do something by saying things like "CODE?". 
It takes only a little longer to write a program that says 
"OK, MIKE, HOW MUCH WILL YOU BET THIS 
TIME?" And the results are well worth the effort. 

Of course, in a business-oriented program, you don't 
usually ask for people's names. But such a program can 
become user-friendly just by judicious use of self- 
explanatory prompts and error messages. Of course, be- 
ing user- friendly makes for longer and larger programs. 
I personally don't worry about how much extra memory 
it requires at first. After all, I can always remove those 
wonderful messages and replace them with a "NOT 
POSSIBLE" message if I have to! 

By the way. if you stop to think about it, the TI BASIC 
and Extended BASIC that you work with is very user- 
friendly. It does things like prompt you for cassette tape 
I/O and give you meaningful error messages when you 
are in EDIT or COMMAND mode. 

The second rule that I always follow is that any data 
that is input into a program must be fully edited — i.e., 
it must be checked to make sure it is the proper type and 
in the proper form. Always! Always! Always! I said it 
three times because this is one of the major differences 
between a professional program (which can be used by 
anyone without "blowing up" — especially when en- 
countering some strange input from an unfamiliar user) 



and a program which is usable only by the person who 
wrote it. 

Some of the rules that I always like to follow include: 

1. Make sure that numeric data really is numeric (of 
course this is something the TI BASIC does for you 
automatically). 

2. Make sure that integers really are integers (and not 
decimals or scientific notation). 

3. Make sure that the data itself is realistic (always test 
for maximums and minimums — e.g., making sure 
nobody bets more money than he has!). 

I'm now finished with my design as far as what 
modules are needed. The fifth step in creating a program 
is to decide what information I need to communicate be- 
tween these modules. The information that is passed from 
one module to another is called a variable. And deciding 
on what variables are needed before you sit down to write 
program code is just as important as deciding what 
modules you need. If you make a mistake in your design 
variables, the last phase of programming (called debug- 
ging) will take twice as long as it needs to be. This is 
because whenever you realize that you need a new 
variable, you have to make coding changes in modules 
(that have already been coded) in order to handle them. 
And changing code is what destroys well-written 
programs! 

Programs will also need variables that are used only 
within a module (i.e., things like loop counters), but you 
don't have to worry about them during your design. As 
long as a variable that is only used within a module has 
a unique name (not used again in another module), then 
no problems should arise when debugging. Of course, if 
the variable name will be used again in another module 
(which is a bad idea unless memory is, tight), then it is 
just as important as a regular variable's. 

The variables that I need to communicate between my 
Chuck-A-Luck modules are 
The number of players 
The player names 
The cash each player has on hand 
The amount bet by each player 
The dice value on which each player bets 
The value of each die 

Choosing the names for these variables is equally im- 
portant. A poorly chosen name is asking for trouble when 
you get down to writing and debugging your code. A 
good variable name has the following three attributes: 
It is long enough to say what it is and what it's for. 
It is short enough so as not to slow down the program. 
It does not look too similar to any other variable. 

For the CIiuck-A-Luck game, I'll use NO_PLAYERS, 
PLAYER_NAME, PLAYER_CASH, PLAYER_ 
BET, PLAYER_DICE, and DICE_ VALUE as my 
variable names. And, I won't re-use variables that are 
used within a module. 

Now my design is finally complete, and I'm ready to 
start coding. I have done everything that I could to in- 
sure that the program will do its job and am ready for 
the sixth step in creating a good program — planning the 
code. As we have just learned, the first rule of good pro- 
gramming is PLAN, PLAN, PLAN! 
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CHUCK-A-LUCK 



PART 2; "Make no little plans. . . ." 



Building a good program is a lot like building a house. 
First, you need a good design. Then, you need good 
tools, good materials, and good work habits to use 
them all properly. We have discussed a way to develop a 
good design by using a techinque commmonly called struc- 
tured design or top-down design. Now we 11 talk a little 
about how to get the necessary tools and material;? and 
cultivate the habits that we need. 

After completing our design effort, you might expect the 
next step to be coding the program. But this, in fact, is not 
the case. Just having a good design doesn't mean that the 
code in your program will be correct or that you will write 
the best code for the job. In every task, there are two things 
to remember: The first is that you want to do the right job. 
The second is that you want to do the job right. To do the 
right job means that your code has to follow the design that 
you came up with. To do the job right, you have to create 
the best code for the job. And like anything else, these both 
require planning. That's right! We still have some plan- 
ning to do. Only this time, we must plan our code. 

The first thing to do is refresh your memory on the design 
we came up with to play Chuck-a-Luck. Notice how we 
developed the modules that tell us what to do, but not how 
to do it. The purpose of planning our code is to figure out 
how we want to do it in the best possible way. At the same 
time, we want the "hows" that we develop to be easily coded 
and debugged, to execute quickly, and to be easily 
modifiable so that we can make future improvements. 
Starting UP with START-UP 

Let's start with the module called START-UP. One of 
its top-level components was DIMENSION. That module 
is needed to set up the dimensioning of any arrays needed 
in the program. Although it is not absolutely necessary to 
code the DIMension statement at the very beginning of your 
program, 1 have found that it is always best to put it right 
up front. So, when I plan my code, the DIMENSION 
module will be my very first line of code. Another good 
coding habit to get into is to start your programs at line 
100, which leaves you room in the front of your program 
in case you have to add an extra statement to start off your 
program. I will reserve lines 100-140 for any dimensioning 
of data that I will need. But before I go on with the remain- 
ing design of the code, I think that we had better take time 
out to talk about the DIM statement and what it is used for. 

When I was doing the design, I knew from my original 
plan that the program was going to have to handle 4 players. 
That meant that every time I did something concerning a 
player, I would have to know which player I was dealing 
with. For example, if each player was going to make a bet 
and win or lose, the program would keep track of these 
things (called variables) for each player. There are two ways 
of doing this. The first way is to give a different name to 
each one of these variables for each player. That is, I could 
keep track of each player's bet by having one variable called 
BET_1 and another variable called BET_2, and so on. 
This way, I would know at a glance what was contained 
inside the variable. The only problem with this way of do- 
ing things is that the program needs separate code for each 
player. This means that you would have to key in more lines 
of code. It means more chances for data entry errors. It 
also means the possibility that you could accidentally write 



the code for each player a little bit differently, which in turn 
means that you would need to debug your code for each 
player. 

Suppose, however, that you did not need to give each 
player a different variable name. Suppose that you could 
just call the variable by the single name of BET. Then the 
code for each player would be the same. As a matter of 
fact, you would have to code the logic only once, because 
it could be re-used for each player. As you can see, this 
would be a great improvement. You still have more than 
one player so you would have to be able to say which 
player's BET you wanted to deal with. Well, the way that 
the BASIC language handles this is to allow you to set up 
an array called BET. This array has only one name but con- 
tains multiple slots. Imagine an apartment building called 
BET containing only one floor with a lot of rooms in it. 
The room numbers start with and increment by one. The 
computer can put the betting information for player 1 into 
room number I, the information for player number 2 into 
room number 2, and so on. Now, in order to look at the 
bet of player number 3, all we have to do is tell the com- 
puter to look at room number 3 of BET. We do this by 
saying BET(3). The value 3 is called a subscript of the ar- 
ray called BET. 

This is an improvement over saying BET 3 but not 

much. But if the computer can be told which subscript 
(room number) to use via another variable, then you can 
realize a great improvement. Suppose all you had to do was 
tell the computer to look at something called X, and that 
X had the value of the subscript in it. Now you just put 
the room number inside X and tell the computer to look 
at BET(X). How do you put the room number into X? The 
same way you put any number inside any variable. You can 
say things like X = 3 or X = A-fB or set X to a range of 
values in a FOR-NEXT loop. The important thing is that 
you do not have to know in advance what is in X before 
you execute the code. By the way, I used the name X just 
as an example of my subscript name. We could have called 
it PLAYER_NUMBER, or I, or any other legal variable 
name. Also, just because a variable is being used as a 
subscript in one part of your program, it doesn't mean that 
the variable can only be used as a subscript. Any variable 
can be used as a subscript. It is also possible for two (or 
more) variables to be used as subscripts for the very same 
array, depending on what you are trying to do. 
'•Roomy" Arrays in TI BASIC 

Now, two questions should be running through your 
head. The first question should be, "How many rooms can 
TI BASIC build for a given array?" The answer is that it 
depends on what (if anything) you tell it to do. If you don't 
tell it anything, it will automatically set aside 8 rooms (slots) 
for any array it may meet in your code. It will do this the 
first time it sees the array. If you need more than 8, you 
may not want to waste space on unused slots. In either 
case — less than 8 or more than 8 with no waste space — you 
tell it how many slots you need by using the DIM statement. 

The second question should be, "What about room 0?" 
In my game, it is always empty. In some programs, however, 
room may very well be used. If room is not going to 
be used at all, you can tell this to TI BASIC so that it won't 
waste computer memory with a room 0. This is done by 
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putting a statement with OPTION BASE 1 in front of the 
DIM statement. 

Of course, just as an apartment building can have rooms 
on more than one floor, an array can have more than one 
level of slots. But since we don't need multiple levels in our 
program, we'll leave a discussion of this to a later time. For 
now, let's look at our variable list and see what variables 
are going to be arrays so that we will put them in our DIM 
statement. We will need to keep track of information for 
1 to 4 players. In addition, there will be 3 dice and each 
die will have a value. Look at line 100, of the TI BASIC 
listing that starts on page 59, to see how I coded the DIM 
statement for these arrays. Notice that you cannot use a "-" 
as part of a name in TI BASIC. You can make variable 
names with several words in them by using the underline 

character (" ") to connect the words. For instance, I coded 

the array as DICE VALUE in this program. 

Leaving Out the Difficult is Easier 

We are not ready to begin planning the code for the rest 
of the START-UP module. Because (by definition) this code 
will only be used once for each game, I like to keep it up 
far away from the main logic of my program. For this 
reason, 1 usually begin coding these one-shot modules at 
line number 20000 to give myself a lot of leeway in case 
1 leave out a line of code or have to add another line during 
debugging. I always increment my statement numbers by 
10 or more. In addition, I also make sure that there are plen- 
ty of unused statement numbers between the end of one 
module and the start of another. 

The first module to be coded in START-UP is responsi- 
ble for creating the graphics for the dice. Naturally, you 
now expect me to give you the code. But I won't! You see, 
it's not really important that I do this right away; I can 
always create the dice later after I am sure that the rest of 
the program is working correctly. This is one of the impor- 
tant advantanges of designing and planning your program. 

When you plan your code, don't rush right into figuring 
out how the code in all your modules will look. First, decide 
what modules or parts of modules can be left out without 
affecting the program logic. For example, the code to display 
instructions can be added as the very last part of your pro- 
gramming effort. A program usually will contain whole 
modules requiring complex code that can be replaced by easy 
code the first time through. After you are sure that the pro- 
gram as a whole is working correctly, you can gradually 
replace the easy code with the complex code. Why? Because 
it's easier to find your mistakes in an easy program! So an 
important "rule of thumb" is to always start out with an 
easy version of your program. Then, as you add the dif- 
ficult pieces, you at least know where to look if you hit a 
snag in your debugging. 

So, if I leave out all the graphics for now, what can I 
substitute in their place? I can simply display the number 
of each die instead of graphically showing the dice 
themselves. After the program is running, I will go back 
and add the graphics as well as any sound routines. Look 
at what I am trying to accomplish this way: 

1. By leaving out unnecessary code, I can get the pro- 
gram up and running faster. This means that I can begin 
debugging my program earlier. This in turn means easier 
debugging because there is less code to go through. 

2. By using easy code in place of complex code in some 
modules, I make it easier to debug the "guts" of my pro- 



gram. After knowing that the program runs correctly, 1 can 
begin replacing the easy code with the hard parts a little at 
a time. Then I will test only one or two new parts at a time. 
This means easier debugging because any problems will 
probably be due to the new code. 

3. After ensuring that the main portions are running cor- 
rectly, I can "fool around" with the hard portions without 
worrying that I will hurt the program's logic. For example, 
after 1 know that the program is running correctly by 
displaying the dice numbers, 1 can now experiment with how 
1 want the dice themselves to be displayed. 1 can even come 
up with two versions — one for TI BASIC and a different 
one for Extended BASIC using sprites! 1 won't have to 
worry that adding different versions of this code will destroy 
my program. 

4. By getting a version up early, I can see if my program 
is worth continuing. After seeing it in action, I may decide 
that it just isn't worth the effort to continue with the coding. 

So for right now, I won't code the CREATE DICE 
routine but 1 will set aside lines 20000-20500 for the code 
later. The next module is called RULES and will be respon- 
sible for giving the rules when asked. One part asks if the 
rules are wanted; another displays them. Like the CREATE 
DICE module, the entire code for this module isn't needed 
now. But if I do code in the part asking if the rules are 
wanted, I can test this part of the logic. If the program you 
are writing is large enough, you may decide to leave both 
of these parts out on your very first try. 

Since I have decided to code part of this module, 1 will 
lay it out in lines 21000-22000. The first thing I want to do 
is clear the screen. This will attract the players' attention 
and remove any "clutter" that may be on the screen from 
any previous program. It's always a good idea to start out 
your program with a CALL CLEAR statement. Notice that 
in my code in lines 21010-21050, I am asking the players 
for information and telling them in what form J expect the 
answer to be! Too often, a programmer will code his pro- 
gram so that he is expecting a particular answer, but never 
tell the person using his program what form the answer 
should be in. There is nothing more frustrating to a user 
than trying to figure out what the person who coded the 
program means when the program displays a message like 
CODE?, and what the valid values of the input are. You 
should try to develop the habit of explaining what data you 
are looking for and what legal values the program will allow 
as part of your code for an INPUT statement. 

The next thing the module does is make sure that only 
the first character is going to be looked at. This is done by 
using the SEG$ function to strip off the rest of AS. One 
of my programming "rules of thumb" is to minimize the 
chance of a program user entering bad data. If I am only 
expecting a Y or N, I want to look at only the first character 
of the input. If the wrong answer is given, an appropriate 
message is displayed and the original question is asked again. 
The code to display the message will be eventually located 
in lines 21000-21990, but I'll just put iaa REM statement 
to show where the code will be added later. 

The next module (called PLAYERS in our design) is very 
important and easy to code, so I will code it in full the first 
time out. This is done in lines 22000-22330. Notice that it 
prompts the player for the required data in each case, and 
edits the input to insure that only valid data gets in. One 
of the main differences between a well written program and 
a poorly written one is the amount of editing done on in- 
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put. The "hows" of an edit for an alphanumeric field should 
always include a test for an empty field (called a null string). 
TI BASIC allows a null string to be entered in response to 
an input statement. This kind of string data can cause a 
number of problems in your program, expecially if you want 
to display the data on the screen. I always test for an empty 
field whenever I INPUT a string variable. That is what I 
am doing in line 22140. 

It may also be necessary to limit the size of an 
alphanumeric field depending on how you want to display 
it on the screen. For example, you may want to limit the 
size of a player's name so that it fits on the same line as 
his cash balance. The best way to handle this is to check 
its length (using the LEN function) as part of your edit. If 
the player enters a name that is too long, you can tell him 
so, and ask that he enter a shortened version of his name. 
There is also, however, another way: You may shorten the 
field yourself by using the SEG$ function— as I do in line 
22250. 

When numeric fields are entered into your program, there 
are always four things you must edit for. First, you have 
to make sure that numeric data was entered. Luckily, TI 
BASIC will do this for you automatically so you don't have 
to write any code to test for this. You should get in the habit 
of immediately testing your input as follows: (1) check to 
make sure it isn't too large, (2) check to make 
sure it isn't too small, and (3) especially check to make sure 
it is a whole number (if that's what you are expecting). Look 
at my code in statements 22020-22030 to see what I mean. 
Also note that if the answer is illegal, I ask for the item to 
be re-entered. If you don't make it obvious that you want 
the data entered again, it is possible that the person using 
your program may not even know that he or she made a 
mistake and get confused on what to enter next. 

The main portion of our design is called DICE-ROLLS; 
it is responsible for actually playing the game. First, it gets 
the bets from each player. Then it rolls the dice. Finally, 
it makes the payments to or collects the losings from each 
player who is still in the game. Since this code is executed 
often, I will place it in front of my program. The three main 
components are called GET BETS, DICE ROLL and 
PAY/COLLECT. The first two components will be coded 
as subroutines called from DICE-ROLLS. Line 210 calls 
GET BETS and line 230 calls DICE ROLL. The third 
module, PAY/COLLECT, will be coded as part of the 
DICE-ROLLS module. 

Save the Unimportant for Matiana. 

Why did I set the modules up this way? The answer to 
this question requires a little background in the style of 
coding that I have adopted. As you know by now, I have 
a number of set methods that I follow. One of these rules 
of thumb is that if I get a module that I will be expanding 
or replacing later, I set it up as a subroutine to be coded 
later. I just code in a GOSUB statement and keep going. 
If it is a module that has to be coded fully the first time 
around, I usually code it right then— unless it looks like 
something that is hard to code. In that case, I code in the 
GOSUB statement and hold off coding it in until I have 
to. I write my programs this way because I never want to 
tackle any code that will destroy my train of thought. After 
all, one of the reasons we did a design in the first place was 
to make sure that nothing important would be left out. So 



if I keep coding, I won't get sidetracked into worrying about 
the hard parts until I absolutely have to. 

Lines 530-560 are used to figure out how many "hits" 
a player has after the dice are rolled. Notice that this is done 
using two FOR-NEXT loops, one inside the other. The in- 
side loop in lines 530-560 checks to see if a player bet any 
of the dice numbers that came up. The outer loop from 
statements 250-760 controls which player we are looking at. 
For now, I won't code the full CHECK FOR BANKRUPT- 
CY module. I will instead code a short module (statements 
740-750) to check for bankruptcy and STOP the program 
if there's a loser. Notice how the use of arrays has made 
this code simple to write. Try to imagine what it would look 
like if I had to name each variable separately! 

The module called END-GAME is also not very impor- 
tant to the main logic of the program, so I'll ignore it for 
now. This means that the only modules I haven't 
looked at are GET BETS and DICE ROLL. I coded them 
in lines 1200-1900 and 2000-2990 respectively. I am leaving 
a lot of room in the DICE ROLL routine because I still 
don't know exactly how I am going to do all of it. Oh, I 
know how to roll the dice, but I haven't gotten around to 
figuring out what the graphic display of the dice and the 
design of the screen will look like. . .and until I do, I can't 
really figure out all of the "hows" of this module. For now, 
I will code the DISPLAY routine to just show what the dice 
are. 

In order to simulate rolling the dice, I will have to create 
three random numbers between 1 and 6. This is done using 
the RND function in statement 21 10. Remember that RND 
is really random only when you start your program with 
a RANDOMIZE statement. We will eventually put this in 
statement 140. But until I have fully debugged my program, 
I will leave the RANDOMIZE statement out. Without it, 
the dice rolls will not be truly random. They will always 
follow the same pattern from the start of the program. This 
allows me to replay a game exactly the same way each time, 
so that if I find a bug and have to correct my code, I can 
test the corrected code under the same conditions that caused 
the bug in the first place. With the RANDOMIZE state- 
ment in my program, I may never hit the same conditions 
that caused the bug and won't be sure that I made the right 
correction. 

After coding in these statements, you can find the result 
in Listing 1. Let's briefly review just what this program can 
and cannot do. First, it does play the game according to 
the rules of Chuck-a-Luck. It will handle the bets of up to 
4 players. It will kieep track of cash held by each player and 
declare a loser. Once I have this program debugged, I then 
have to plan what pieces I want to add next. The program 
is missing three important features: First, it stops as soon 
as one player goes bankrupt and it cannot be restarted 
without rerunning the program. Second, it cannot display 
the rules. Third, it is boring because it doesn't have any of 
the graphics and sound features that the TI-99/4 can add 
to a program to make it interesting. 

Once I have written enough code to run at least a 
"stripped-down" version of the program, I should turn my 
efforts to debugging it. Only after I was reasonably sure 
that this version of the program was working properly, 
would I begin to add more code. I then would add one 
module at a time and retest. And that will be the subject 
of Chuck-a-Luck, Part 3. gmk 
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CHUCK-A-LUCK PART 3: "I never make misteaks" 



Don't laugh. All too often you find programs with 
errors as glaring as that in my first sentence. So let's 
correct it: I never make mistakes! Now, doesn't that 
sound egotistical? Nobody would have the nerve to say it 
out loud. But some people who write programs act like they 
never make a mistake while programming! The best pro- 
grammers that I have met not only admit that they make 
coding errors, but they have also developed quick and effi- 
cient ways to find these inevitable mistakes — called bugs by 
programmers. As with everything else, we need a good 
plan— a "debugging" plan — to catch them. 

In the last section, we wrote a large percentage of the code 
required to play the full game. As a matter of fact, the only 
important module not coded was the graphics routine. So 
obviously, it's time to bring on the bugs! WHOA! First we 
have to figure out how to test for the various bugs I KNOW 
are in there. Before we do this, let's stop and talk about 
the different types of bugs found infesting even the best 
programs. 

The first bug that must be eradicated is the "Baddus Plan- 
nus." This bug hits programs that do everything (according 
to the design) correctly but don't achieve the desired result 
or implement all the rules that you originally laid out. For 
example, as soon as I began testing my original code for 
Chuck-A-Luck, I hit a situation that I had not planned for 
and which was outside the scope of the rules of the game. 
In my original list of rules, I said that a player's bet could 
be from $10 to $50. As soon as I began debugging my pro- 
gram, however, I immediately saw a flaw in the whole idea! 
If a player bets in anything other than $10 units, he may 
eventually wind up with less than $10 in his bankroll. In 
that case, he can't make a minimum $10 bet and yet he isn't 
bankrupt. When that happens, the player is in limbo and 
the whole idea of the game falls apart. A major disaster? 
No, not necessarily. You see, when you have a good design, 
these kinds of problems can usually be overcome. I could 
have changed the logic to allow a player to bet only multiples 
of $10; instead, I just changed the rules so that bets of less 
than $10 are allowed. You may have noticed that this change 
is already in the code found in the last section. 

Note that I am not ashamed to admit this error. Indeed 
I expect something of the sort to happen whenever I write 
a program. So when I set up my debugging plan, the first 
few items on my list are tests of the rules. These items don't 
have to be the first things actually tested, but they must be 
tested by the time we finish debugging. 

The second bug that creeps inside programs is the very 
evil "Baddus Designus." This guy shows up when the code 
almost does what you want. A sure sign that your program 
has this problem is that it doesn't do everything that you 
wanted it to. It may mean that you left out some modules 
needed to get the program running correctly. It could also 
mean that a piece of code needs more information (or 
variables) to do its job. In other words, you forgot (or 
missed) some facts when you were designing your code. This 
kind of bug is uncovered by making sure that each routine 
is thoroughly tested and also by ensuring that each routine 
is tested using different values in the variables. 

The third bug is "Baddus Codus." This means that a 
piece of code doesn't work even though it has all the infor- 



mation it needs. There are a number of reasons for this kind 
of bug, but they all boil down to three major ones: 

1 . You didn't write code that TI BASIC or Extended 
BASIC understands (for example, you typed in misspelled 
keywords). 

2. You don't really know how a particular feature of 
BASIC works. You expect it to do something that it just 
won't do. This can hit your code unless you are prepared 
to check the reference manual for the usage of BASIC 
statements that you are not thoroughly familiar with. 

3. You wrote code that doesn't do the job. The code may 
be in the wrong sequence (i.e., you are zeroing out a number 
just before printing it out on the screen), or a piece of code 
line is missing, or you typed in the wrong variable name, 
or even keyed in the wrong variable letter. It all boils down 
to normal human error. 

Bug Catching 

If you are lucky, TI BASIC or Extended BASIC will catch 
some of your errors for you. But don't rely on it. The only 
good way to check for a case of "Baddus Codus" is to look 
over your code before running it and then carefully watch 
how your program behaves when you run it. 

Since a test plan for each program depends on the par- 
ticular code and therefore is unique, the best that I can do 
for you is list some rules to follow when making up your 
test plan and debugging your programs. 

A. List the program and visually check the code. Review 
your code for incorrect spelling of variables, mis- 
coded statements (i.e., missing double colons between 
statements in Extended BASIC), and incorrect CALL 
names. Fix any errors you find immediately. After you have 
done this, do it again. Then save this copy of your program 
to disk or tape before you run the program. This will pro- 
tect your hard-earned code if your computer decides to 
"eat" your program on the very first test. Label this Ver- 
sion 1. 

B. Write down the function of each major module. Under 
each module, list the range of valid variables. This should 
be done so that when you begin debugging, you can set up 
your tests using both the largest and smallest values possi- 
ble for each module. 

C. Set up a test for each major module. Write down what 
values you will input and what you expect the output values 
to be. If you don't write it down before you begin your test, 
you won't really know if a module is working correctly while 
you are debugging. 

D. Decide whether or not you can use the BREAK com- 
mand to test the module. In many cases, a routine or module 
can be tested locally. By that, I mean that the module uses 
only a few variables and that you can set some values for 
these variables at the start of the module and BREAK at 
the end. Then you can check to make sure that the results 
are correct by PRINTing them on the screen when the com- 
puter stops at the BREAK point. For example, suppose a 
routine starts at line 1000 and uses the variables X and Y 
as input. The routine is supposed to use these values to 
calculate the variable Z using some formula. You can test 
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this routine locally by adding the following code in the front 
and back: 

1000 BREAK (replaces the REM statement at the start 
of the routine) 
routine 
code is 
here 



HOC BREAK 

Now RUN your program and make X and Y whatever 
values you want them to be when the program initially stops 
at line 1000. When you type in CON, the machine will ex- 
ecute your routine and and stop at the second BREAK state- 
ment at line 1 100. When your program stops, type in PRINT 
Z so you can look at Z's value. In fact, you may want to 
add the following program statement after the second 
BREAK: 1110 GOTO 1000. In this way, the routine will 
continually repeat so that you can test your code using a 
number of input variables without the trouble of having to 
execute the rest of the program each time. That's why I call 
it a local test. Just make sure you remove that extra GOTO 
statement as soon as you finish testing that module! 

Of course this technique isn't possible with all routines, 
and in some cases, it's not worth the effort. Just keep in 
mind that it's one debugging tool that you can use. It also 
shows a good reason to get into the habit of writing very 
straightforward code. In a routine, you should try to 
minimize GOTO statements which take the program out- 
side the routine. If the routine above had GOTO statements 
that jumped outside the routine, it would be almost impossi- 
ble to test the routine locally, Isecause you could never be 
sure that your program would reach statement, 1100. 
Although program size limitations may force you to reuse 
code, write all your routines with only one entry point and 
one exit point if possible. 

E. Begin your tests. Carefully note any time that a routine 
does not give a correct result. Don't stop the program (using 
the Shift C or FCTN4 keys) each time you notice a pro- 
blem. Just note the nature of the problem and what the pro- 
gram was doing at the time. For example, if you notice a 
problem in a routine only when the second player is bet- 
ting, or if the dice roll is a 6, this is very important infor- 
mation and you should make sure that you write it down. 
Wait until you have uncovered a number of problems or 
until the computer stops with a BASIC error message. 

F. Check each routine where an error occurred. Mental- 
ly "walk" through the code by doing each instruction or 
calculation on a piece of paper. Usually, you will find your 
errors this way quite easily. When you locate the error, write 
down the line number and the solution but don't key it in! 
This is because as soon as you change any of the code in 
a program statement, BASIC will reset all of the variables 
to (for numbers) or empty (for strings). This may make 
it impossible to debug some other routine during the same 
test run. If you cannot find the bug by walking through the 
code, look at any intermediate results that may be available 
by PRINTing any intermediate variables. You may be able 
to find your mistake this way. This works especially well 
in complex code with a lot of intermediate totals. 



G. If you get to a very difficult spot where the code 
looks OK, but you are sure it contains an error, don't panic! 
Use the BREAK xxx command, where xxx is an actual line 
number. This allows you to stop the program every two or 
three lines. At every BREAK, PRINT the important 
variables, and write them down along the line number of 
the BREAK. Then type in another BREAK xxx command, 
using a line number two or three lines further along. Type 
in CON and wait for the program to stop again. You can 
usually narrow the problem down to a single line this way. 
If you can't find a misspelling or other typographical er- 
ror, re-enter the program line very carefully when you have 
finished this round of debugging. This will likely fix the er- 
ror (as long as the code you are entering is good code). 

H. When you have gone as far as you can in this test, 
fix all the bugs that you have discovered. Check off any 
of the tests that have successfully been concluded. 

I. Save this new version of your program to disk or tape. 
I usually have a version number in a REM statement in the 
front of my programs. I increase this version number every 
time I change my code. This allows me to know what ver- 
sion of the program I have read into the machine when I 
begin my tests the next day. If you are saving to cassette 
tape, make sure you label the tape with the new version 
number. If you are using a disk, you may want to add the 
version number as part of the program name (i.e., SAVE 
DSK1.CHUCKV3). Making the version number part of 
your SAVE routine can save you some agonizing problems. 
There is nothing worse than realizing that you are debug- 
ging the same code that you fixed the day before. 

J. As your program runs, review its actions against the 
rules and requirements that you originally set up when you 
began your plan. See if the results are what you expected. 
If they aren't, immediately stop testing and try to figure out 
why. You may have to change the rules. You may even have 
to redesign part of your program. It isn't worth testing any 
more until you fix this kind of problem. 

K. If you get an idea to improve your program, write it 
down. Don't stop testing to make minor improvements. You 
may overlook a major flaw while adding a small feature. 
Add all of these improvements at one time, and revise your 
test plan to retest the old code as well as test the changes. 
After my initial debugging, I began to add some of the 
modules that I left out the first time. The first routine I add- 
ed checked to see if the game was over. This feature was 
added in lines 750, 770-890, and 5000-5400. I do this by 
checking each player's cash balance. If a player has a balance 
greater than zero, I increase a counter which tells me how 
many players are still in the game. I also save that player's 
number. That way, if only one player is left at the end of 
a round, I know who it is. If the game is over, I check to 
see if a replay is wanted. I also added the code at 
21100-21500 which displayed the rules. I then retested the 
program to check both that the new modules worked and 
that they did not cause any damage to the old code in the 
rest of the program. 

In the next section I'll explain how I added the graphics 
for both the TI BASIC and Extended BASIC versions. For 
now, you can study and type in the complete TI BASIC 
game listing that follows. jan. 
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CHUCK-A-LUCK 



PART 4; "The Die is Cast" 



Before me was the task I had been putting off from 
the beginning: to plan the graphics for the DICE- 
ROLL routine. 
Because the program had been coded in TI BASIC all 
along, I coded this routine using HCHAR and VCHAR 
graphics. It occurred to me however, that the Extended 
BASIC graphics ability (i.e., sprites) would add a lot to this 
program. Then I saw that it could be done both ways. 

The only problem was that I am not very graphics- 
oriented. Oh, I do all right, but I am no world-beater at 
eye-boggling displays. That left me one option: I called for 
HELP!! and turned to my "Guru of Graphics," Ron 
Binkowski. You may have seen his name on some fine pro- 
grams he has written for 99'er Magazine. 

I asked Ron to develop a graphics routine to display dice 
rolling inside a Chuck- A-Luck wheel. About two weeks 
later, he called me back with the bad news, "No dice." (Par- 
don the pun— I just couldn't resist it). Rolling the dice was 
just too complicated for this program, but Ron did come 
up with an idea to move them graphically. 

Starting to Roll 

I reworked Ron's routine so that it could support both 
SPRITE graphics for inclusion in the Extended BASIC ver- 
sion and HCHAR graphics for TI BASIC. The design in- 
dicated that DICE-ROLL needed an initializing routine (to 
set up some variables) as well as the actual graphics roll itself. 
I added another module to display each player's name, cash 
balance, amount bet, and dice value bet. 

The DICE-ROLL routine needed three new arrays. Each 
die can be thought of as a formation 3 pieces high and 3 
pieces wide. Each character can have either a dot (pip) or 
be blank. Since there are three dice and each needs 9 
characters, we will have to keep track of the locations of 
27 characters. The 9 characters for the first die will be 
numbered 1-9; for the 2nd die, 10-18; and 19-27 for the third 

die. The array called LOC X keeps track of the x- 

coordinates (the horizontal rows) of these characters while 

LOC Y keeps track of the y-coordinates (the columns). 

This means that both of these arrays must be DIMensioned 
with 27 entries. 

The array called DICE_PIP tells whether characters are 
blank or have a pip for each possible value of the dice. Since 
there are six possible dice values, each to contain informa- 
tion on nine characters, we will need a two-dimensional ar- 
ray composed of 9 entries for each of 6 possible dice-values. 

Arrays are Like Buildings 

Remember our discussion about arrays? I said that you 
can envision an array as a building with a number of rooms 
on each floor. Well, in a two-dimensional array, the first 
variable can be thought of as the floor number. The second 
number is the room on the floor. For example, you can think 
of DICE_PIP(2,4) as the value located in the 4th room 

of the second floor of a building called DICE PIP. For 

our program it will contain the information about the 4th 
character (middle row on the left) needed to display a dice 
roll of 2. 

To make the display more interesting, Ron added 3 more 
dice values. He realized that, depending on how a die fell, 
the values of 2, 3, and 6 could be portrayed two different 
ways. The three extra "floors" in DICE_PIP are alter- 



nate displays for the values of 2, 3, and 6. This meant the 
DICE_PIP had to be DIMensioned as (9,9). I added this 
at line 1 10. In addition, for the SPRITE version of the 
routine in Extended BASIC, Ron needed an array to keep 
track of particular pieces of the die, to determine if they 
were in position. He called this array LOC, and since there 
are 27 different pieces, I DIMensioned it at 27 in line 120. 

I then added the code in lines 20010-20420 (see Extended 
BASIC listing starting on page 63) to fill in the data needed 
for the new arrays. Lines 20100-20200 are used 
to read in the data for DICE_PIP. Each DATA line 
(in 25(X)0-25080) describes whether a character of a dice 
value is supposed to be blank ( = 0) or have a pip ( = 1). Each 
line gives the information needed for the 9 characters mak- 
ing up the dice value. Line 25090 is an extra DATA line. 
TI BASIC usually slows down when it reads the last DATA 
line in a program, but with an extra DATA statement, it 
never reads the last line, and never slows down. 

In order to simulate the DISPLAY AT function, available 
only in Extended BASIC, I added a routine to the TI BASIC 
version in statements 4900-4930 to print whatever was in 
MSGS begiiming at COL on the row contained in ROW. 
It runs much faster than the code given in TI's Program- 
ming Aids I software package because it is restricted to a 
single row and does no preliminary editing of the message 
area. In lines 20300-20420, 1 added the codes to show where 
each of the 9 characters for each die are to be displayed. 
In the TI BASIC version, these are actual row and column 
numbers. In the Extended BASIC version, these contain the 
dot row and dot column values needed for sprites. 

I then coded lines 2000-2370 to display the information 
about each player on the screen. The new code in 26(X)-3920 
displays the three dice values graphically. Lines 2630-2740 
give a 50-50 chance that a dice value of 2, 3, or 6 will be 
displayed in its alternate format. The 9 characters making 
up the die are then displayed in the loop in lines 2750-2990 
in the TI BASIC version, and lines 2750-3020 in the Ex- 
tended BASIC version. For TI BASIC, this consists of a 

simple loop which displays at LOC X and LOC Y the 

appropriate DICE PIP for each of the nine pieces. After 

the character on the last die is displayed, I wait a little while 
and then leave the routine. 

Notice that in order to highlight the dice roll routine, I 
changed the color of the screen and added a little music. 
My "music jar" of melody listings borrowed from other 
programs gave up only one piece that remotely matched up 
with gambling, the "Call to the Post" tune played at the 
track just before a race. Perhaps you have a more fitting 
musical phrase. 

The sprite version of the display routine is more com- 
plex than the HCHAR version. I will go through it very 
carefully because Ron has some great ideas about control- 
ling sprites. Note that this routine was written with multi- 
ple statements on each line. This has to be done to make 
your BASIC code run as fast as possible when handling 
sprites. Slow code at this point could make it very difficult 
to handle them smoothly. 

Graphic Routines 

If you have an interest in designing Extended BASIC pro- 
grams with sprites, tracing through the following program 
will put you well on your way toward your own creative 
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endeavors. AH line numbers from this point on will refer 
to the Extended BASIC version only. 

2750-2820 This code figures out the sprite number for 
each character of the die being displayed and starts it out 
as a sprite with a random motion. Note that this motion 
can be either positive or negative so that we get them flying 
in all directions. We also set the LOC value for that 
character to zero, to show that we haven't yet moved 
the character back to its final location. 

2840-2920 This routine uses a variable called CNT to keep 
track of the number of characters moved back to their start- 
ing locations. If this number is low enough, we will ran- 
domly choose the character we work on. If CNT is 21 or 
greater, however, we won't choose the character random- 
ly. We'll just look through the LOC array sequentially to 
find the first character that we haven't yet moved 
back to its location (i.e., its LOC has a zero in it). 

Why is Ron going through the trouble of doing it this 
way? The answer requires a little thought. Suppose we just 
randomly kept choosing a figure. By the time 20 or so 
characters have been reset to the final location, the odds 
on randomly selecting a good character will then be 7/27 
or 26%. The odds on the next selection being a good 
character will then be 6/27 and they keep getting smaller 
and smaller. With one character left, the odds on hitting 
it randomly are 1/27 or less than 4%. As you can see, it 
is very unlikely that you will hit a good character when on- 
ly a few are left. To prevent a long wait until the computer 
randomly locates a good character, Ron set up his code so 
that the last 7 or so sprites will not be randomly chosen. 
Of course, he is also checking CNT to see if he has finished 
with all 27 characters. 

2930-2980 This part of the routine takes the selected 
character, changes its color to black (to highlight it on the 
screen while we play with it), and freezes it momentarily. 
That is what the CALL MOTION(#I,0,0) is for. The ma- 
jor problem in sprite handling is that they keep moving at 
a pretty high speed, while BASIC keeps plodding along with 
old data. Ron prevents this problem by freezing the sprite 
before finding its location. This means that he gets accurate 
data via the CALL POSITION code. 

After locating the sprite, he computes the velocities needed 
to move it back to its original (and final) location. The Ex- 
tended BASIC reference manual talks about row velocities 
and column velocities, but it doesn't explicitly tell you that 
you can control the direction of the sprite. For example, 
if you want to move a sprite at a 45 degree angle, both the 
row and column velocities must be equal. To move at a 30 
degree angle, just make the column velocity equal to twice 
the row velocity. Ron is using this fact in statement 2960 
to figure out how far the sprite is, vertically and horizon- 
tally, from where it is supposed to go. He calculates this 
in MY and MX respectively. He then adds the two to get 
a value called TOT. The distances can be positive or negative 
depending on the sprite's location relative to its final 
position — left or right, above or below. 

In order to get a good value of TOT, we have to ignore 
the signs of the distances. In other words, we don't care 
if the number is positive or negative, as long as we know 
its absolute value. We find it with the ABS function. By 
making the row and column velocities a function of both 



the distance the sprite it has to go (MY or MX) and the TOT 
value, we can direct the sprite to travel in the right direc- 
tion. Take a look at the last statement in line 2960. It uses 
the MAX function available in Extended BASIC. TOT must 
be a reasonably-sized number because we will divide MY 
and MX by TOT to get our velocities. Since it is possible 
for the sprite to be right where it should be, TOT can be 
zero. If you divide by 0, however, your program will stop 
with an error. To make sure that TOT has a value of at 
least one, you would normally code in something like this: 

xxxxx TOT = ABS(MX)-hABS(MY) 

yyyyy IF TOT< 1 THEN TOT= 1 

77777 

This can be done just as easily with the MAX function, 
which gives the larger of the two alternatives. In this case, 
if 1 is greater than the result of the addition, it will return 
1 . On the other hand, if the result of the addition is greater 
than 1, it will return that number. Using the MAX func- 
tion eliminates the need for an IF statement right in the mid- 
dle of my code. MAX (along with its cousin, the MIN func- 
tion) is a handy feature of Extended BASIC that can save 
you a lot of coding trouble. We now use the values that 
we just computed to set the sprite moving again using a 
CALL MOTION. 

2990-3010 1 have also set a new variable (my, we are col- 
lecting a whole slew of them now!) called CHK to be equal 
to zero. This counter will be used to make sure that we don't 
try the next lines of code more than 10 times before we give 
up and refigure a new MOTION command. If we haven't 
tried it more than 10 times, we do a CALL COINC to see 
if the sprite has reached its goal. If not (HIT= 0) we go back 
and do it again. If the sprite has reached its final location, 
Ron stops it with a CALL MOTION, and does a CALL 
LOCATE to make sure it is being stopped exactly where 
he wants it. This is necessary because a sprite that keeps 
moving between the CALL COINC and the final CALL 
MOTION may no longer be in the right spot. He changes 
the color back to white. 

3020-3920 This code checks to see if we finished all the 
characters and restarts the process if we haven't. It then 
changes the screen back to green. It also issues a CALL 
DELSPRITE which clears the sprite characters from the 
screen. 

Protection and Improvement 

We have now finished the Extended BASIC version of 
the code. Our game gets a final debugging and is ready to 
go! The next step is just some administrative work to make 
sure that your effort will not be in vain. First, change the 
REM statement at the beginning of the program so that it 
says FINAL VERSION as well as the version number. Next, 
save it on cassette tape or disk. Label the tape or disk with 
the name of the program, the date, and the version number 
along with the words FINAL VERSION, Make two copies. 
If you are saving on tape, make one copy on each side and 
verify both. Then make another copy on a backup tape. 
You should always have a backup tape kept separately from 
your original master copies. Remove the tabs in the back 
of the tape to prevent accidental erasures. For disks, add 
the write-protect tab. Make a backup disk. Keep it separate 
from your regular disks. Then enjoy the fruits of your labor! 
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Spelling Flash will help students review their spelling 
periodically. This program does not use the Texas 
Instruments Speech Synthesizer. 
Its design incorporates one of the simplest, yet most 
elemental programming structures: the loop. One of the 
most valuable features of computers is their ability to 
repeat any task many times over. Spelling Flash uses a 
GOTO statement to form the loop. The program begins, 
reads a word from its data, presents it to the student, ac- 
cepts the response, prints a message to the student and then 
repeats the process. Line 330, GOTO 200, simply sends 
the program back to line 200, where the process begins 
again. In this case, the loop (and in Spelling Flash, the pro- 
gram) ends when it reads the non-word "ZZZ." Line 210 
checks for this flag; if the spelling "word" is "ZZZ," it 
ends the program. 

In order to use this program, the spelling words have 
to be typed into the program as DATA statements. The 
accompanying listing has a selection of spelling words, star- 
ting in line 380, but you can put in words of your choice, 
of course. If you use more words than are in the listing 
shown, and in the process generate more DATA statements 
with more line numbers, you will have to alter the value 
after THEN in line 210 to reflect the new line number of 
the END statement. 

The words will be read as string variables. They may be 
entered with separate statements for each word, or several 
words may be listed in each statement, as long as they are 
separated by commas. "Words" in this context may, of 
course, also consist of phrases or names with embedded 
spaces or other special characters. Such phrases must be 
enclosed in quotes. ZZZ must be the last word in the list 
of words; if it isn't, the computer will return a data error 
when it tries to read data that's not there. 

When the program runs, the screen is first cleared and 
a spelling word is flashed on the screen. After a short delay, 
the word is cleared and the student is asked to type in the 
spelling word. The subroutine in lines 340-370 cause the 
delay; if it seems too long or too short, the value in line 
340 can be changed. The student signals that he's finished 



spelling the word by pressing the ENTER key. The pro- 
gram gives some positive reinforcement with some sounds 
and the message, "YOU SPELLED IT RIGHT!!" If the 
word is incorrectly spelled, the student must try again un- 
til it is correct. 

This section of the program is also a loop. An incorrect 
spelling sends the program from line 280 back to line 220 
until the student gives the correct spelling. After the stu- 
dent has spelled the word correctly, the screen is cleared 
again and the next word flashes on the screen. 
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This program may be saved on cassette tape for the 
students' daily use. Each week, you can alter the list of 
spelling words by changing the DATA statements. 
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Pocket Typing Trainer 




Pocket Typing Trainer 

Here is a pocket-sized program for the TI-99/4A — small 
enough to fit on a 3 x 5 card— that Is not only quick to key 
in, but is also educational, illustrates a powerful technique 
with random numbers and is fun for all ages. The Pocket 
Typing Trainer asks which characters the user would like 
to practice, and then plays back an endless series of ran- 
dom five-character groups for him to copy. Two tones ris- 
ing at the end of the typist's response say "Correct;" two 
tones descending here mean "Oops." Try it! If you are a 
beginning typist, start with characters ASDF, the home keys 
of the left hand. Stop the program with a FCTN 4 (or 
SHIFT C on the 99/4) keystroke when you can type those 
four consistently without looking at them, and RUN the 
program again with ASDFJKL, and so forth .... If you 
are already a typist and you want to practice some of the 
unusual features of the TI-99/4A keyboard, as well as some 
of the characters important in BASIC (but not usually part 
of the typist's repertoire), try the characters "$( )*-f--. 

You are unlikely to notice it, but the Pocket Typing 
Trainer tends to focus on the characters which the typist 
is getting wrong — a remarkably sophisticated feature to find 
in a pocket-sized program — and one which brings me to my 
next point. 
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Skewing the Distribution 

Line 180 is where OUT$, the random character string, 
is manufactured a character at a time. It might have been 



written without the^3, in which case equal segments of the 
interval from zero to one would be assigned to the characters 
given by the typist. (Since the 99/4's built-in random 
generator, RND, generates "uniform random" numbers, 
every character would have the same chance of being 
chosen.) WithA3, the random numbers are cubed before 
a character is chosen. Since the numbers are less than 1 , 
they get smaller as they are cubed; this results in many more 
RND's corresponding to characters at the left end of the 
LETTERS string. For example, suppose that LETTERS, 
the string of characters which the typist wants to practice, 
has four characters. If RND turns out to be .50001, then 
the character a bit more than half way down LETTERS (i.e., 
the third character) would be the one chosen. But if we cube 
RND, the result is .12500, which is well within the first 
quarter of the range from to 1 ; and the first character is 
chosen. Perhaps Diagrams 1 and 2 would help to illustrate 
this more clearly. The Pocket Typing Trainer takes advan- 
tage of this by moving missed letters to the beginning of 
LETTERSS (Line 270). 
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The lesson here is that uniform random numbers like 
those provided by RND are a perfectly satisfactory foun- 
dation for any sort of randomness one could desire. This 
includes the statisticians' favorites: Gaussian, binomial, 
gamma, and so on. One simply needs to apply the proper 
transformations. 

Homework 

Tailoring and embellishing programs to suit users' per- 
sonalities is at least half the fun of computing. The Pocket 
Typing Trainer can be extended in many directions. Here 
are some of the options: 

Problem #1 (simple): Modify the program to allow the 
typist to choose how many random characters he'd like on 
the line. 

Problem §2 (moderate): Change the program to heighten 
the emphasis on characters which the typist is getting wrong 
whenever the error rate is high. 

Problem #3 (sound and graphics practice): Keep score, 
and periodically (say every 25 lines) treat the typist to a col- 
orful and melodic display, one whose elaborateness is 
greatest for a perfect score. 



66 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



WHAT IS 




And Why Is Everybody Talking About It? 



YOU can hardly pick up a computer publication, or at- 
tend a computer conference or fair these days without 
being inundated with discussion of UCSD Pascal. To 
understand what all the fuss is about, you must first know 
something of what is meant by portability and understand 
the concept of pseudocode and its relation to the 
pseudomachine. 

Portability, Pseudocode, and P-machine 

Let's start by assuming that you already know that Pascal 
is a structured, high-level, compiled language Gust as TI 
BASIC is a high-level interpreted language). In this article 
we won't go into the theory of compilers, interpreters, or 
the structure of Pascal as a computer language; we'll save 
that for a future time. For right now, let's imagine that your 
friend has written a really great Pascal compiler and 
operating system in his native 6502 Assembly Language for 
his Apple computer. You'd like to move it to your fully- 
configured TI-99/4 which has a TMS9900 microprocessor. 
What are your options? Sure, you could always recode the 
Pascal system for your TMS9900 (assuming you had a 
TMS9900 assembler), but it would probably be almost as 
much work as starting from scratch. How about first writing 
a 6502 simulation program for your TMS9900 and letting 
it re-write all the 6502 code? But even if you do this, the 
extra layer in between will result in a loss of speed and a 
greater memory overhead. This is what the microcomputer 
community has been up against— virtually no portability in 
moving languages or applications software from one system 
to another without a major re-working of the code. 

Now let's design a hypothetical processor to provide a 
convenient "home" for Pascal. We'll give it built-in instruc- 
tions for doing the type of things that the Pascal language 
likes to do. Let's call this pseudomachine a p-machine for 
short, and configure it to be a simple, idealized stack com- 
puter that uses pseudocode, or p-code — the native language 
or machine code for the p-machine. 

Great, but where do we go from here? What's the use 
of a p-machine, and how does it contribute to software port- 
ability? Must we throw out all existing hardware and soft- 
ware and start over by giving everyone p-machines? 
Obviously not. Rather, consider what would happen if we 
could eliminate the differences between the instruction reper- 
toires of specific microprocessors, so that they all execute 



an identical p-code. If a p-machine emulator for each CPU 
were written (in its native assembly language), one of the 
largest obstacles to portability would be overcome: Soft- 
ware could be written on different computers in a high-level 
language such as Pascal, then compiled to p-code, and final- 
ly "interpreted" for each specific CPU. Since the p-code 
would be universal, in theory a program written on, say, 
an Apple could be run without modification on a TI-99/4, 
if the program consisted entirely of p-code. Score one for 
portability! 

This is, in effect, what has been done in the UCSD Soft- 
ware System. All high-level languages in the system— only 
one of which is Pascal — are compiled into p-code. One way 
of looking at it is that the system software is not portable 
at all, because it is always executed on a p-machine. The 
portability is provided by a p-machine emulator for each 
host. So when you think of a TMS9900-based system run- 
ning Pascal, it is really running a simulation of a computer 
which is running Pascal object programs. 

Speed vs. Space: A Tradeoff 

What price do we pay for the benefit of portability? The 
detour through a p-machine often produces slower execu- 
tion than would native code. But raw execution speed is 
often overshadowed because p-code is considerably smaller 
than the corresponding native code— allowing the available 
memory to store a more capable program. If a program can 
be represented with p-code that fits entirely into available 
memory, and using native code requires extensive overlay- 
ing, then the p-code version will actually run faster! 

For best performance, it is desirable to optimize some por- 
tions of a program for space and others for speed. Since 
the UCSD Pascal System provides communication between 
an assembly language routine and a Pascal host program, 
it is possible (with some reduction in portability) to code 
time-critical routines (usually less then 10% of a program) 
directly in assembly language. The low-level assembly 
routine can request access to host program global variables 
and constants, and can also allocate its own global storage 
space. 

A project is underway at SofTech Microsystems (the firm 
responsible for the licensing and maintenance of the UCSD 
Pascal System) to alleviate many of the performance 
drawbacks of p-code (e.g., speed) without sacrificing port- 
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ability. Code generators will translate time-critical pro- 
cedures into native code through an optional step in the com- 
pilation process. A code generator will take a complete p- 
code program as input, and produce, as output, a mixture 
of unmodified p-code and translated native code procedures. 
Programs can then be written and maintained entirely in 
Pascal, with the p-code object version still completely port- 
able. A prototype code generator for the TMS9900 
demonstrated that improvement in execution performance 
compared to interpretive execution has been around a fac- 
tor of 15! And if we take into account that translated native 
code for the TMS9900 is about 50% larger then the cor- 
responding p-code, the improvement is indeed significant. 

The Operating System 

UCSD Pascal is not only a language compiler, but a com- 
plete operating system with utilities and libraries. In addi- 
tion to the Compiler, you have a screen-oriented Editor and 
a File Manager (or Filer). The design philosophy behind 
UCSD Pascal was to keep users continually informed about 
the state of the system and the options available in that state. 
This is done with a prompt line that allows users to select 
options by typing single-character commands. 

The screen orientation of the Editor means that you'll 
be doing lots of paging instead of scrolling. The editor posi- 
tions a cursor into the text file being edited and surrounds 
it with a "window" into that area of the file. When you 
look at the display screen, you are peering into this win- 
dow. To modify text, you simply move the cursor to the 
place where the change is desired and indicate the change. 
Commands are provided for moving cursor, finding and 
replacing patterns of text, making insertions and deletions, 
and copying text from elsewhere and moving it to any posi- 
tion indicated by the cursor. In addition to the powerful 
text editing commands, special facilities are provided for 
processing documents — e.g., user-specified left and right 
margins and auto-indenting to encourage the writing of 
structured programs. In microcomputer systems without an 
80-column display, horizontal scrolling allows users to move 
the text window left and right to view the entire Pascal page. 

When you enter the Filer, you have access to another 
complete set of commands: (1) housekeeping commands 
such as listing directories, compressing files on a disk, and 
testing disks for bad sectors; plus (2) program execution and 
file manipulation commands for executing named object 
programs, invoking (with shortcuts) important system pro- 
grams, designating files for removal, and renaming or 
transferring among on-line devices. 

The Pascal Compiler translates Pascal programs from a 
humanly readable text form (source code saved 
on disk by the Editor) into p-code form (object code) which 
is saved on disks for future execution. The Compiler is 
designed to translate the entire contents of a text file in one 
pass. But unlike the Editor and Filer, it has hardly any in- 
teractive commands. You can, however, change certain con- 
trols (directives) which govern the way in which the Com- 
piler does its work. 

Error Handling 

A big difference between an interpreted language (such 
as BASIC) and a compiled language (such as Pascal) is 



demonstrated in the way syntax and run-time errors are 
handled: If the Compiler finds a syntax error, it halts and 
displays an error message (if you've set it to return to the 
Editor automatically), or prints on the screen a progress 
display containing copies of the line (and previous line) 
where the program error was found, as well as the coded 
number of the syntax error. You can fix the error by return- 
ing to the Editor or attempt to compile the rest of the pro- 
gram. In some less drastic conditions, the program will, in 
fact, compile all the way to the end without the Compiler 
losing its way. 

Run-time (execution) errors also cause all the action to 
stop. A three-line error message tells you the type of error, 
the segment and block where it occurred, and how far it 
is from the beginning of the block (which you convert to 
the actual line of code). In simple cases, this will be all the 
help that's needed to pinpoint the error; in more complex 
cases, you'll have to insert WRITELN statements (the 
equivalent of PRINT) to determine the values of variables 
before the program blew up. (There's no convenient 
BREAK statement as in TI BASIC.) 

Additional Language Support 

The UCSD Pascal System does, in fact, support addi- 
tional compiled languages. At present, the FORTRAN-77 
and BASIC Compiler are supported directly 
by SofTech Microsystems (MicroFocus CIS COBOL is also 
presently running under the UCSD p-System). SofTech also 
has a Cross-Assemblers Package (a complete set of cross- 
assemblers generating native code for the Z80, 8080, Z8, 
PDP-ll/LSI-11, 6502, 6800, 6809, and 9900 
microprocessors) that allows programming on the host 
machine of your choice, for the object machine of your 
choice. Think of the possibilities. . . . 

UCSD Pascal and the TI-99/4 Community 

Texas Instruments has implemenfed UCSD Pascal in a 
P-Code Card for the TI Peripheral Expansion System. The 
P-Code Card contains an operating system called the UCSD 
p-System and allows access to a variety of languages in ad- 
dition to Pascal. Besides being a powerful tool for software 
developers, UCSD Pascal in TI's version is also of great 
importance to software users: Users won't have to buy all 
the software and hardware that software developers need 
in order to write and debug programs. The simplest con- 
figuration for software users requires the TI Home Com- 
puter, a monitor or TV set, the TI Peripheral Expansion 
System, the Memory Expansion Card, the P-Code Card and 
a cassette drive; software developers will need the Disk 
Memory System (the Disk Drive Controller and up to three 
disk drives) as well. Under this two-tier system, a TI-99/4A 
user will be able to run some very sophisticated and power- 
ful applications software with only a minimal investment 
in the system hardware and software. ggBB 
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Language Conversion: 

TRS-80 BASIC 
to 

TI BASIC 



T X? 




Tucked away in my basement, I have both a Radio 
Shack TRS-80 and a Texas Instruments TI-99/4A. 
The half-dozen personal computer magazines I read 
each month provide coding and ideas for many new pro- 
grams for my TRS-80. 1 now have a large collection of these 
programs and have grown to appreciate greatly the help and 
enjoyment this software library provides. Unfortunately, it 
just hasn't been that easy to acquire software for the TI 
machine. [But now, with the birth of PP'er Magazine, this 
situation will be rapidly remedied.— Ed.] The solution for 
me was obvious. I'd convert my TRS-80 programs to TI 
BASIC. 

At the suggestion of 99'er Magazine's editor, I read an 
article by Harley M. Templeton appearing in the November 
1980 issue of Personal Computing magazine. Although the 
article highlighted the major differences between the ver- 
sions of BASIC used on the two systems, it didn't point 
out which differences matter and which are merely in- 
teresting but of little practical importance. As you might 
expect, the only way to find out is actually to convert a pro- 
gram and learn from the problems that you encounter. 

To set up a fair test, I selected TRS-80 programs from 
opposite ends of the spectrum: The first was a "number 
cruncher" which I had written to convert the number cor- 
rect on a test to a scaled value on a continuum of learning. 
(My nine-to-five job involves the management of the stan- 
dardized testing programs for the Portland, Oregon, School 
District.) The other program was an adaptation of the ideas 
behind a slot machine in David Ahl's Basic Computer 
Games — a program with extensive use of graphics. 

The first trouble I encountered was in converting the 
PRINT AT command available on the TRS-80. The pro- 
cedure suggested by Templeton was to set a loop as follows: 
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In theory this works fine, but it is slow if the string length 
is long; single characters don't walk across the screen — 
they crawl! Since the program requires a prompt printed 
in the middle of the screen to cue the operator to enter the 
next five values for the scaling procedure, my final solu- 
tion was to use the following coding: 



100 PRINT "MESSAGE AT THE MIDDLE OF THE 
SCREEN" 

200 PRINT ::::::::: 
This procedure causes the text prompt to scroll up from the 
bottom to the middle of the screen. It is not especially 
speedy, but it is fast enough for the data entry in cases where 
you don't need lines that disappear at the top of the screen 
as the result of this scrolling action. 

The ease with which the "number crunching" code con- 
verted was a pleasant surprise. It was important to keep 
track of the differences in the line numbers for GOTO's 
and other branches, but that, in fact, presented little pro- 
blem. What was more difficult was converting the logic of 
IF-THEN-ELSE clauses. TRS-80 (Microsoft) BASIC allows 
multiple statements following the THEN- and ELSE-coding 
that are difficult to keep straight and re-code. The multiple 
line conditionals can be converted, but the conversion re- 
quires a clear head and a basic understanding of how the 
program works. 

Because I had written the TRS-80 program myself (it had 
more lines of documentation than coding) and naturally 
understood its operation, the conversion was fairly straight- 
forward. After I changed nearly all the PRINT and PRINT 
AT statements, the program worked the first time (surprise). 
To check it out, I made a comparison run on the TI-99/4 
and the TRS-80. Surprisingly, they ran the same job in 
almost the same time: three minutes for a forty item test. 
Finally I spruced up the program a little with CLEAR and 
CALL SCREEN commands to take advantage of the col- 
or options available on the TI machine. 

The second program was a challenge. It had essentially 
four main parts: (1) an introductory message, (2) the set- 
up graphics of the "slot machine," (3) the rotation of the 
wheels in the slot machine, and (4) the determinaton of the 
winnings and losses. The first and easiest part of the pro- 
gram to set up was the section which printed the introduc- 
tory messages. I couldn't resist adding the CALL SCREEN 
command and sprucing up the comments to make it more 
attractive (at least to me). In this instance, the lack of speed 
for the HCHAR command was a benefit since it painted 
the screen at a leisurely-yet-pleasing pace. Before I was 
through, I had changed all the code in this section for 
aesthetic reasons. 

My real conversion problems began in the second sec- 
tion. There, I came face-to-face with the significant dif- 
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ferences in the way graphics are handled by the two systems. 
In moving from a screen of 16 x 64 to one of 24 x 28, 1 had 
to stop and develop a new outline shape for the slot 
machine — one that would fit the TI screen. Deciding the 
colors to be used in defining the outline of the machine and 
the shapes to be matched (cherry, bar, bell, orange, lemon) 
took extra tune. After some experimentation using dark blue 
against a white background, the lemon became a lime (dark 
green). To develop a new set of four characters for the 
orange, I experimented with CALL CHAR until the figure 
finally looked like a circle instead of one of Dali's explod- 
ed watches. Since there isn't an orange color available, the 
orange became a plum (magenta). I was still a character 
short, so I used the heart from the back of the user's manual. 

En route to coding this part of the program, I had to 
devise the shapes, assigning them to one of the skteen 
character sets. Twice, however, I made the mistake of try- 
ing to conserve memory by using one of the character sets 
with pre-defined codes. This caused errors in the print 
statements using these codes. The moral of that experience: 
Whenever possible, stay away from the first eight character 
sets when defining new characters. It took a while to work 
the kinks out of this section, but the addition of color made 
a tremendous diffence, and I became hooked on TI 
graphics. (FU probably never turn the TRS-80 version of 
this program again). 

At this point, I realized that virtually every line of the 
original program had been rewritten in the move to the TI 
machine. Since this was to be an article on program con- 
version, not programming, I called the editor at 99'er 
Magazine to make sure I hadn't missed the point of the ar- 
ticle. Gary, however, wasn't surprised at all, and encouraged 
me to include suggestions on rewriting as well as conversion. 

The third section of this program was probably the 
toughest to convert. I have been responsible for program- 
ming and systems analysis for over ten years on a variety 
of large computer systems. This has required establishing 
structured programming standards for every program with 
which I work. Even though I had personally keyed in the 
slot machine program, I had forgotten how poorly it was 
documented. This is not a criticism of Ahl's book, but rather 
a realistic comment on what you are likely to encounter 



An Example of Code Translation 
From TRS-80 BASIC to TI BASIC 

120 FOR II = 1 TO NI 

130 IF IZ(I1)<>0 THEN PRINT "THIS ITEM 

DROPPED";ID$: GOTO 160 

140 IF K$ = K1$ THEN IF C1(I1) = GOTO 160 

ELSE C2=10*Cl(Il) + 200 

150 DX = C3-C2 

160 NEXT II 

Translates to: 

120 FOR II = 1 TO NI 

130 IF IZ(I1) = THEN 140 

132 PRINT "THIS ITEM DROPPED";ID$ 

134 GOTO 160 

140 IF K$< >K1$ THEN 150. 
142 IF C1(I1) = 0THEN 160 
144 C2=10*Cl(Il) + 200 
150 DX = C3-C2 
160 NEXT II 



SUIVIMARY OF COMMAIMDS 



TRS-80 Commands 
Not Requiring Conversion 



ABS 

ASC 

ATN 

CHR$ 

COS 

DATA 

DIM 

END 

EXP 

GOTO 



GOSUB 
INPUT 
tNT 
LEN 
LET 
LOG 

ON/GOSUB STRi 
ON/GOTO TAN 
PRINT 
READ 



REM 

RESTORE 
RETURN 
SGN 
SIN 
SQR 



TRS-SO Commands 
That Can Be Ignored 

CLEAR CSNG DEFSNG 
CDBL DEFDBL DEFSTR 

CINT DEFINT FRE 

Commands Difficult to Convert to TI BASIC 
TR^SO TI BASIC 



VAL 



TRS-80 Commands 
Easily Converted 



TRS^O 
CLS 
FIX 

INKEY$ 
INPUT#-1 
LEFT»{A$,N) 



TI BASIC 



CALL CLEAR 
INT 

CALL KEY 
INPUT#1 
SEG«(A$,i;j) 
MtD»(A«,N1>42) SEG$(A»,N1,N2) 
RANDOM RANDOMIZE 
RIGHT$(A»^) M-LEN(A»)-N+1 



IF.. THEN.. ELSE 
POINT 

POKE (graphics) 
PRINT AT 



RESET 
SET 



IF.. THEN.. ELSE* 

refer to line numbers 

CALL CHAR CALLGCHAR 

CALL CHAR CALLKCHAR 

FOR . . ASC . . CALL KCHAR . 

NEXT 

PRINT .. FOR .. PRINT " 
NEXT 

CALL CHAR CALLKCHAR 
CALL CHAR CALLKCHAR 



Commands Not Available In TI BASIC* 



RND(N) 

STOP 

TAB 

? 



SEG$(A$^;>J) 
INT(N*RND+1) 
BREAK 

TAB,(with comma) 

PRINT 

REM 



ERL 
ERR 
ERROR 
ON ERROR 



PEEK 
POKE 
POS 

RESUME 



STRING) 
USR 

VARPTR 
PRINT USING 



when converting a program. After an hour of tracing 
through a maze of GOSUBs without the benefit of a single 
comment, I decided on a total rewrite. 

The TRS-80 version had the program determine the coor- 
dinates of one of the nine open spots on the slot machine 
and then perform a PRINT AT at the location. Using FOR- 
NEXT loops, I was able to overprint the nine spots to give 
the illusion of a rotating machine wheel. By converting the 
PRINT AT commands to HCHAR calls and storing the 
four codes for each shape in an array, I simulated this ac- 
tion on the TI-99/4. The graphics were fantastic (an un- 
biased estimate), but the speed was disappointing. In the 
TRS-80 version it was necessary to insert dummy FOR- 
NEXT loops to slow down the rotation of the wheels; the 
TI version, on the other hand, was too slow right from the 
start. 

The single enhancement I had made to the TRS-80 ver- 
sion was to have the wheels stop one at a time, to prevent 
giving away the final result of the pull during rotation. To 
keep the wheels moving at a constant speed on the TI-99/4, 
I included dummy counting loops as each wheel was 
stopped. In spite of its lack of speed, the richness of the 
TI-99/4 graphics made the TI BASIC program a more ap- 
pealing simulation of real slot machine action than the 
TRS-90 version. 

To summarize, if the program you want to convert is a 
number cruncher with a few graphics, the conversion should 
go smoothly and result in a TI BASIC program which runs 
with speed roughly comparable to its TRS-80 cousin. But 
if the program involves the heavy use of graphics, expect 
to rewrite it. And if the program is poorly documented to 
boot, keep a bottle of aspirin handy. Futhermore, because 
of the limitations of the TI BASIC IF-THEN-ELSE, and 
the lack of a PRINT AT command you can expect nearly 
every converted program to increase in length. On the plus 
side, however, the extended variable names available in TI 
BASIC make it possible to enhance the quality of the 
documentation and structure of the rewritten program. 

One final note: TI's Extended BASIC Command Car- 
tridge adds the PRINT AT and PRINT USING statements, 
has the capability of controlling up to 28 moving objects 
simultaneously, has improved IF-THEN-ELSE capability, 
and supports true subroutine definition (a significant aid 
in structuring programs). Although Extended BASIC pro- 
bably won't alter the need for rewriting graphic programs, 
it should make the job a lot easier. 
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Language Conversion: 

APPLESOFT 

to 

TI BASIC 




The Apple II has also generated its fair share of ap- 
plications and games programs — most of them tak- 
ing advantage of the Apple's color graphics capability. 
In this regard the Apple is more like the TI-99/4A than the 
non-color TRS-80. 

The APPLESOFT language card has about 29 non- 
graphic commands which are identical to TI BASIC. These 
commands, shown in Table 1 below, can be copied without 
much concern over compatibility. 
ABS DEF GOTO ON...GOSUB SOP 

ASC DIM INT READ STEP 

ANT END LEN REM STOP 

CHR$ EXP LET RETURN STR$ 

COS FOR... TO LOG SGN TAN 

DATA GOSUB ON... GOTO SIN 

Table 1 

In the remaining 26 or so commands, the differences range 
from very slight to major. Most importantly, the differences, 
though slight in format or content, can cause major prob- 
lems in converting code. I'll go into each command, show- 
ing what to look for and how to resolve difficulties. 

String Commands 

APPLESOFT uses three different commands (LEFTS, 
MID$, and RIGHTS) in place of the TI's SEGS. The state- 
ment LEFT$(AS,N) references the first N characters of 
string AS. This directly translates into SEGS(A$,1,N). 
MID$(AS,M,N) is the same as SEGS(AS,M,N). 
Right$(AS,N) references the last N characters in string AS. 
The best way to duplicate this is to combine the LEN and 
SEG commands as follows: SEGS(A$,LEN(AS)-N-l- 1,N). 

The VAL function acts the same way in both AP- 
PLESOFT and TI BASIC if the field being VALed is a valid 
numeric string. That is, both will return 45.2 as the value 
of "45.2". If the string does not contain valid numeric 
characters, however, the results are very different. TI BASIC 
will stop the program if the field contains non-numeric 
characters. APPLESOFT, however, will return with the 
numeric equivalent of the numbers found in the string before 
the first non-numeric character. For example: VAL 
("123AB") will return with 123. If the first character of the 
string isn't numeric, APPLESOFT returns a 0. 

This is important because it means that APPLESOFT 
does not have to edit a string prior to the VAL statement. 
A typical program will have code such as: 



10 INPUT AS 

20 X = VAL(A$) 

30 If X = THEN 10 

I've found that in most cases, I can ignore the whole issue 
by using TI's built-in numeric editor and coding INPUT 
X in place of statements 10 to 30 above. If you can't do 
this, use the following routine to replace the APPLESOFT 
VAL command: 

10 FOR Y = l TO LEN (AS) 
20 IF (ASC(SEGS(AS,Y,1))<48) 

+ (ASC(SEGS(A$,Y,1))>57)THEN 40 
30 NEXT Y 
40 IF Y = 1 THEN 80 
50 Y = Y-1 

60 Y = VAL(SEG$(AS,1,Y)) 
70 GOTO 90 
80 Y = 
90 END 

Note: This is not a rigorous equivalent of APPLESOFT'S 
VAL, but it is sufficient for whole numbers greater than - 1 . 

FOR-TO-STEP-NEXT 

In the usual run of programs, the FOR-TO-STEP state- 
ment is identical in the two interpreters. There is, however, 
a very significant difference to look out for. The BASIC 
statement FOR Z = 5 TO 4 will execute once in AP- 
PLESOFT but will not execute at all in TI BASIC! This 
difference is important but can easily be spotted while 
transcribing a program. It isn't so obvious if the statement 
is FOR Z = A TO B where A and B are computed variables. 
The safest thing is to test for A greater than B. If it is, make 
B equal to A before entering the loop. 

Both interpreters treat the STEP statement the same way 
and are very similar in the format of the NEXT statement — 
though in APPLESOFT, NEXT may be used by itself to 
end a single FOR loop. If the FOR loops are nested, 
however, APPLESOFT needs the control-variable name 
following NEXT, as does TI BASIC. 

INPUT/OUTPUT (I/O) 

Both machines use very similar INPUT and PRINT 
statements. They differ only in the use of print separators. 
Both use the comma as a tab command and the semicolon 
as a non-space separator. APPLESOFT reserves the colon 
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for a special use and doesn't treat it as a new line separator. 
When converting, always keep this in mind because it pro- 
vides a powerful formating tool when converting PRINT 
statements. The TAB command is similar in both inter- 
preters, but TI machine skips to a new line if a TAB value 
is less than the current column location. The APPLE will 
ignore the TAB statement in this case. 

As part of the print function, APPLESOFT has a com- 
mand of the format SPC(N), which is used to print N spaces. 
This must be replaced with a string of N spaces in the TI 
PRINT statement. APPLESOFT has to be very careful with 
spaces because it does not format a number with leading 
and trailing spaces the way TI BASIC does. This means that 
it is very rare to see something like PRINT J;K in 
APPLESOFT— a perfectly acceptable command in TI code 
since all numbers are printed with a trailing space. 

The APPLE II screen starts off with the cursor at the 
top and works its way down to the bottom before scrolling 
begins. The APPLE uses HTAB and VTAB statements to 
shift the print position horizontally and vertically in order 
to print information at different locations on the screen, 
TI BASIC uses the colon, instead, to force line feeds. When 
converting, either change the print format to use line-feeds 
(colons), or use HCHAR to print at an equivalent location. 
Note: TI provides a full PRINT AT (using HCHAR) routine 
as part of its Programming Aids I package, but it is very 
slow. In many cases (where scrolling is acceptable), you are 
better off setting up a sequence of PRINT commands us- 
ing the colon (PRINT ::::::). If you must use the 
HCHAR method of print out, here's a routine to print string 
A$ at row RO, column CO: 

10FORX=1 TO LEN(A$) 

20 CALL HCHAR 

(RO,CO + X - 1 , ASC(SEG$(A$,X, 1))) 

30 NEXT X 

This routine is much faster but requires you to remember 
to begin at column 3 (where TI BASIC begins its PRINT 
line) and not to allow A$ to extend past column 30 (where 
TI ends its PRINT line). 

The prompt for APPLESOFT input is the same as for 
TI BASIC except that it uses a semicolon in place of the 
colon to separate the prompt from the input variable. For 
example: 

10 "ENTER A NUMBER";Q 
VS 

10 "ENTER A NUMBER" :Q 

The last I/O difference concerns getting a single character 
without using the INPUT statement: APPLE uses the GET 
statement, while TI uses the CALL KEY statement. 

SCREEN COMMANDS 

The APPLE has three modes of processing: Text mode 
and two different graphics modes. While in Text mode, the 
programmer has a number of commands which provide a 
wide range of control over the screen. The APPLE screen, 
in this mode, acts like the TI— except it starts at the top 
and works its way down to the bottom before scrolling. It 
also allows the programmer to set the width of the print 
screen ("text window") and the length (number of lines) 
of the text window, among other things. Some of the most 
commonly encountered commands are: 



CALL - 936 Clears the screen inside the test window 
CALL -912 Scrolls the text window up 1 line 
CALL - 868 Clears the current line from the cursor 

to the right 
HOME Same as TI's CALL CLEAR 

POKE 33,L Sets left margin of window to L 
POKE 33, W Sets width of window 
POKE 34,T Sets top of window 
POKE 35,B Sets bottom of screen 
FLASH Starts 'flashing' output from white let- 

ters on black to black letters on white 
and back again 
INVERSE Reverses output to black letters on white 
NORMAL Resets FLASH and INVERSE 
POS(N) Gets current horizontal column of the 
cursor (i.e., N will have column number 
0-39) 

To simulate FLASH or INVERSE, use TI BASIC'S CALL 
COLOR statement. For Example, CALL COLOR (3,16,2) 
gives white numbers from to 7 on a black background. 
Changing this to CALL COLOR (3,2,16) will cause the in- 
verse of it to appear (black numbers on a white background). 

RANDOM NUMBERS 

Because APPLESOFT has the ability to retain a random 
number for re-use, you cannot always convert the APPLE 
RND statement directly to TI. In APPLESOFT, if the state- 
ment is RND(0), APPLESOFT re-uses its last random 
number. If the statement is RND(N) where N is positive, 
it gives a new random number. If the statement is RND(N) 
where N is a negative number, N acts as a 'seed' number, 
and all other RND statements will follow a standard se- 
quence. Note that the value N can be any positive number 
in order to give a new random number. 

If you see a statement using RND(0), backtrack to the 
last statement with RND(N) and save that random number 
in place of RND(0). For example: 

10 If RND(2)<.5 THEN 500 

60 If RND(0)<.75 THEN 600 
in APPLESOFT would convert in TI BASIC to: 
10 Q = RND 
15 IF Q<.5 THEN 500 

60 IF Q<.75 THEN 600 

MULTISTATEMENT LINES 

A key point about APPLESOFT that I haven't yet mem 
tioned is that it allows multiple statements on one program 
line. Each statement is separated by a colon. This allows 
code like: 

10 X = X + Y:Y = Y+1:Z = Z+1 
Translating multistatement lines can be a big problem 
because there may not be available line numbers to assign 
to the converted statement lines. For example: 

400 A = A + 1 :FOR 1 = 1 TO X:B = I*A:NEXT I 

401 GOSUB 403 

402 RETURN 

403 REM 

404 GOSUB 600 

405 A = A+10 

406 RETURN 



74 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



The problem here is that there is no room to separate the 
multiple statements on line 400. 

You can get around this by using a line number transla- 
tion: Multiplying all line numbers by 10 allows you space 
to insert the extra line of code. The translated code is as 
follows: 

4000 A = A+1 

4002 FOR I = 1 TO X 

4004 B = I*A 

4008 NEXT I 

4010 GOSUB 4030 

4020 RETURN 

4030 REM 

4040 GOSUB 6000 

4050 A = A-f-10 

4060 RETURN 

IF-THEN-ELSE 

APPLESOFT does not require the ELSE feature of an 
IF statement because it allows other statements after the 
THEN part of the IF statement, as in the following: 

10 IF A = X THEN X = X+1:Y = Y+1 

20 A = X + Y 

If X is equal to A, all statements following THEN are ex- 
ecuted. If X isn't equal to A, the program simply advances 
to statement 20. The TI BASIC equivalent is: 
10 IF X = A THEN 15 ELSE 20 

15 X = X+1 

16 Y = Y+1 
20 A = X + Y 

Because TI BASIC lacks multiple statements per line, it 
requires much more coding and a concurrent increase in 
memory needed for code. Keep this in mind if you are temp- 
ted to enter a program requiring 16K RAM in AP- 
PLESOFT; it probably won't fit in your TI machine. [Of 
course, if you have TI Extended BASIC, all this is moot, 
since this Command Cartridge allows multiple statement 
lines. See "HOW E-X-T-E-N-D-E-D IS EXTENDED 
BASIC?"— Ed.] 

LOGICAL EXPRESSIONS 

Both interpreters allow logical expressions to be used as 
if they were numeric values. APPLESOFT treats true ex- 
pressions as if they are equal to 1 , while false expressions 
are equal to 0. For TI BASIC true expressions are - 1, false 
are 0. Whenever converting code from APPLESOFT ,just 
insert a in front of the logical expression: 

10 X = (0$ = "A")*5 
becomes 
10 X= -(0$ = "A")*5 

AND/OR 

APPLESOFT allows multiple IF tests to be combined us- 
ing the Boolean operators AND and OR. TI BASIC also 
allows this using the and " + " arithmetic operators, 
respectively. For example: 

10 IF (A = B) AND (C = D) THEN X = X+1 
is replaced with 

10 IF (A = B)*(C = D) THEN 15 ELSE. . . 
15 X = X+1 

In some cases, a straight conversion of the APPLESOFT 
IF-THEN will result in wasteful code. It is always a good 
idea to understand the purpose of the tests being made, and 
if possible, re-code them more efficiently. For example: 



10 IF (A = B) AND (C = D) THEN X = X + 1 
20Y = Y-t-l 
would convert to: | . 

10 IF (A = B)*(C = D)' tHEN 15 ELSE 20 
15 X = X-Hl 
20Y = Y-f-l 

but it would take less code (and therefore less core!) to in- 
vert the test: 

10 IF (A<>B) + (C<>D) then 20 

15 X = X-M 

20 Y = Y+1 

SPECIAL FUNCTIONS 

Each interpreter has special functions oriented toward the 
manufacturer's hardware. Some of these are similar to other 
functions available in a different computer. I will list only 
the ones most commonly seen in APPLESOFT programs. 
CLEAR Initializes all variables. Automatically 

done by TI BASIC as part of RUN. 
HIMEM Sets highest and lowest memory 

LOMEM available to BASIC. No equivalent in 

TI BASIC. 

FRE(O) Gets arrlount of available memory left. 

PDL(N) GETS jbystick input. In TI BASIC, 

use CALL JOYST instead. The PDL 
function! returns with values from to 
255. If the value of N is to 3, you 
are referencing the joysticks, but values 
from 4 tb 255 can do weird things. 
Luckily, the APPLE joysticks don't 
seem to be used much. Also, the only 
way to t'est for the 'FIRE' buttons is 
to PEEK(- 16287) through 
PEEK(- 16284) for paddles thru 3. 

POP Cancels the last GOSUB. This is most- 

ly used in edit subroutines where an 
error causes the progam to go to an 
error routine instead of RETURNing. 
The only way to code an equivalent in 
TI BASIC is to have the edit routine 
coded in an error switch which is inter- 
rogated as soon as the subroutine 
RETURNS. 

This tells APPLESOFT to GOTO a 
part of the program if it encounters 
certain errors while processing. In TI 
BASIC, any errors are either handled 
by the BASIC interpreter (e.g., 
dividing by zero), or cause the pro- 
gram to end (e.g., reading past the last 
DATA statement). The ON ERR is 
most often used to trap an error ex- 
pected by, or consciously caused by 
the programmer. 
USR(X) Jump to a machine language 

subroutine. 

As you can see from the ^^oregoing, converting most code 
from APPLESOFT to TI BASIC is straightforward.with 
most of the effort devoted to converting PRINT statements. 
Most importantly, don't get frustrated if your first attempts 
don't succeed the way you intended. After a while, it will 
all become second nature. , ' 



ON ERR 
RESUME 
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The Secret of 
Personal Record Keeping 

Implementing 



DISPLAY AT 

and 
ACCEPT AT 

Without Extended BASIC 




Some of you may have accidentally stumbled upon 
features of the TI-99/4 that are not described 
anywhere but which are nonetheless quite helpful. I 
did. . .and what happily resulted was a way to quickly print 
text to and accept it from anywhere on the screen without 
having to pass through loops or causing the screen to scroll. 

Those of you with Extended BASIC already have this 
capability with the DISPLAY AT and ACCEPT AT 
statements. Now you can have these powerful features in 
TI BASIC (the language built into the TI-99/4 and 99/4A 
computers), provided the Personal Record Keeping Com- 
mand Cartridge is inserted. This cartridge, which is quite 
powerful and versatile in itself, will interface with the con- 
sole's BASIC routines and allow you to use two new 
statements: CALL D and CALL A. [See "Personal Record 
Keeping: Managing a Mobile Home Park" for more infor- 
mation on the PRK cartridge.Those of you without the PRK 
cartridge but who happen to have the Statistics cartridge 
should be able to use that instead.— Ed.] 

Before getting into the documentation, I should, of 
course, mention that you can also print anywhere on the 
screen without CALL D by handling the printing character 
by character using the subroutine given in the examples in 
your manuals, i.e., "Character Definition." The drawbacks 
of that method include lack of speed (the letters appear one 
by one), more cumbersome programming and more 
memory space taken up. 
1. DISPLAY AT - numerical data 

CALL D (R, C, L, V) 

R = row number of first character of print line 
C = column number of first character of print line 
L = maximum length of print line; must be > = 1 
V = variable for the value that is to be printed 

R/C— The R(ow) and C(olumn) variables are meaningful 
with values between 1 and 24, and 1 and 28, respec- 
tively (the print field 24 x 28 is used). Values below 
the minimum of 1 (0 and negative numbers) are 
treated as the value 1 . Values above the maximum 



(24 or 28) are automatically subtracted as many 
times as is required to bring the result between 1 
and 24 or 28; this result is then used as the R and 
C value. This is a nice feature that eliminates many 
program halts of "BAD VALUE" that often result 
from careless progranuning. Data at the end of the 
screen line is not printed at the beginning of the 
next screen row as is the case with the CALL 
HCHAR statement. 

L— The L position can be used with a fixed number 
(the maximum meaningful number is 28) or as a 
variable to which the function can be assigned in 
numerical form, like SEG$ in strings. 

V — Instead of a numerical variable, you can also put 
a number m this position; it will then be printed 
on the screen in a position according to the rules 
above. 

Example 1 

100 CALL CLEAR 
110 V = 326525 
120 CALL D(12, 10. 5, V) 
130 GOTO 130 

Of course you can explain why this program displays only 
3265 in the middle of the screen. (Remember that a sign- 
equivalent to a digit — precedes each number, and that plus 
signs are suppressed on printing.) How would you have to 
change line 120 to give the full 326525? 

2. DISPLAY AT - string data 

Version 1: CALL D(R, C, L, S$) 

Version 2: CALL D(R, C, L, ("PAUL W. KARIS") 

Version 3: CALL D(R, C, L, CHR$(N)) 

The variables R, C, and L work as described previously 
under section 1, above. 

Here expecially, L can be put to good use as a built-in SEG$. 
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Version 1 : the string variables S$ is printed 

Version 2: the string between quotes is printed 

Version 3: a complicated way of saying CALL HCHAR(R, 

C, N) that is merely mentioned here as illustration of the 

possiblities 

Example 2 

100 CALL CLEAR 

110 A$ = "THIS IS MID-SCREEN" 

120 CALL D(12, 4, 19, A$) 

130 GOTO 130 

3. ACCEPT AT - numerical data 

The ACCEPT AT statement works like INPUT but can 
be formated anywhere on the screen. The input prompt can 
be printed in the appropriate place with the technique of 
section 2, above. The built-in value checks are an additional 
feature. 

CALL A(R, C, L. F, A, MN, MX) 

R, C, and L have been explained in section 1. 

F = function variable 
A = accept variable 
MN = minimum value 
MX = maximum value 

F — The numerical variable in this position assumes a 
value 1-7 depending on certain function keys be- 
ing depressed. The values connected to these func- 
tions in this way should not be confused with the 
ASCII values of these functions that can be useful 
in CALL KEY statements. For completeness, I'll 
also tabulate the ASCII values here. 



Function Key 


CALL A vdlue 
(F position) 


ASCII value 


T 1-99/4 A T 1-99/4 






FCTN 5 SHIFT W - BEGIN 


6 


14 


FCTN 8 SHIFT R - REDO 


4 


6 


FCTN 7 SHIFT A - AID 


3 


1 


FCTN 9 SHIFT Z - BACK 


7 


15 


FCTN 4 SHIFT C - CLEAR 


2 


2 


FCTN 6 SHIFT V - PROC'D 


5 


12 


ENTER 


1 


13 



CLEAR will not only give F a value of 2, but it 
also clears the input printing field on the screen and 
is to be used when typed input is not yet entered 
and should be changed. Warning: This means that 
if you write a program that continually loops to 
a CALL A statement, CLEAR cannot be used to 
break the program. Only QUIT or cutting the 
power will work then, but it will also erase your 
program in the process! The solution to this prob- 
lem is to program your escape routine, e.g., IF 
F=3 THEN 10000 enabling you to use AID to 
bring the program to line 10000 which reads: 10000 
END. 

A — The variable in the position of A assumes (accepts) 
the value you typed in much in the same way as 
the input variable does after you depress ENTER. 
The F variable, of course, then gets the value 1 since 
you have used the function key ENTER. If you 
press ENTER when the print/input field contains 
no information (only "space"), F will take on the 



value in the above table if one of the function keys 
has previously been pushed. 

MN — The numbers or the values of the numerical 
MX— variables in the positions MN and MX respectively 
determine the minimum and maximum values that 
A will accept. A gentle beep when you press the 
ENTER warns you if you try to step beyond these 
imposed limits. The screen, of course, will accept 
any numerical data, provided that the length does 
not exceed L(e.g. , if L = 2 and MX = 10000 you still 
cannot get A to become more than 99 since the 
screen will not accept more than 2 digits). Since the 
plus and minus signs ( + and - ) as well as the let- 
ter E (scientific notation) are all considered to be 
numerical input, they will also be accepted. String 
data, however, are not accepted by the screen at 
all when you use CALL A in this way. 

If MN = MX, A will accept only the MN and the MX value. 
If MN>MX, A shouldn't accept any value at all, but il- 
logically, it does accept the MN value. 

Example 3 

100 CALL CLEAR 

110 CALL D(3, 3, 28, "ENTER 1, 2, OR 3") 
120 CALL A(10, 25, 1, F, B, 2, 3,) 
130 CALL CLEAR 
140FORT=1 TO 500 
150 NEXT T 

160 CALL D(15, 3, 28, "YOUR CHOICE WAS") 
170 CALL D(15, 20, 2, B) 
180FORT=1 TO 500 
190 NEXT T 
200 GOTO 100 

4. ACCEPT AT - string data 

CALL A(R, C, L, F, A$) 

R, C, and L are explained in section 1. 
F is explained in section 3. 
A$ = accept string variable. 

A$ The variable in the A$ position is filled with the 
typed string information when you press ENTER. 

Example 4 

100 CALL CLEAR 

110 M$ = "PLEASE ENTER YOUR NAME" 

120 CALL D(5, 3, 26, M$) 

130 CALL A(10, 3, 20, F, N$) 

140 CALL CLEAR 

150FORT=1 TO 500 

160 NEXT T 

170 CALL D(5, 2, 28, "THANKS " & N$) 
180 FOR T=l TO 500 
190 NEXT T 
200 GOTO 100 

Now you're on your own: It's your turn to apply these 
two new conunands and, perhaps, discover some additional 
ones. 

[Note: In the event that Texas Instruments gets away from 
producing "hybrid" Command Cartridges (containing both 
BASIC and GPL coding), future releases of Personal 
Record Keeping will not offer the capabilities described in 
this article. — Ed.] 
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Would you appreciate being able to write shorter 
programs that effectively do the same thing as 
longer ones? Or, would you enjoy watching the 
computer do a large amount of the tedious and boring 
designing, defining and selecting of dozens of graphics 
characters — work that you would otherwise have to do 
yourself? If your answer to both of these questions is YES, 
read on, fellow 99'er. 

The scheme used in the TI-99/4A to represent screen 
character patterns with hexadecimal numbers is compact and 
convenient— ingenious really. It's compact because only 16 
digits uniquely specify the on-off states of the 64 pixels in 
each 8x8 pixel character block. Such a system is certainly 
more satisfactory than display systems that provide only a 
small selection of predefined characters. It's convenient 
because the programming requires only simple statements 
of the form: 

CALL CHAR(IJK,"0123456789ABCDEF") 

to define any 8x8 character imaginable. Likewise the 
statement: 

CALL HCHAR(ROW,COLUMN,IJK,REPEAT) 

will put character UK anywhere on the screen. After a brief 
period, one is able to work intuitively, giving little conscious 
thought to the format. 



Yet even with this system, there remains a considerable 
amount of tedious work to be done because every character 
we want on the screen (beyond the resident alphabet, etc.) 
must be defined and must be located. Doing this for many 
characters can mean lots of work, as in Figure 1 , where a 
graphic occupying less than half the screen contains 33 dif- 
ferent characters. All 64 user-definable characters would use 
up 64 lines of code just to define; if resident characters were 
redefined, we could end up having in memory a hundred 
or so program lines devoted to this one purpose. 

In addition, there is the wear and tear on the program- 
mer. He gets his ears burned if he leaves out one of those 
quote marks. Additional possibilities for errors include leav- 
ing out a comma or parenthesis or, worse, having a pattern 
identifier string with more or less than 16 numbers, or in- 
advertently typing in a nonhexadecimal symbol. Just type 
in four or five dozen CALL CHAR(IJK, "01 23456789 
ABCDEF") statements and you will surely develop an acute 
case of boredom. Such static definition — with a program 
line for every new character and the resulting long list of 
CALL CHAR statements — is a lot of trouble and a source 
of errors. 

It is also unnecessary. A little experimenting will show 
that we can define screen characters with data statements 
and a loop. Only a single CALL CHAR statement need be 
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typed in and carried in memory. Such a method was used 
in the program which draws Figure 1 . The program is given 
in Listing 1, Xmas-Tree. The hexadecimal strings which 
define the screen characters to be used are in data statements 
starting at line 270. The loop starting at line 440 reads a 
data statement and puts the hexadecimal string it has pick- 
ed up into a CALL CHAR statement. Thus the definition 
is sent off to graphic memory where it can be used later 
in the program as many times as needed. In this program, 
each data entry contains a comment to help one figure out 
what is happening on the screen, and each data entry con- 
tains three items: identification string, character number, 
and pattern-identifier string. On the next pass through the 
loop, another hexadecimal string is picked up and put in 
the CALL CHAR statement. Thus another defined screen 
character is sent off to memory. 

After the program has cycled the last time through the 
loop, all the screen characters described in the data 
statements are in memory. They are now available using 
CALL HCHAR or CALL VCHAR statements just as if 
the program had run through dozens of CALL CHAR lines. 
Fewer program lines have been used, the possibility of er- 
rors reduced, and life has been made much easier for the 
programmer. 

In a similar manner, characters are located on the screen 
beginning at line 740. For this application the data entries 
have the form: identification string, row number, column 
number, character number. The identification string serves 
only as documentation. The loop at line 940 puts this in- 
formation in a CALL HCHAR statement which then sends 
it off to the video display processor. All characters will now 
appear on the screen at their assigned locations. Of course, 
the information we have in data statements could also be 
stored on a floppy disk. 

Dynamically defining characters and putting them on the 
screen with data statements and loops (1) saves program lines 
and effort, (2) reduces errors, and (3) can make a program 
easier to follow if documentation is added. Although for 
this program no special attempt has been made to reduce 
the memory required, the information in data statments 
could be packed tighter by omitting identification. Also, we 
could incorporate the number of repetitions in the data 
statements. 




Figure 1. Many different cliaracters can mean lots of work for the programmer. 

Figure 2. Screen characters used for one-pixel resolution in bar height. 

Figure 3. Bar graph with one-pixel resolution. 

Figure 4. Three variables plotted with one-pixel resolution. 

Figure 5. An example of 99/4 graphics. 



Another opportunity for making chararter definition and 
placement a part of program dynamics occurs in plotting 
bar graphs. Bar graphs are a frequent application for com- 
puter graphics, and they look terrific on the color monitor. 

On the TI-99/4A it is easy to plot a bar (Y characters 
high) by just using CALL VCHAR(ROW,COLUMN,IJK 
,Y). But the resolution will be very poor because we can 
adjust the bar height in increments of only one full character, 
which is about 3/8 of an inch on the 13-inch monitor. Ideally 
we'd have a continuously adjustable bar height, but this in- 
finite resolution cannot be realized with raster-scan systems. 
We can, however, get resolution equal to the pixel height. 
Toward this end we will define eight screen characters as 
shown in Figure 2.. The first character has the bottom row 
of pixels turned on, the next one has the bottom two rows 
turned on, etc. The eighth character has all pixels turned on. 

These characters are then used as bar tops. Stick the right 
one on top of your bar graph and you have resolution of 
one pixel (which is 1/8 of a character) — quite satisfactory 
with existing CRT's. On the 13-inch monitor this height in- 
crement is about 3/64 of an inch. 

The program in Listing 2, Bar-Topper, which uses this 
method, plots the bar graph in Figure 3. The characters 
available for use as bar tops are defined beginning at line 
360. Scale of 1 character = 10 units is applied to the value 
entered at the keyboard starting at line 700. The integral 
value of Y is found and the remainder used to select the 
bar top character needed. The actual selection is done by 
the ON GOTO statement at line 780. 

This program does work, but represents a brute force ap- 
proach. If there is only one bar on the graph, then only one 
character will be used at the bar top. Yet eight bar-top 
characters have been defined and are sitting in memory. To 
take an extreme case, suppose we have four variables to be 
represented by four bars of different colors. Here, 32 
characters must be defined and available for use as bar tops, 
yet only four bar-top characters will actually be used. Besides 
taking up memory, we have used half of the user-defined 
characters. This approach is wasteful. Why define characters 
that sit in memory but are never used? 

Let's try a better idea by devising a program that defines 
bar-top characters after reading the data. Then it can define 
only characters that are needed. In other words, the data 
determine what bar-top characters are defined. To do this, 
we will have in the program a master string containing four- 
teen zeros and sixteen F's. Segments exactly sixteen spaces 
long can be taken from this master string with a SEG$ state- 
ment. Next, the segment can be used as the pattern-identifier 
string and put in a CALL CHAR statement to define a bar 
top. Where will these 16-space segments start? Well, the data 
can cause a character with the first row of pixels turned on 
to be defined, or a character with the second row turned 
on, etc. 

A possible coding to do this might be as follows: 

110 MASTERS = ''(XXX)00(XXX)(X)(X)FFFFFFFFFFFFFFFF'' 

1 15 REMAINDER = BARHEIGHT- INT(BARHEIGHT) 

120 TOPPATTERN = INT(REMAINDER*8-i-.5)+ 1 

130 STARTPOSITION = 2*T0PPATrERN - 1 

140 TOPPATTERNS = SEG$(MASTER$,STARTPOSITION, 16) 

150 CALL CHAR(97,TOPPATTERN$) 

160 CALL HCHAR(21-Y, 16,97,3) 

Here the 21 in 21 - Y allows the bar to be up to 20 rows high. 

Suppose, for example, that data calls for a bar top with 
the bottom two rows turned on. Then TOPPATTERN will 
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be 2. Then STARTPOSITION = 3. Then the pattern- 
identifier string created in line 140 will be 

TOPPATTERNS = "OOOOOOOOOOOOFFFF" 

(as you can see, if you will take the trouble to count this 
off, starting at the third position in the master string). The 
resulting screen character that is defined in line 150 will be 
one with the bottom two rows of pixels turned on. As the 
program runs, we want each datum to determine where the 
16-space segment will begin. Thus we have used the re- 
mainder to calculate STARTPOSITION. By notching back 
and forth with STARTPOSITION, the routine will define 
any character needed to top off a bar. 

With this particular routine there will be a little problem 
associated with roundmg up to the next higher grid line on 
the next higher row. For instance, if the scale used is 1 
character = 10 units, we would want 99.9 to appear on the 
graph as 100. Another problem (I didn't say this was too 
simple) involves the character to be used for the body of 
the bar. This character must have all pbcels turned on, but 
the routine above will not create such a character for all 
values of the data set. 

Auto-Topy a program in which these problems are solv- 
ed, is given in Listing 3. A routine similar to the one above 
starts on line 750. Character 96, which is used for the body 
of the bar, is defined earlier in the program. Note that this 
master string contains 18 F's. (If you try this program, you 
had better count them carefully.) TOPPATTERN = 9 will 
pick up the extra F's at the 17th and 18th positions. 

The problem of rounding up to the next higher grid line 
(so 99.9 will show up as 100 as in the earlier example) is 
taken care of in lines 820 and 830 where a one-row-on 
character is defined and put on the very top of the bar if, 
and only if, TOPPATTERN = 9. 

A graph with only one bar is not very useful. We can 
generate additional bars with a loop. The routine in Listing 
4, Three-Bars, plots three bars of different colors. See line 
680. (My 13-inch monitor displays a lot of spillover with 
most colors— especially with red. There is less spillover with 
light or medium green or blue, and with white and yellow.) 
As the loops runs, it will shift to succeeding color sets with 
the expression 89 + BAR*8 as can be deduced by consider- 
ing the statement 

CALL CHAR(89+BAR*8,TOPPATTERN$). 
When BAR= 1, this statement defines character 97; when 
BAR = 2, character 105; and when BAR = 3, character 113. 
The first character is in color set 9, the second in color set 
10, and the third in color set 1 1, allowing for three bars of 
different colors. 

The position of the bars is shifted by the expression. 
1 1 -f 5 = 16 is the position of the left edge of the first bar, 
and the left edges of all bars are 5 columns apart. These 
bars are three columns wide. Figure 4 shows this graph as 
photographed on the 13-inch monitor. 

This program and the earlier ones here might be a little 
longer than if they were written in the standard way. 
However, they will not get much longer if the graphics are 
made more elaborate. For example, the bar graph program 
does not get much longer if more bars are added. 



The bar graph in Figure 5 was made using these tech- 
niques. I present it here just to show off the kind of 
goodlooking graphics that can be made with the TI-99/4A 
and TI BASIC. This program — with its outlining and the 
fact that it reads and writes data for eight variables from 
files and calculates items such as percentages — is more in- 
volved than the listing given here. 

This brings up a new problem that has been created: In 
many of my programs I run out of characters. I did not 
notice this limitation when I was typing in so many CALL 
CHAR, CALL HCHAR, and CALL VCHAR statements. 
Actually when you think about it, there are not very many 
characters available. If you start at the left of the screen 
and put a different character in each space, you will run 
out of characters in the fifth line if you include punctua- 
tion, number, the alphabet, and the eight user-definable sets. 

In other words, it takes only about 17% of the screen 
to display all available characters. Mathematically, we are 
not about to run out of characters since there are 256 dif- 
ferent ways to put together just one row of a character. And 
the number of characters that can be on the screen in this 
graphic mode is 24 rows of 32 columns = 768 spaces. 

Since my interest is primarily in graphics, available user- 
definable characters are more important to me than 
memory. Memory problems can often be avoided. To put 
a unique character on every space on the screen would re- 
quire 48 character sets — several times more than any home 
computer presently has. I do not know if this is 
unreasonable. Two years ago the idea of a 48K memory 
sounded unreasonable. Perhaps some computer architect 
will devise a method of going to a higher resolution with 
nested character sets. [For a discussion of the high-resolution 
bit-mapped graphics supported by the TI-99/4A, see "3 - D 
Animation with the TMS9918A Video Chip."— Ed.] 

Finally, note that for some applications it can be useful 
to define random graphics characters. This process, 
however, really eats up character sets. In Listing 5, Twinkle, 
random characters are defined that also have a certain 
amount of shape. Line 240 of this code generates random 
numbers from 1 to 16, and lines 480 to 620 convert them 
to hexadecimal notation 0,1, 2,3,4,5,6,7,8,9, A,B,C,D,E,F. 
These numbers are assembled into a 16-space string. This 
hexadecimal string then goes into a CALL CHAR state- 
ment to define a random graphic characher. 

Shape is forced on the character in lines 280 to 470 by 
rejecting certain numbers generated by the random number 
generator. In this particular application, the edges of the 
characters are "rounded off so they will not appear square. 

I use such random-patterned screen characters to soften 
up the edges of my "block graphics" designs. ("Blockhead 
graphics?") Another application is to create dramatic ef- 
fects as is done in Twinkle given in Listing 5. 

I also use random characters to induce variations on 
things that, as in nature, change with time-shadows or ex- 
plosions, for instance. Some video games could undoubtedly 
profit from this technique. I get a little tired of aliens that 
always blow up the same way. Hmm — come to think of it, 
there is that video game with the pigeon in it. . . . 
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Listing 

100 
110 
20 
30 
140 
150 
160 

170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 

2 80 

290 

300 
310 

320 
330 

340 

350 

360 

370 
380 

390 
400 
410 



420 
430 
440 
450 

460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 



REM 
REM 
REM 



REM 
REM 



DI 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
REM 
REM 
CTER 
REM 



B635C659487A 
0000000000 



DATA 

F7F 

8FE 

dIatia 

B 

DATA 



DATA 
[MOND 



SPLAY 



FEE 
DATA 



107 



1O1038387C7C7CEE 



RESTlORE 
FOR 
READ 



BORDER 



DATA 
IMOND 



DATA 

000 

300 

DATA 



DATA 
EE 



ER 
I 

GjOTp 
CODE 
CALL 
NEXT 
REM 
CALL 
REM 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



BORDERTOP 



144 

DATA 
F3F0F0F 



DATA 
B 

DlATlA 
RAD 
RADIAL 
REM 



ABOUT 
PRESS 



SCREEN 
COLOR 



COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
PATTERN 
FORMAT 
NUMBER 
EXAMPLE 



TREE 
100 

BORDER 



PLUM 



PLUM 



LEFTS 
I GHTS 



11 



CT 



140 



BODY 



HEXS 



DiATA PLU|M,120 
121 

038387C7CFEFE 



POT 
OF , 
POT 



150 

TOP 
I AL 



PLUM 



29 



LEFT 
I GHT 



TRUNK 



DEE 
RE 
CODE 



DENT 



ClHiA R A C T E R N UiMjB E R > C|0 D E 
490 

CHARACTERNlUMBER 



CHAR 
CODE 
START 
CLEAR 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 

hcIhar 



XMAS 



BOTTOM 



98 

BlOTTlOMl 



FE3FOFO7O70301OO 



TOP 
BOTTOM 



104 

101038387C7C7CEE 
, 112 , 10FEFEFE 
1010387CFE7C3810 



1O1038387C7C7CFE 



38 



143 



POT 



53 



NE 



290 
96 



7568 
ANY 



LEFT 



HEXADECIMAL 



N 

142 



CODE 



TO 



TREE 
24 



TREE 



15 



16 

DENT 
DENT 



TREE 
TREE 



OUT 
OUT 



3E3F3F3F3F3F3E3F 



ieFEFEFEFE7C3810 



ieFEFEFEFE7C3810 
BELL 



10EEEEFEFE7C3810 



IDE 



149 



LOOP 



CAT 



SCREEN 



BYTES 



KEY 



99 
7 
102 



BELL 



1O10387CFE7C381O 

E F E 

128 , 10FEEEE 
010387CFE7C3810 



DE 



147 



1 
8 
139 



SOCOEOEOEOFOFCEE 



FFFFFFFFFFFFEEFF 



7F7F3F07O701O1O0 



103 



BOTTOM 



HEXS 



BODY 



143 
143 
143 
143 
143 
143 
143 



136 



TO 



BODY 



37 



EFE7E783010ieiO1 



52 , C3C33C18183CC3C3 
FFEFFF0O00FFFFFF 
E7E7E7E7E7E7E7E7 



54 

IONS , 



ERS 
CAT 



TRUNK 



01O7O7OEOEOE1 
8OE0EeF9FOF0F 



FFF8E8E0E0E0C0 



FFFFFEEEEE0000 
00OO0OFFFFFEE 



DI 



END 



10FEEEEEFE7C3810 
BELL 



146 



CHARACTERNUMB 



SPLAY 



32 



143 



4E53B635C659487A 



I Ion 

STR 



142 



FCECFCFCECFCECEC 
FCFCFCFCECFCEOEO 



SCREEN 



010707eFOEeF3FF 



FEF8FOE0E0EOC 
7F1EOE0F0707O 



CHARA 

nIg 

4E53 



123 



3F3F3E3F3 



THEN 



POT 



STAR 
STAR 



480 



, BEL 

DI A 
115 

DI A 
101 

DI A 
131 



610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 

750 

760 
770 



780 

790 
800 

810 

820 

830 

840 



850 
860 



870 
880 
890 



900 
910 



920 

930 
940 
950 
960 
970 

980 

990 
1000 
1010 
1020 



Listing 

100 
110 
120 
130 
140 
150 
160 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

REM 

CALL 

REM 

CALL 

CALL 

CALL 

REM 

REM 

LUMN 

DATA 



OT 
REIM 
DATA 
96 
136 
DATA 
96 
4,136 
DATA 

96 
DIATIA 



LO 



BASE 



DATA 
RO 
8 

DATA 

137 
12,11 
DATA 
12 
15 
DATA 
12 
19 
DATA 
DATA 

,1 
40 

DATA 
REM 
DATA 



RAD 
RAD 



REM 
DATA 



13 

DATjA 



BER 



FOR 
READ 



CALL 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



HCHAR 



VCHAR 



VCHAR 

VCHAR 

VCHAR 

SCREEN 

FORMAT 



ClHARlACTERNUMBER 
LEFT 



107 



BELL 



I AMOND 
REM 



HOWMANY 
RESTORE 



NEXT 
CALL 
I F 
END 



REM 
REM 
REM 
REM 
REM 
REM 
REM 



POT 



LO 



LO 



LO 



LO 



RO 



RI 



12 



39 



LO 



LO 



137 



137 



TOP 
AL 
I AL 



ARACTERNUMBER 



KEY 



8 

TREE 



20 

PLANT 



BASE 
IGHT 



FlOLLAGE 
96 



18 
17 

15 
14 
13 

11 
10 



R 
137 
16 



99 
19 



BOTTOM 



OUTS 



PLUM 
14 



HCHAR 



6 

36 

L 

8 
97 

Rio 

9 
11 



PLUM] 
16 



SCREEN 
86 



750 

CHARACTER 



DENT 



11 



L|0 
B1 



18 



CROSSh 
2 



ORNAMENTS 



IDE 



CHARACTER 



THEN 



10 
20 
8 

96 



LOCAT 
DENT 



136 
96 



12 



LO 



18 



143 
143 
143 
143 
143 
143 ) 
TRUNK 
7 



96 



97 



137 
11 



19 
140 



ROW 



96 



142 

PjOT-l- 
44 
50 
147 

I OIN 



IDE 



LO 



97 
11 

16 
137 



99 



152 
53 
154 



BELL 
4 



4 
129 



139 



LOCAT 



1 

CAT 



S 

1000 



115 
11 



CT 
7 

r|6 

7 
10 

RIO 
97 
10 



7 

112 



2 

BELL 



24 



18 



14 



10 



97 



R 
137 
12 

LO 



BO 
96 



19 



I ON 



TO 
I ONS 



COLUMN 



) 

DATA 
CATIONS 



10 



97 



IDE 



96 



37 



37 



19 



39 



RADI 
RADI 
RAD 



PLUM 



38 



97 



RO 



10 



10 



18 



19 
20 
4 

99 

iOUT 



17 



HOWMANY 



ROW 



104 



D I AMOND 



LOOP 



10 



100 
18 



CHARACTERNUM 



24 
149 

36 
96 
36 
136 
96 
136 
136 



97 



PLUM 



9 
131 



ROW 



146 



LO 



LO 



LO 



137 



137 
12 

97 
12 

100 

99 



COLUMN 



154 



CO 



17 
16 

13 
12 

9 

6 

136 



97 



3 

128 



B 
19 

136 

153 
154 



13 



CH 



170 VERT I CALHAX = 20O 



BAR- 



PRESS 



TOPPER 



ANY 



KEY 



TO 



STOP 



DI 



SPLAY 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 

340 
350 



360 
370 



380 



390 

400 
410 
420 
430 
440 
450 

460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 

790 
800 
810 
820 
830 
840 
850 



SCALE 
CALL 
LABELS 
R0W = 1 
COLUMN 
GOSUB 
LABELS 
R0W=1 
COLUMiN 
GOSUB 



CALL 



COLOR 
COLOR 



CAL 
CAL 
REM 
REM 
CTERNUlMBER 



REM 
DATA 
VERT 
I 

RElM 
DATA 



ooooooeooooFF 

O0000O000FFFF 



DATA 



FFFFFFFFFF 
FFF 



DATA 



REM 

DATA 

REM 



RESTORE 



FOR 
READ 



ION 
50 



NPUT 



0O00O0O0FFFFFFFF 



I GHTH 



FOR 



GOTO 

CODE 

CALL 

NEXT 

REM 

REM 

CALL 

FOR 

CALL 

NEXT 



GOSUB 
CALL 



REMAI 
CALL 
CAL 
CALL 
REM 



CALL 
GOTO 
CALL 
GOTO 
CALL 
GOTO 
CALL 



HEXS 

CHARACTERNU|MBER>CODE 



LABELS 
ROW = 
COLUMN 



LABELS 
COLUMN 
GOSUB 
CALL 
NEXT 
REM 
BARHE 



VERT 
CLEAR 



IGR 
I CAL 
[MARK 



CODE 



ROWNUMBER 



NT 



870 



SCREEN 



DEF 



BOTTOM 



98 



SEVENTH 



BASE 



DEF 



DENT 



ROW 



TOPPATTERN 



1000 



1000 



FORMAT 



ROW = 



DEF 



103 



CHAR 
CODE 
START 

GR 

HCHAR 



HCHAR 
ROW 



1000 

vcIhar 

21 



I GHT 



HCHAR 
970 
HCHAR 
970 
HCHAR 
970 
HCHAR 



ENTER 



GR 



0OO0OO00O0FFFFFF 



BASEL 



350 
91 

I 



BARHE 



NDER = 
VCHAR 
VCHAR 
VCHAR 
SELECT 



890 



NE 



NE 



21 



STRS 
10 



HCHAR ( RioIW 
ROW 

CALCULATE 



TOPPATTERN+1 



CALMAX 



TO 



104 



GRAPH 



HEXADECIlMALS 
D 
I 



NE 



FFFFFFFFFFFFFFFF 
NE 



CHARACTERS 



ROW 



FF0000FF0OO000FF 

LlOlOP 



TO 



CAT 



490 

CHARACTERNUlMBER 
HEXS 



CODE 



22 

TO 

row! 



( 

Tk) 

200- 



BARHE 



221- 

22 

22 



910 
21 

21 

21 

21 



HORSEPOWER 



209 



O10101010101017F 



XTH 



102 



HORSEPOWER 



GHT 



BAR 



NT 



DENT 



BAR 



SECOND 



TH 



SCREEN 
I 



GR 
13 
1 



OF 



104 

ONS 



HORSEPOWER 



14 



10 



ROWNUMBER 



BAR 



930 
16 



RD 



I 

101 



OOFFFFFFFFFFFFFF 



92 



16 



20 



0101010101010101 



TOPS 



DI 

D 
104 

STEP 



STEP 



GHT 
16 
17 
18 

TOP 

REMA 

GOTO 



91 



93 



ROW 



FTH 



21 



HE 



103 
103 
103 



950 
96 

97 

98 

99 



HORSEPOWER 



CAT 



XELSON 



ROW 



OOOOFFFFFFFFF 



CHARACTERNUMB 



SP 



5 

RlOWh 



NT 



ON 



LAY 



I GHT 
SCALE 



NDER 
790 



IONS 



ON 



100 



THEN 



FOURTH 



BARHE 

) 



810 



000000 



) + 



CHARA 



I GHT 



5 

830 



99 



860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 



1010 
1020 
1030 

1040 
1050 



Listing 

100 

lie 

120 
30 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 

340 



350 

360 
370 
380 
390 



410 
42 
430 



440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 



ODE 



CODE 
CALL 



NEXT 



GOTO 
CALL 
GOTO 
CALL 
GOTO 
CALL 
GOTO 
CALL 
GOTO 
CALL 
CALL 
CALL 
I F 
END 
FOR POS 
LETTERS 



970 

HCHAR 
970 
HCHAR 
970 
HCHAR 
970 
HCHAR 
970 
HCHAR 
HCHAR 
KEY 



RETURN 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
VERT 
SCALE 
CALL 
LABELS 
ROW = 
COLUMN 
GOSUB 
LABELS 
ROW 
COLUlMN 
GOSUB 
NPUT 
CALL 
CALL 
CALL 
REM 
REM 



POS 



ASC 
HCHAR 





THEN 



ION 
SEGS 



21- 
21- 
2l|- 
21 

21 

2 01- 



S 

970 



LETTERS 

ROW, COLUlMN 

ION 



TO 



LABELS 

) 



LEN 



101 

102 

103 

103 
96 



POS 



1+POS 



LABELS 



ION 



1 ) 
ION 



TERNUMBER 



DATA 
VERT 



READ 
ER 



BAR 



104 



DATA 

NE 
DATA 
DATA 
DATA 
DATA 
CTERS 
REM 
RESTORE 
FOR 



ABOUT 
PRESS 
CALMAX 

VERT 
CLEAR 



PATTERNS 



F 

GOTO 
CODE 
CALL 
NEXT 
REM 
REM 
CALL 
FOR 
CALL 
NEXT 
LABELS 
ROW 
COLUlMiN 

g|osub 



CHARACTERNUMBER>CODE 



SCREEN 
COLOR 
COLOR 



DEF 



FORMAT 



GR 



ROW 



15 
870 



870 



DEF 



CODE 



AUTO 



D 

ICAL 
[MARK 



CHAR 
CODE 
START 



HCHAR 



HCHAR 
ROW 



ENTER 



DENT 



HORSEPOWER 



1 

870 



RESERVED 
RESERVED 
RESERVED 
RESERVED 



INE 
340 
91 



TO 



NE 



PATTERNS 



GRAPH 



21 



5288 

ANY 
200 

CALMAX 



TOP 



CHARACTERS 



NE 



470 

CHARACTERNUlMBER 



CODE 



22 

TO 
ROW! 



209 



DENT 



TO 



HORSEPOWER 



LOOP 



CAT 



SCREEN 
GR 



KEY 



FOR 
FOR 
FOR 
FOR 



BYTES 
TO 



96 

FFOOOOFFOOOOOOFF 



14 



104 

I ONS 



20 



O000OO00O00OO0FF 
0101010101010101 



ADD 



PATTERNS 



D I 

dI- 

104 

STEP 
91 



ei0i0i0iei0i0i7F 

FFFFFFFFFFFFFFFF 



CAT 



TLE 
LABELS 
LElGEND 
T 



SPLAY 
1 



STOP 



HORSEPOWER 



IONS 



BOX 



I ONAL 



THEN 



CHARACTERNUMB 



CHARAC 



SPLAY 



460 



BASEL 



CHARA 



82 
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590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 

770 
780 

790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 

910 
920 

Listing 

100 
110 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 

310 



320 



CALL 
FOR 



ROW 
Rb'WiNUMBER 



LABELS 
COLUMIN 
GOSUB 



HCHAR 
ROW 

CALCULATE 



I GHT 



BARHE 



CALL 
NEXT 
REM 
BARHE 
INT 
REIMAI 
CALL 
CALL 
CALL 
REM 
TOPPlATTERN 



330 
340 
350 
360 

370 
380 
390 
400 



CALL 



MASTERS 
FFFFFFF 
STARTPOS 



NDER 
VCHAR 
VCHAR 
VCHAR 



CHAR 
HCHAR 



KEY 



CALL 
CALL 
CALL 
I 

END 
FOR 
LETTERS 
ASC 



HCHAR 



CODE 
CALL 
ODE 

NEXT PlOS 
RETURN 



VCHAR 



SELECT 



TOPPATTERNS 

I ON 
CALL 



POS 



870 



STRS 
10 



CHAR 
HCHAR 



21 



TOPPATTERN< 



BAR 
HORSEPOWlER 



O0000O00O00000FFFFFFFFFFF 



THEN 



200 



BARHE 



I ON 
SEGS 



ROW 



I GHT 



2 21- 
22 
22 



1 + 1 



ION 



97 



98 



I ON 



10 

RIOIWIN UMBER 



Y 
Y 
Y 
BAR 



21 



ROW 



NT 



840 



2 

SEGS 



LABELS 
LETTERS 



) 

IIGHT 
16 
17 
18 
TOP 
{ I 



92 

STEP 



TO 



16 



93 



HE 



REMAINDER 



TOPPATTERNS 



COLUMN 



21 



ROW- 



97 

THEN 



LEN 



MASTERS 



98 



I GHT 
SCALE 



TOPPATTERN- 



POS 



00O00O00O0eO00FF 



3 

840 



BARHE 



1 +POS 



LABELS 



ION 



I GHT 



STARTPOS 



1 

IION 



SCALEh 
OPT 
DIMI 
Yd 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
VERT 



) 

Y(2) 

Y I 3 ) 

CALL 

CALL 

CALL 

CALL 

CALL 

REM 

REM 



DATA 
VERT 
T I 
96 

DATA 



FOR 
READ 
ER 



I Ion 

Y ( 



FFFFF 
F 

DATA 
DATA 
DATA 
DATA 
CTERS 
REM 
RESTlORE 



ABOUT 
PRESS 
CALMAX 



VERT I 
BASE 

3 

33 
59 
99 

SCREEN 

COLOR 

COLOR 

COLOR 

COLOR 



CTERNUMBER 



THREE 



DEF 



GR 



FFFFFFFFFFFFF 



DEF 



CODE 



CAL 



MARK 



PATTERNS 



FORMAT 



BASEL 



DENT 



RESERVED 
RESERVED 
RESERVED 
RESERVED 



NE 
310 
91 



5160 

ANY 



200 

CALMIAX 



NE 



BARS 



NE 



FFFFFFFFFFFFFFFF 



NE 



TO 



KEY 



LOOP 



CAT 



BYTES 



PATTERNS 



DENT 



BAR3 
20 

FlOR 
FOR 
FOR 
FOR 



CHARACTERS 



TO 



20 



20 

IONS 



ADD 



01010101010101 



STOP 



TLE 



LABELS 
LEGENDS 



CAT 



BOX 



I ONAL 



I ONS 



O00O0OO000OO00FF 
0101010101010101 



BAR2 

112,FFFFFFFFFFF 
FFOOOOFFOOOOOOF 



CHARACTERNUMB 



SPLAY 



7F 



104 



CHARA 



CHARA 



BAR1 



FFF 



410 
420 
430 
440 
450 
460 
470 
480 

490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 

680 
690 
700 
710 
720 

730 

740 

750 
760 
770 

780 
790 

800 
810 

820 

830 
840 
850 
860 
870 
880 
890 
900 

910 
920 



10 
120 

30 
140 

50 
160 

170 
180 
190 
200 
210 
220 



GOTO 

CODE 

CALL 

NEXT 

REM 

CALL 



GOSUB 
CALL 
NEXT 
REM 
(MASTERS 
FFFFFFF 
BAR 



I F 



NT 



ROW 



PR 
3 

RElM 
CALL 
FOR 
CALL 
NEXT 
LABELS 
ROW = 
COLUMN 



GOSUB 
CAL 



FOR 



ROWNUMBER 



LABELS 
COLUMN 



FOR 
BARHE 



YY 



CHlARACTERNUbfBER 



ION 
CALL 
CALL 



CALL 



I 

C 

FF 
CALL 

) 

NEXT 
CALL 
I 

END 
FOR 



ROW= 



LETTERS 



CODE 
CALL 
ODE 
NEXT 
RETURN 



CODE 



PATTERNS 



440 

CHARACTERNUlMjBER 
CHAR ( 
CODE 
START 
CLEAR 
TAB 



HCHAR 



HCHAR 
ROW 



870 

VCHAR 



10 
870 

HCHAR 
ROW 



CALCULATE 



STARTPOS 



I GHT 



NT 



REMAI 
CALL 

YY 
CALL 

YY ) 
CAL 

YY 

TlOPPATTERN 



TOPPATTERNS 



POS 



BAR 
KEY 



ASC 



GRAPH 



21 



HORSEPOWER 



STRS 



NDER 
VCHAR 



VCHAR 



VCHAR 



CHAR 



HCHAR 



CHAR 



HCHAR 



HCHAR 



POS 



21 



TOPPATTERN< 



OOOOOOOOOOeOOOFFFFFFFFFFF 



Y 

BARHE 



THEN 



SCREEN 



22 

TO 
ROW] 



TO 
200 



TO 



I ON 
SEGS 



ROWNUMBER 



ROW 



BAR 



BARHE 



22 

22 

22 

1 + 1 
I ION 



21 



20 



LETTERS 



GR 



89+BAR 



90+BAR 



GHT 



SEGS 



120 
STEP 
91 



10 



YY 



YY 



isting 5 



FOR 
FOR 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
PLAY 
CALL 
CALL 
REM 

RAND|0|M|I 
I 



TWI 



ABOUT 
HOLD 



COLOR 



SCREEN 



SHAPED 
ZE 
TO 
TO 



ROW 



I ON 



NKLE 



4504 

DbWN 



92 

STEP 



TO 



LABELS 



>C!ODE 



93 ) 
PLOT 



SCALE 



ijGHT 
1 



I SPLAY 
TAB 



COLUMN 



21 

P 

ROIWI 



THEN 
8 



INT 
11+BAR 



( MlJlSTERS 



8 

11+BAR 



1 + BAR 



LEN 
POS 



1 2+BAR 

1 3+BAR 

( RElMlAI NDER 
TlOPPATTERN 



18 



BARS 



THEN 430 



830 



TOPPATTERNS 



1+POS 



LABELS 



BARHE 



I ON 



000130000000000 



IGHT 
88+BAR 

88+BAR 

88+BAR 



STARTPOS 



89+BAR 



90+BAR 



ION 



10 



ANY 



RANDOM 



BYTES 



KEY 



TO 



CHARACTERS 



STOP 
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230 

240 
250 

260 



270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 



490 
500 

510 
520 
530 
540 
550 
560 
570 
580 
590 
600 



REM 
EN 



INT 



REM 

TE 

ON 



ON 
CiORNERS 



490 



280 

REMl 



I 



N>1 



GOTO 



GOTO 
REM 



GOTO 



N>3 



N>1 
FlOURTEST 



GOTO 
REM 



GlOTO 
N 



GOTO 
REM 
REM 
OTAT 



B: 

I F 
ON 


OAS-- 
GOTO 
G$ 
GO 
G$ 
GOTO 
G$ 
GO 
G$ 
GOTO 



GOTO 



GOTO 



1+1 



FOURTEST 



GENERATE 



300 



N>7 



EVENTEST 



11 

N>9 



AND 



PUT 



TOP 



490 



240 

2ND 



490 



240 

3RD 



490 



490 

15 



240 

4TH 
FOR 
ION 



640 
640 
640 
640 
640 



15 



GOTO 



THEN 



THEN 
THEN 



THEN 



EVENTEST 



THEN 
N/4 



THEN 



THEN 
GOTO 



5 

01+1 



490 



THEN 
N/2 



& 
N>9 
NOTE 
12 



BlOTTlOlM 
240 

490 
490 



7TH 
240 



CONSTRAINTS 



280 



5TH 



ETC 



240 

INT 



6TH 
240 



500 
510 



RANDOiM 



490 



N/ 
THEN 



240 



RND 



ROWS 



ROWS 



NT 



MUST 



300 



THEN 



ROWS 



)+0 



410 



ROWS 



N/ 



HEX 



ELSE 
530 



340 



4 
490 



2 

490 

NO 



NUMBERS 



CONVERT 



430 



630 
550 



TO 



360 



NOTATION 



570 



340 



EL 



TO 



410 



CONSTRAINTS 



BETWE 



IMINA 



590 



360 



HEX 
A 



43 



61 



610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 

720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 



1010 
1020 
1030 
1040 



GOTO 



HEX$ 

NEXT 

CALL 

GOTO 

HEX$ 

NEXT 

REM 

DATA 

90 
CALL 
REM 
FOR 



CALL 
CALL 
NEXT 
FOR 



INT 



INT 



CALL 
NEXT 
REM 



CALL 
CALL 
C + 1 



CALL 



GOTIO 
END 



STRS 



CALL 
CALL 
NEXT 
REM 
CALL 
RESTlORE 



FOR 
READ 
COLUlMlN 
CALL 



COLUMN 



73 



COL 



IHCHAR 
CHIAR 
COL 
ROW = 



NT 



K>S1 



640 



HEX$&|G$ 
I 



CHAR 
680 



CLEAR 



C>45 



KEY 
31 
950 



SPLAY 



78 



( 

VCHAR 
VCHAR 

Riolwl 

I 



HCHAR 



HCHAR 
HCHAR 



57 



BORDER 



10 

RNDl+1 



LETTER 

9 + 1 
HCHAR ( 

( 



HCHAR 
I 

TlWll 



INT 



TO 
11+1 



710 

TO 



95 + 1 



69 



1+1 



THEN 
K 

THEN 



39 



TO 



TLE 
12 



) 

RjOlWl 
24 



14 



26 



NKLE 



26 



69 



32 



850 



HEX$ 



TLE 



RND 
32 

COL 

14 
6 

RjOlWl 
10 



82 



)+1 
COL 



COLUMN 
COLUMN 



6 + 1 
RND )+1 
COLUMN 



95 + N 



32 



95 + N 
26 



32 



COLUMN 



95 + N 



14 



RND 



77 



) 

9 51+N 



95 + N 



96 

LETTER 



65 



+ 6 

N) 
95 + N 



71 



65 
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How to Write A BASIC Program 
That Writes BASIC Programs 




TI's Programming Aids III opens the door to some 
powerful programming techniques. The Cross 
Reference and Editor capabilities of this software will 
be appreciated by the serious Extended BASIC program- 
mer. But the excitement really begins when you realize how 
this software does its thing. 

PA III can provide (1) a tabular, line-number cross 
reference for all variables, arrays, keywords, functions, and 
line-number references in a program and (2) the ability to 
delete, move, or resequence specified groups of lines within 
a program much more quickly than could be done manually 
at the keyboard. 

Required Hardware 

Programming Aids III is a set of four Extended BASIC 
programs (LINPUT, CREF, CREFPRINT, and EDITOR) 
available on disk at a suggested retail price of $19.95. In 
addition to a disk controller, disk drive, and the Extended 
BASIC Command Cartridge, a printer is a practical necessi- 
ty; either the TI Thermal Printer or an RS232-compatible 
printer may be used. In fact, there is no provision for screen 
display of the output from the Cross Reference procedure. 
(I use the inexpensive "Paper-and-Pencil Printer," however, 
and so modified the CREFPRINT program to display the 
cross reference table on the screen, using the crude SHIFT 
C — CONTINUE method to stop and start the output. These 
simple changes are given at the end of this chapter.) 

EDITOR 

The EDITOR program makes possible virtually any 
desired modification of line numbers in a BASIC or Ex- 
tended BASIC Program. Heretofore, the only way to rese- 
quence a program was to use the RESEQUENCE (RES) 
command, which affects all line numbers within a program. 
By contrast, EDITOR allows one to resequence specified 
sections of a program without affecting others. 

If, for instance, you have numbered subroutine statements 
in a manner which is easy to remember (1000, 2000, 3000, 
etc), you can retain this numbering and "open up" a 
previous part of the program for insertion of additional 
lines. An even more useful application would be the rear- 
rangement of sections of BASIC code. Suppose, for exam- 
ple, you want to merge several programs, each of which con- 
tains subroutines. Without EDITOR, you would be faced 



with the time-consuming chore of moving all subroutines 
to the end of the merged program. With EDITOR, this pro- 
cedure can be completed very simply and quickly by re- 
numbering all subroutine lines. 

Finally, the EDITOR program allows deletion of sections 
of BASIC code. If you want to get a subroutine out of one 
progrEim to use in another, it's no problem. 

How EDITOR Works 

If you are wondering how a BASIC program can alter 
another BASIC program, be assured that it's not done with 
mirrors. It is a relatively simple procedure which anyone 
with Extended BASIC can use to write all custom utility 
programs and even BASIC programs which write other 
BASIC programs! 

The technique is based upon what happens to a program 
when it is saved with the MERGE option (see pp. 122-3 of 
the TI Extended BASIC manual). If you have ever cataloged 
a disk containing a file saved with the MERGE option, you 
may have noticed that, unlike an ordinary program which 
carries the Type description PROGRAM, a program saved 
with MERGE is actually a data file consisting of display 
code with variable length records having a maximum length 
of 163 bytes. A BASIC program can access this sequential 
file like any other file. 

In addition to creating a data file form, saving a program 
with MERGE makes two other important changes. First, 
the order of program lines corresponds to the order of pro- 
gram line numbers. (By contrast, when a program is saved 
without MERGE, the file is a program memory image, and 
lines are placed in program memory in the order in which 
they were entered — not according to line number.) Second, 
the content of each line is represented in condensed format: 
All non-essential information is deleted in a coding process. 
When a program saved with the MERGE option is loaded 
into memory with the MERGE Command and LISTed (see 
TI Extended BASIC Manual, page 1 14), the coding pro- 
cess is reversed and each program is reconstructed. 

In order to understand how the EDITOR program works, 
it is necessary to know how line numbers are represented 
in condensed format. The first two bytes of each record con- 
tain the line number represented in ASCII code. Table 1 
shows how the line numbers "80" and "9020" are 
represented in ASCII characters. Starting with the line 



Copyright © 1983 Emerald Valley Publishing Co. 



The Best of 99' er Volume 1 



85 



number 80, the first step involves representing the base 10 
number in binary. Two bytes (8 bits each) are available for 
this representation. Next, the base 10 representation of each 
byte is determined and the corresponding ASCII symbol 
produced. In this case, the character with an ASCII code 
of 80 is "P". Applying this process to the number 9020 gives 
the ASCII representation "#<". 



In condensed code format, when the left-most bit of a 
byte is "on," the software which reconstructs a program 
from the code is signaled that some special action will be 
required in the reconstruction process. In the case of line 
numbers, this principle applies to the first bit of the first 
of the two line-number bytes. When all bits except the left- 
most one are "on" in both bytes, the number represented 
in base 10 is 32767 (in binary, 01111111 11111111), the 
highest allowable line number in a program. When the left- 
most bit is added, the two-byte combination becomes an 
end-of-file mark. Thus the first two bytes of the last con- 
densed format record must be CHR$(255)&CHR$(255), 
equivalent to 65535 in base 10. 

With this information, you should be able to understand 
the basic operation of the EDITOR program. The program 
to be edited is first saved with the MERGE option, and then 
the EDITOR program is loaded and run. Upon entry of 
the "OLD" command provided, EDITOR inputs each 
record in the condensed format file and constructs the line 
number from the ASCII codes of the first two bytes. Pro- 
gram line numbers thus obtained are stored in an array, with 
array position corresponding to record number. After the 
user has altered these numbers using the DELETE (DEL) 
and RESEQUENCE (RES) commands provided, the SAVE 
command initiates the process in which altered numbers are 
reassigned to records in the file. As each record is read a 
second time, the corresponding line number in the array is 
translated into two ASCII characters which are substituted 
for those on the record, and the new record is written to 
a new file (after making the necessary changes to any line 
references). At the end of this process, the end-of-file mark 



is written as the last record on the new file. After initializ- 
ing program memory with the NEW command, all you need 
to do is load the new file with the MERGE command. The 
program will then be reconstructed and can be SAVEd in 
the usual way. 

CROSS REFERENCE 

The remaining three programs (LINPUT, CREF, and 
CREFPRINT) are used to produce a complete tabulation 
of all lines in which each variable, array keyword, function, 
and line number reference occurs. An independent tabula- 
tion is provided for each subprogram. The cross reference 
table will give you detailed documentation for use in pro- 
gram development, and would also seem to be a useful tool 
in analyzing a poorly documented program. (See Table 2) 

As in the case of the EDITOR program, the first step 
involves saving the program to be cross referenced by us- 
ing the MERGE option. The LINPUT program converts 
the DISPLAY records of the merged file to INTERNAL 
code, presumably to speed subsequent execution. The CREF 
program then reads in each record of the file and analyzes 
its contents for the presence of all keywords, functions, etc., 
which occur in TI Extended BASIC, as well as in the user's 
variable names, arrays, line references, and subprograms. 
The output, a list of the line numbers in which each ele- 
ment is found, is written to a disk file. The file is then printed 
by the CREFPRINT program. 

The instructions recommend that the CREF program be 
run in TI BASIC, rather than Extended BASIC, to speed 
execution. Even with this advantage, however, the cross 
referencing of a large program should be planned so that 
you can be doing something else— like taking a trip to 
Switzerland. Actually, it doesn't take quite that long: Cross- 
referencing a program of moderate size (270 lines) takes 35 
minutes. 



HOW CREF Works. 

Although a detailed analysis of the cross reference pro- 
gram is beyond the scope of this article, generalization of 
the principles involved presumes an understanding of the 
structure of condensed code. As mentioned previously, the 
method used to signal the reconstruction software that it 
is encountering an "instruction" byte involves an "on"con- 
dition in the left-most bit. In contrast to line numbers, most 
"instructions" in condensed code consist of a single byte. 
When the left-most bit is "on" (i.e., 10000000) the base 10 
representation is 128. Instructions thus begin with the 
number 10000001 or 129 

ASCII byte codes used by the reconstruction software to 
generate BASIC keywords, punctuation, etc., are 
translatable with the program Condensed Format Code 
Table. This program generates a file called 
DSKl. FILENAME which is in condensed format. Each 
record in the file contains a single byte in the third position 
beginning with ASCII 129 and ending with ASCII 254. This 
byte will be interpreted as an "instruction" by the 
reconstruction software. Preceeding tbe byte, a two-byte line 
number is written; following it is an end-of-line mark, ASCII 
0. Line numbers have been set equal to the ASCII code for 
ease in subsequent interpretation of the results. 

In order to view the reconstruction of each potential 
BASIC element, you first initialize program memory with 





Table 1 




ASCII Coding of Line Numbers 


Line Number 


80 






Byte 1 


Byte 2 


Binary 


00000000 


01010000 


Bate 10 





80 


ASCII 




P 


Line Number 


9020 






Byte 1 


Byte 2 


Binary 


00100011 


00111100 


Bate 10 


35 


60 


ASCII 


# 


< 




Table 2 




Sample Cross Reference Output 


MUSIC 2/1 






PROGRAM UNIT (MAIN). 






STRING ARRAYS 


BASIC KEYWORDS 


REM 


NS < 1 


CALL 


220 


100 


130 


RETURN 


120 


230 


260 


140 


240 


STOP 




250 


210 


NUMERIC ARRAYS 


DATA 




NT ( ) 


190 


BASIC FUNCTIONS 


100 


200 


& 


120 


DIM 


140 


240 


100 






FOR 


SUBPROGRAMS 


NUMERIC VARIABLES 


110 


CLEAR 


1 


ISO 


130 


110 


GOSUB 


SOUND 


120 


160 


230 


140 


NEXT 


240 


1B0 


170 


250 


240 


ISO 




J 


PRINT 


LINE REFERENCES 


160 


• 140 


220 


170 


READ 


160 




120 
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the NEW command, then load the output file with the 
MERGE command, as if it were a program, i.e., MERGE 
DSKI. FILENAME. The result is given in Table 3. For 
example: 

CHR$(129) is reconstructed as ELSE 
CHR$(130) as : : 
CHR$(166) as WARNING 



EH 



EM 
EM 
EM 
EM 
EH 
EH 
EH 
EH 
EH 
EM 
EH 
EM 
EM 
EH 



EHl 
OR 
EH 
EH 
EH 
EH 
EH 
EH 
EH 
EH 
EH 
EH 
EH 



EH 
EH 
EH 
EH 
EH 
EM 
EH 
EH 
EM 
EH 
E[H 
R 

& 
EjM 
EH 
EH 
EH 
EH 
EH 
EH 

e|m 



CH 



P 
D 
S 
HE 



CA 



SO 



WR 



CO 



NG 



CO 



OU 
F 



TO 



U 

I6H 



CO 



00 



u 

ENlAlHlE 
JlHE 



LN 



ON 



FO 



RiMA 
E 



AM 



RMA 



FO 

10 

s 

L 



EM 
EM 
EM 
EM 
EM 
EM 
EM 
EM 
EM 



EM 
EM 
EM 
EM 
EH 
EH 
LO 
TO 



WR 
HA 



LO 



UHB 



TO 





Tables 






Condensed Format Code Table 


129 ELSE 


171 ?77 


213 LEN 


130 : : 


172 77? 


214 CHRS 


131 1 


173 777 


215 RND 


132 IF 


174 777 


216 SEGS 


133 GO 


175 777 


217 POS 


134 GOTO 


176 THEN 


218 VAL 


13S GOSUB 


177 TO 


219 STRS 


138 RETURN 


178 STEP 


220 ASC 


137 DEF 


179 , 


221 PI 


138 DIM 


180 : 


222 REC 


139 END 


181 : 


223 MAX 


140 FOR 


182 ) 


224 MIN 


141 LET 


183 ( 


225 RPTS 


142 BREAK 


184 8> 


226 777 


143 UNBREAK 


IBS 77? 


227 777 


144 TRACE 


166 OR 


228 777 


14S UNTRACE 


187 AND 


220 777 


146 INPUT 


18S XOR 


230 ??? 


147 DATA 


189 NOT 


231 77? 


148 RESTORE 


190 - 


232 NUMERIC 


149 RANDOMIZE 


191 < 


233 DIGIT 


150 NEXT 


192 > 


234 UALPHA 


151 READ 


193 + 


235 SIZE 


1S2 STOP 


194 - 


236 ALL 


1S3 DELETE 


195 • 


237 USING 


154 REM 


196 / 


238 BEEP 


155 ON 


197 A 


239 ERASE 


156 PRINT 


188 777 


240 AT 


157 CALL 


199 777 


241 BASE 


ISa OPTION 


200 77? 


242 777 


159 OPEN 


201 777 


243 VARIABLE 


160 CLOSE 


202 EOF 


244 RELATIVE 


161 SUB 


203 ABS 


245 INTERNAL 


182 DISPLAY 


204 ATN 


248 SEQUENTIAL 


183 IMAGE 


205 COS 


247 OUTPUT 


184 ACCEPT 


206 EXP 


248 UPDATE 


185 ERROR 


207 INT 


249 APPEND 


168 WARNING 


208 LOG 


2S0 FIXED 


167 SUBEXIT 


209 SGN 


251 PERMANENT 


168 SUBEND 


210 SIN 


252 TAB 


169 RUN 


211 SQR 


253 # Ifilas) 


170 LINPUT 


212 TAN 


254 VALIDATE 




Table 4 






Condensed Record Structure 




OPEN #1:~DSK1.BASIC",INPUT,DISPLAY,VARIABLE 163 




ASCII CODE FOR LINE 100 




3 169» 


23 179* 




4 2S3* 


24 162» 




5 200* 


25 179» 




6 1 


26 243» 




7 49 1 


27 200* 




8 181' 


28 3 




9 199» 


29 49 1 




10 10 


30 54 6 




11 68 D 


31 51 3 




12 83 S 


32 




13 75 K 






14 49 1 






15 46 . 






16 66 B 






17 66 A 






18 83 S 






19 73 1 






20 67 C 






21 179* 






22 146* 


PRESS ANY KEY TO CONTINUE 







At the same time, several codes are reconstructed into 
things which can't be understood directly (e.g., 171-175, 185, 
and 198-201). It is apparent that some of the ASCII codes 
are used for purposes other than direct translation to 
BASIC. Some might be used as descriptors of subsequent 
bytes (e.g., for purposes of identifying trailing bytes as 
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numeric data, line numbers references, string data, etc.) 
while other of these ASCII! codes may not be assigned at all. 

Putting this question aside for the moment, let us see how 
we could write a program that would remove all REM 
statements from another program. The ASCII code for 
REMARK (REM) is found in Table 3 to be 154. If we 
assume that the ASCII character with code 154 will be found 
in the third position of a REM statement in condensed for- 
mat (following the line-number bytes), we can write a REM 
Remover program very simply. Such a program would need 
to read a record from a program file saved with the MERGE 
option, see if the third byte is CHR$(154), and if not, print 
the record in a second file. That is what the following pro- 
gram does. To use it with the "Condensed Format Code 
Table" program, save that program with the MERGE op- 
tion (SAVE DSK1.C0DE,MERGE), run the REM 
Remover, and load the output file, DSKl.REMFREE, with 
the MERGE command (MERGE DSKl.REMFREE). 
Presto, Chango! LISTing the program shows it to be 
"REMless," and this version may now be saved in the usual 
way under a new file name. 



PR 
GO 
PR 



R 
R 
R 
R 
R 
R 
R 
P 
I 

10 
E 
10 
T 
EO 



EM 
EM 
EM 

e|m 

E 

E 
R 
N 
P 

P 
P 



: CH 



EM 



EMO 



EOF 
ICHR 



NiAMiE 
X 



ScCHR 



VA 



LA 



EN 



Of course, more complex applications require a more 
detailed knowledge of condensed format structure. The 
Condensed Record Structure program listed below will allow 
you to examine the condensed structure of every line in any 
BASIC program. With such a representation and the list 
of codes in Table 3, a great deal of additional information 
can be deduced. 

For purposes of illustration, let us treat the "Record 
Structure" program itself as the program to be analyzed. 
First enter the program without the REM statements, and 
then save it as DSKl .BASIC,MERGE. Now enter RUN to 
display the code structure of each line. The display for the 
first line is shown in Table 4. 

The first column in each pair of columns shows the posi- 
tion of the byte code. The first position displayed is 3 
because 1 and 2 are used for the line number. An asterisk 
has been placed beside all ASCII codes which exceed 128 



to easily identify them as "instruction" codes. Codes which 
are between 32 and 94 are followed by their corresponding 
ASCII character representations. 



EM 
EM 
EM 
EM 
EM 
EM 
EM 
EM 



0|W 
I 



b|w= 
1 + 



CO 



CON 



s 
s 

\JM= 



DS 
LE 
X 

s 
s 

T 

UlM]= 



1 = 

10 

H 

CO 



ROW, 



RON, 



ED 



1 

clo 



UM 



I 
$ 

RIOIWI 



CO 



Since it is known that the first line of the program is 
OPEN #1;*'DSK1.BASIC", INPUT, DISPLAY, 
VARIABLE 163, let us see what sense can be made of the 
corresponding condensed code. Codes 159 and 253 corres- 
pond to OPEN and #. Although the meaning of code 200 
is not known, in looking ahead to colums 6 and 7 we might 
hypothesize that 200 means "A number is about to be en- 
countered, and the next byte will give the number of bytes 
used to represent that number." 

Although 181 is a ":", 199 is another unknown. Look- 
ing ahead at positions 10-20, we might again hypothesize 
that 199 is used for strings, in the way that 200 is used for 
numbers. The "10" in position 10 is consistent with this 
hypothesis since DSKl. BASIC is 10 characters long. Next, 
we encountered the codes for INPUT, DISPLAY, 
VARIABLE. In position 27 another 200 is encountered, and 
the hypothesis applied earlier to the 200 in position 5 is con- 
sistent with what follows— a "3" in position 28 followed 
by the 3 numbers "163". Finally, a is encountered that 
indicates end-of-line. By writing program lines specifically 
for the purpose, you can use the Condensed Record Struc- 
ture program to deduce additional information about con- 
densed format. 
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How to Write A BASIC Program 
That Writes BASIC Programs 




PART 2: 



RULES OF MERGE FORMAT 



In the previous section, MERGE format was discussed 
in connection with TI's Programming Aids III. When 
an Extended BASIC program is saved with the 
MERGE option (disic only), a data file is written such 
that each record in the file contains a coded representa- 
tion of one line of BASIC code. This file can then be load- 
ed into program memory with the MERGE command. 
Because the file is a data file, it can also be generated 
by a BASIC program. If all of the rules of MERGE for- 
mat are observed, the file is indistinguishable from one 
created by saving a program with the MERGE option and 
can be loaded into program memory with the MERGE 
command. Thus an Extended BASIC program can, in ef- 
fect, write another Extended BASIC program. 

One can think of a variety of contexts in which this 
program generation capability could be used. For in- 
stance, a program might allow preparation of music or 
graphics in an interactive, "high level" format and then 
use this data to write a BASIC program or subroutine 
which produces the music or graphics display. 

File Structure 

The MERGE format file consists of sequentially 
organized records, each corresponding to one line of 
BASIC code. Records are of variable length with a max- 
imum length of 163 display format characters. The OPEN 
statement for a MERGE format file might be: 

OPEN #1:"DSK1.FILENAME",VARIABLE 163 

Record Structure 

Records in the file each represent a line of BASIC as 
strings of ASCII characters. The ASCII codes of the first 
two characters represent the line number, the last 
character designates "end-of-line", and the BASIC state- 
ment(s) are represented in coded form in between. 

Let's consider first how line numbers are represented. 
You are probably aware that code numbers are associated 
with the character patterns used to display information. 
The character associated with a code can be obtained with 
the CHR$ function; PRINT CHR$(65) displays the pat- 
tern of the character with ASCII code 65 on the screen — 
the letter A. (ASCII, by the way, stands for American 
Standard Code for Information Interchange.) 

While some ASCII characters, like the letter A, have 
an associated pattern, others do not. However, any of 
the 256 ASCII characters can be accessed with the CHR$ 
function and subsequently used in strings just like any 



of the more familiar characters. PRINT CHR$(32)&- 
CHR$(255) displays two characters. Neither has a pat- 
tern, so neither can be seen, but the computer is able to 
recognize each character nevertheless. 

A character consists of a "byte," and a byte can be 
thought of as an eight-place binary number. Just as the 
decimal number system contains 10 digits (0-9), the binary 
system contains two digits, and 1 . In the decimal system, 
the first place to the left of the decimal point counts in 
units of one. Each successive place counts in units of the 
number base 10 multiplied times the units of the 
preceeding place — i.e.,rs, lO's, lOO's, lOOO's, etc. 
Similarly the first place in a binary number counts 1 and 
successive places in units of the number base 2, multiplied 
times the units of the preceeding base; i.e., I's, 2's, 4's, 
8's, 16's, etc. Thus the eight-place binary number 
00110001 is equivalent to + + 32+ 16-1-0 + 0-1-0+ 1 or 
49 in decimal. The binary number 1 1 1 1 1 1 1 1 is equivalent 
to 255 (128 + 64 + 32+ 16 + 8 + 4 + 2+1), and this is the 
largest ASCII code because it is the largest number that 
can be represented with a byte. The 256 ASCII characters 
are thus numbered from through 255. 

The decimal equivalent of ASCII code is used to repre- 
sent the Hne number, but with only one byte, the largest 
line number which could be represented is 255. To allow 
representation of high line numbers, a second character 
is added giving a total of 16 binary places. Applying the 
same principle used above, the places count (from right 
to left) in units of 256 (128*2), 512, 1024, etc. When plac- 
ed in the first two positions of a MERGE format record, 
CHR$(2)&CHR$(8)— i.e., 00000010 00001000— would 
represent the line number 520 (512 + 8). A quick method 
of determining the decimal representation of any two 
characters is to multiply the code of the first by 256 and 
add the code of the second. In the above example, 
520 = 2*256 + 8. 

The highest allowable line number in TI BASIC is 
32767 (01 1 1 1 1 1 1 1 1 1 1 1 1 1 1 or CHR$(127)&CHR$(255)). 
Adding the left digit gives the end-of-file mark used in 
MERGE format, equivalent to a line number of 65535. 
These two bytes, CHR$(255)&CHR$(255) must be in the 
first two positions of the last record in a MERGE for- 
mat file. 

Just as these two characters signal the end of the file, 
the byte CHR$(0) is used to signal the end of each line. 
This character must be the last one in each record. 
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MERGE Format Code 

This brings us to the question of what to put between 
the line number and end-of-Iine mark and before the end- 
of-file mark, viz., the coded BASIC statements. Many 
elements which comprise Extended BASIC statements are 
listed in Table 3 together with their ASCII character 
tokens. In MERGE format, the BASIC elements listed 
are represented by a single ASCII character. For instance, 
CHR$(156) represents PRINT, CHR$(130) the statement 
separator, CHR$(213) the LEN function, etc. In order 
to prepare BASIC statements in MERGE format, 
however, one must also know how to represent variable 
names, numeric and string constants, and line numbers 
occurring within statements. 

The easiest of these to represent is the variable name; 
the normal ASCII representation for each character of 
the name is used. Consider the line: 

10 PRINT XYZ 

The MERGE format record used to represent this line 
would be: 

CHR$(0)&CHR$(10)&CHR$(156)&"XYZ"&CHR$(0) 

That is, seven bytes would be concatenated in a string 
and written in the appropriate disk file record. The first 
two bytes represent the line number; the next, the 
keyword PRINT; the next three, the variable name; and 
the last, the end-of-line mark. Assuming that the com- 
plete file corresponds to the requirements of MERGE for- 
mat in other respects, when loaded into program memory 
with the MERGE command LISTing, the program will 
show it to contain the line intended. 

Numeric constants and unquoted string constants are 
handled differently from variable names: Each number 
of unquoted string must be preceded by two identifying 
bytes. The first is CHR$(200), the character which signals 
the beginning of an unquoted string. Following 
CHR$(200), a byte must be included to indicate the 
number of subsequent characters in the string or number. 
This byte is simply the character with the code equal to 
the length of the string — i.e., if the string were five 
characters long, CHR$(5) must be included; if 12 
characters, CHR$(12). For example, consider the 
statement, 

10 PRINT X + 345 

The statement would be represented in MERGE format 
with 11 bytes as follows: 

CHR$(0)&CHR$(10)«&CHR$(156)&*'X"&CHR$(193) 
&CHR$(200)&CHR$(3)&**345"ifeCHR$(0) 

Here, CHR$(200)&CHR$(3)&"345" first indicates that 
an unquoted string is to be encountered, then indicates 
how long that string is, and finally gives the string. 

Quoted strings are handled in much the same way, ex- 
cept that CHR$(199) is used instead of CHR$(200): 

10 RUN "DSK.l. FILENAME" 

would be represented as 

CHR$(0)&CHR$(10)&CHR$(169)«&CHR$(199)& 
CHR$(13)&**DSK1.FILENAME"&CHR$(0) 



Notice that quote marks are not explicity included in the 
string representation. They are automatically provided 
for by the use of CHR$(199). 

Finally, line numbers included in program statements 
such as GOTO and GOSUB must consist of two bytes 
coded in the same way as the line number bytes which 
begin each record. Moreover, these two bytes must be 
preceded by CHR$(201) to indicate that they are to be 
interpreted as a line number. The statement: 

10 GOTO 200 

would be represented as follows: 

CHR$(0)&CHR$( 1 0)&CHR$( 1 34)&CHR$(20 1 ) 
&CHR$(0)&CHR$(200)«&CHR$(0) 

Program Generation 

Although MERGE format programs can be generated 
with the above technique, its use would be 
cumbersome — to say the least. The following method 
simplifies the process considerably. 

For the moment, let's put aside the question of 
generating the portion of the character string associated 
with the BASIC statement. Assume that this string is 
generated and assigned to the string variable LINES. Each 
time a LINES string is constructed, two line number bytes 
must be added to the beginning, an end-of-line byte to 
the end, and the whole thing must then be written as a 
record in the MERGE format file. The easiest way to han- 
dle the operations which follow the construction of 
LINES is to use a subroutine. Given a starting line 
number, LN, the following subroutine constructs the two- 
byte ASCII line number representation and writes the file 
record. It then increments the line number by 10. 

9000 PRINT #1: CHRS(INT(LN/256))&CHR$ 
(LN - 256*INT(LN/256))&LINES«&CHRS(0) : : 
LN = LN+10 :: RETURN 

After the BASIC statement portion of the record is 
assigned to LINES, a simple GOSUB 9000 takes care of 
all the rest. 

The construction of LINES strings can be simplified 
by assigning ASCII character codes to string variables 
with easy to remember names. For instance: 

100 REMS = CHRS(154)::FOR$ = CHRS(140)::NEXT$ 
= CHRS(150)::IFS = CHR$(132)::THEN$ = CHR$(176) 
::TO$ = CHRS(177) 

Some string functions are followed by a and are 
reserved words. But in TI BASIC, they can be embedd- 
ed in a variable name so that one could use variable names 
like @SEG$, @STRS, etc., for storage of the appropriate 
ASCII character. Punctuation, arithmetic operators, and 
characters 199-201 also must be assigned "creative" string 
variable names: QS for quoted string, UQS for unquoted 
string, CMS for comma, etc. — whatever will be easiest 
for you to remember. 

The next level of simplification involves user-defined 
functions to include more than one byte whenever possi- 
ble. For example, it is clear that CALL will always be 
followed by an unquoted string; CALL COLOR, CALL 
SPRITE, CALL SOUND, etc. For that matter, the un- 
quoted string token will always be followed by a byte in- 
dicating string length. Construction of strings which in- 
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dude the call keyword can therefore be simplified by 
defining function appropriately: 

110 DEF UQ$(X) = CHR$(200)&CHR(X)::CALL$(X) 
= CHR$(157)&UQ$(X) 

A statement like CALL SCREEN (2) can then be written: 

120 LINES = CALL$(6)&"SCREEN"&LP$&UQ$(1)& 
"2"&RP$::G0SUB 9000 

(if CHR$(183), the left parenthesis, had previously been 
assigned to LPS and 182, the right parenthesis, to RPS) 

By making the function definitions a little more complex, 
the statement can be even further simplified: 

1 10 DEF UQS(XS) = CHR$(200)&CHR$(LEN(X$))&X$ 
120 DEF CALLS(X$) = CHRS(157)&UQS(XS) 

makes it possible to write CALL SCREEN (2) like this: 

130 LINES = CALL$("SCREEN")&LP$«&UQ$("2")& 
RP$::GOSUB 9000 

It's beginning to look a lot like BASIC. 

Built-in functions can similarly be defined to facilitate 
construcion of MERGE format strings. For instance, 

140 DEF INT$(X$) = CHR$(207)&LPS&XS&RP$ 

allows one to write X = INT(Y/256) as 

150 LINES = '•X"&EQ$&INTS("Y"&DIVS&UQS 
("256"))::GOSUB 9000 

(if CHRS(I90) had been previously assigned to EQS and 
CHRS(196) TO DIVS) 

Similarly, line numbers occurring within statements, 
such as GOTO or GOSUB, can be simplified with the 
following function: 

160 DEF LNS(X) = CHR$(201)&CHR$(INT(LN/256)) 
&CHR$(LN - 256*INT(LN/256)) 

so that the statement GOTO 200 can be written simply as 

170 LINES = GOTO$&LNS(200) :: GOSUB 9000 
(if GOTOS had previously been assigned CHR$(134)) 

Using string variable names and user-defined string 
functions, you can create your own custom "language" 
for use in writing MERGE format records. 

The following program may help to tie up the concepts 
presented; it is a trivial example of a music program 
generator. The program writes CALL SOUND 
statements in the MERGE format file "DSKl. BASIC" 
as the user presses a single key. 
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HOW 




IS EXTENDED BASIC? 



Nothing caused as much excitement and anticipa- 
tion in the TI-99/4A community as the announce- 
ment (which now seems like an eternity ago) that 
Extended BASIC would be forthcoming. Well, now that 
the new programming language is being gobbled up by 
hungry Home Computer users, the question on 
everyone's mind is, naturally enough, "Was it worth 
waiting for?" 

For the answer to this, and to help put the new soft- 
ware in proper perspective, we should first examine TI's 
claims for the language (in the introduction to the 
reference manual): "Texas Instruments Extended 
BASIC. . .has the features expected from a high level 
language plus additional features not available in many 
other languages, including those designed for use with 
large, expensive computers." The key words here are "ex- 
pected" and "not available." Features such as DISPLAY 
AT, ACCEPT AT, PRINT. . .USING, IMAGE, ON 
ERROR, multiple statement lines, expanded IF-THEN- 
ELSE statements, PEEK, Boolean operators, and 
assembly language subroutine calls are indeed "ex- 
pected." Unfortunately, they were expected in the or- 
dinary TI BASIC, since they're standard features of 
various Microsoft BASICs found in other machines. But 
just as plain, old, ordinary TI BASIC has its share of 
surprises that aren't commonly found in other BASICs 
(e.g., CALL SAY, RESEQUENCE, complete EDIT, 
TRACE, and BREAK utilities, plus its marvelously sim- 
ple character definition and color assignment facilities), 
TI Extended BASIC also has its own unique bag of tricks 
not found on other machines. And this bag of tricks in- 
cludes some mighty impressive feats of computing magic. 

But before we get into these extended features, let's 
examine some of the obvious changes from TI BASIC. 
First, there's the matter of a slight reduction in usable 
RAM. The maximum program size in Extended BASIC 
is 864 bytes smaller than in TI BASIC. Although this 
represents only about a 6% reduction, any reduction in 
user memory is significant if it prevents certain applica- 
tions from being RUN. And, in fact, as little as 500 bytes 
is frequently the critical amount of extra memory need- 
ed. (Witness the several programs in this volume that can- 
not be loaded or RUN with the disk controller's power 
on — even with the CALL FILES(l) command that frees 
all but the 500 bytes for the disk system.) So program- 
mers without the 32K RAM expansion should try 
wherever possible to make up the loss with Extended 
BASIC'S built-in memory saving features: multiple state- 



ment lines (with more allowable characters per line), ex- 
panded IF-THEN-ELSE statements, multiple variable 
assignments, trailer comments that immediately follow 
statements (instead of separate REMs), repetition of 
strings with the RPT$ function, and the use of MIN and 
MAX functions. 

The loss of user-definable characters in the character 
sets 15 and 16 is another departure from the TI BASIC 
standard. These custom characters are no longer available 
to programmers since the memory area is needed to keep 
track of sprites. Therefore, a TI BASIC program that 
doesn't use these character sets is supposed to RUN in 
Extended BASIC in most circumstances— unless, of 
course, you've done something that will obviously cause 
trouble, such as accidentally using a TI Extended BASIC 
keyword as a variable in your TI BASIC program (e.g., 
DIGIT, ERASE, ERROR, IMAGE, MERGE, MAX, 
MIN, SIZE, WARNING, etc.) [See the July/ August 1981 
issue of 99'er Magazine for an analysis of what is and 
isn't interchangeable.— Ed.] 

Now, let's take a peek (no pun intended) into the "bag 
of tricks" I mentioned earlier. A good place to start is 
with Extended BASIC'S exciting new graphics 
capabilities. Nine new subprograms (plus 2 redesigned 
ones) provide the ability to create and thoroughly con- 
trol the shape, color, and motion of smoothly-moving, 
high-resolution graphics. These are the true sprites- 
graphics that can be displayed and moved at any of 49,152 
positions (192 rows x 256 columns) rather than the 768 
positions (24 rows x 32 columns) CALLed by the 
VCHAR and HCHAR statements of TI BASIC. But 
that's only the beginning. Sprites can be set in motion 
with simple X and Y velocity components and will con- 
tinue their motion without further control; they can grow 
and shrink at will, be relocated or "hidden", and even 
pass over and blot out fixed objects and other sprites to 
give the illusion of depth and 3-D animation. [This is a 
function of the three-dozen stacked image planes of the 
Home Computer's video display processor chip — a uni- 
que graphics display explained more fully in "3-D Anima- 
tion."— Ed.] 

Although games aficionados and educators have every 
right to be overjoyed with the new sprites capability, 
TI-99/4A users who are more interested in business, 
scientific and professional applications will be drawn to 
other Extended BASIC features. First on the list is the 
impressive subprogram capability. Several options exist 
for passing values (and entire arrays) between main and 
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subprograms. There's also built-in protection to prevent 
subprogram's local variables from affecting the main 
variables. Additionally, commonly used subprograms 
may be SAVEd on a separate disk, and later MERGEd. 
This will allow programmers to build up a library of 
"universal" subprograms that can be called upon to 
supply the appropriate cartridges for new programming 
tasks— without time-consuming re-coding and debugging. 

If this new subprogram flexibility is not enough for 
your most demanding tasks, how about "program chain- 
ing," where one program can load and RUN another pro- 
gram from a disk. This means that multi-part programs 
of almost unlimited size can now RUN on the TI-99/4A 
if they are broken into pieces and each segment is allowed 
to RUN the next. And at any point in this chain, a 
"menu" may be inserted, allowing the user to choose with 
a single keystroke the particular program to be RUN. Im- 
agine the possiblities! 

Those of you with a speech synthesizer, or thinking of 
purchasing one, will be happy to learn that Extended 
BASIC includes a speech editor. You will no longer need 
the separate Command Cartridge (with a retail price of 
about $45). What's more, with the combination of CALL 
SPGET, the capability of subroutine MERGEs, and the 
data for the code patterns (that TI supplies in the appen- 
dix of the reference manual), you can now easily add the 
suffixes ING, S, and ED to the roots of words in the resi- 
dent vocabulary. And if TI ever supplies users with their 
master file of coded speech patterns and rules for com- 
bining them, it will be possible to create your own new 
words. As of now, TI provides only one cryptic state- 
ment: "Because making new words is a complex process, 
it is not discussed in this manual." 

Incidentally, this capability of having the computer say 
what you want it to say rather than being limited to a 
fixed vocabulary will, in fact, be implemented through 
a related approach. I'm referring to the "text-to-speech" 
capability of the forthcoming Terminal Emulator II Com- 
mand Cartridge, which is programmable in TI BASIC. 
Since only one Command Cartridge at a time can be at- 
tached to the TI-99/4A, text-to-speech cannot be used 
with the Extended BASIC Command Cartridge. ISee 
"Text to Speech on the Home Computer." — Ed.] 

The final two features I'm going to cover in this over- 
view provide a fair degree of software protection and 
open the door to additional language capabilities. Con- 
sequently, these are the particular features that may have 
the most profound impact on the entire TI-99/4A 
community— ultimately determining the quality and 
quantity of most of the commercial software for this 
machine. 



Extended BASIC programs can be SAVEd in a PRO- 
TECTed form to guard against software piracy. This ir- 
reversible feature allows a program to be RUN or load- 
ed into memory only with an OLD command. A program 
thus PROTECTed cannot be LISTed, EDITed, or SAV- 
Ed. If the program was originally SAVEd and PRO- 
TECTed on a disk, you must still use the protect feature 
of the Disk Manager Command Cartridge to completely 
"lock up" the software by preventing it from being 
copied as well. 

Extended BASIC has the capability to CALL and RUN 
assembly language programs if the 32K RAM expansion 
peripheral is attached to the computer. Since Assembly 
Language has a much faster execution speed than BASIC, 
many applications programs that are unfeasible to write 
in either TI BASIC or TI Extended BASIC (and Extend- 
ed BASIC is not significantly faster than its predecessor) 
can now be written in TMS9900 Assembly Language, 
LOADed into the expansion memory peripheral, and 
RUN on a TI-99/4A. This paves the way for some fairly 
sophisticated applications programs that can now be 
targeted for TI-99/4A users. [See the related assembly 
language sections in this book. — Ed.] 

Even though a TI-99/4A with Extended BASIC and 
the memory expansion peripheral can CALL and RUN 
Assembly Language programs and subroutines, it can- 
not be used to write them at present. And instead of a 
direct implementation of the POKE command, TI gave 
users an indirect implementation. To load data directly 
into memory locations, they can use CALL LOAD with 
the optional fields specifying a starting address followed 
by data bytes. The TMS9900 Assembler, available on the 
Editor/Assembler Command Cartridge and its accom- 
panying diskettes, allows Home Computer owners to 
write their own Assembly Language programs and call 
them up through Extended BASIC. Besides this obvious 
use of an assembler, it opens up other exciting 
possibilities: More exotic languages can be written in 
TMS9900 Assembly Language especially for TI-99/4A 
implementations. FORTH, for instance, is now available. 

The bottom line is more software tools for developers 
and more economic incentive for them to produce 
valuable programs that can be protected against most 
piracy. This means that the TI-99/4A user community 
will be seeing a lot more useful software enter the market. 
Being able to run this software should more than justify 
the $100 (retail) price for this filled-to-capacity 36K byte 
TI Extended BASIC Command Cartridge with accom- 
panying 224-page reference manual. Therefore, the 
answer to the title's rhetorical question, "How Extend- 
ed is Extended BASIC?" is apparently, "Extended 



enough. . . . 
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POCKET 
TOWER 
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You are in an ancient temple at the center of the 
earth where three diamond needles bear eighty 
golden rings of graduated sizes. At the beginning 
of time the rings were all on one needle; but now the tem- 
ple monks are transferring the rings, one at a time, from 
needle to needle, never setting a ring on a smaller ring. 
When they have moved all eighty rings to one of the other 
two needles, the world will end . . . 

Possibly you have seen a children's toy along these 
lines — four or five disks of various colors and sizes, 
drilled to fit on three wooden pegs. The object is to start 
with the disks on one peg, and by moving one at a time— 
and never setting a disk on a smaller one — transfer the 
entire pile to another peg. If you don't have one of these 
in your closet, here is a pocket program of the puzzle for 
you and your friends. 

When the program is run, four "rings" (they will 
actually look more like short bars) will appear on the left 
of the screen. There is room on the screen for three piles 
of rings. (To make the game pocket-sized, the pegs were 
left out.) To move a ring from one pile to another, press 
key 1 , 2, or 3 to designate which pile (left, center, or right) 
to take the ring from, and then press 1, 2, or 3 to 
designate which pile to move the ring to. That's all there 
is to it. 

The program works this way: rings are represented by 
the numerals 1, 3, 5, and 7. Peg (1), Peg (2), and Peg 
(3) are variables in which the presence of rings on the three 
pegs (or piles) are recorded. Thus in Hne 200, which is 
part of the initial setup portion of the program. Peg (1) 
is given the value 1 .357 corresponding to the presence of 
all four rings on the first peg. The leftmost numeral is 
the one on top. 

At the beginning, pegs #2 and #3 are empty. When a 
ring is moved from one peg to another, the values of the 
**peg( )" variables change accordingly. For example, if 
our first move is to place the top ring from peg #1 onto 
peg #2, then Peg (1) changes from 1.357 to 3.57 and Peg 
(2) changes from to 1. 

These changes are performed in line 450 (where the 
"size" of the ring being moved is figured out) and in lines 
500 and 510 where the values of the "peg( )"s are actually 
changed. "From" and "too" identify the pegs. They are 
given values when the keys 1, 2, or 3 are pressed. The 
three "top( )" variables are strictly for the graphic 
display; they record the positions of the tops of the piles 
on the screen. Conveniently, the rings are 1, 3, 5, and 
7 characters wide. 
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"Status" is used as part of the "call key" routine to 
tell the machine when a key has been released so that the 
program can go ahead. Now read through the program 
and see if you can follow what is happening. 

Stacks 

The piles of rings in this program are particularly 
graphic illustrations of the stack, a ubiquitous and very 
important idea in practically every kind of software. Like 
the rings in these piles, things stored on software stacks 
(subroutine return addresses, interrupts, whatever . . . ) 
come off the stacks in reverse order to the way they went 
on. Because the items stored on our pegs are only single 
numerals, we are able to use a simple "trick"^ to repre- 
sent each of our three stacks. We just construct a number 
for each digit we want to represent. The 99/4A employs 
numbers accurate to 13 decimal places using a radix-100 
representation, so we can push and pop numerals onto 
and off the left end of these with abandon, multiplying 
and dividing by 10 without fear of a roundoff error. 



'if you find an application for this "trick" in a program of your own, you will 
be entitled to call it a "method." (A "method" is a trick used twice). 
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The History of LOGO 



LOGO — a powerful, high-level computer language 
designed for educational purposes especially as a pro- 
gramming language suitable for young children — is 
now available on Texas Instruments' TI-99/4A Home Com- 
puters. For more than a dozen years, the LOGO Group at 
the Massachusetts Institute of Technology has been develop- 
ing the LOGO language and related computer programming 
activities. Under the leadership of MIT Professor Seymour 
Papert, LOGO activities have been used with children as 
young as nursery school age, with MIT undergraduates, and 
with many students of al) ages in between. The philosopy 
of LOGO'S developers has been: "No threshold, no ceil- 
ing." A begiimer can make the computer do something 
meaningful and interesting in the very first programming 
session. Yet at the other extreme, LOGO is suitable for very 
advanced programming projects. 

The philosophy of LOGO has been derived primarily 
from two sources: The developmental theories of the late 
Swiss psychologist, Jean Piaget (with whom Seymour Papert 
worked for several years before coming to MIT), and ideas 
from a modem scientific field called Artificial Intelligence. 
From Piaget comes the idea of creating learning en- 
vironments in which most of what children learn can occur 
naturally — in the same way children learn to speak their 
native language, walk or run, and play ball. From Artificial 
Intelligence comes ideas about ways to use programming 
languages to aid thinking and problem-solving. Program- 
ming a computer in LOGO is seen as the act of teaching 
the computer a set of new commands, based on what it 
already knows how to do. Each user is, in effect, creating 
his or her own computer language, to suit his or her own 
purposes. Readers interested in learning more about these 
ideas should read Mindstorms, a recent book by Seymour 
Papert, in which he develops and extends the vision of the 
relationship between computers and learning that led to his 
development of LOGO. 

LOGO activities are designed to allow use of the com- 
puter in a way that is personally meaningful to the user. 
Activities developed by the MIT LOGO Group have includ- 
ed using a computer to control the behavior of a robot tur- 



tle, to draw pictures and explore geometric environments 
on a TV screen, to create computer animations, invent in- 
teractive computer games, compose, arrange, and play 
music, and produce "poetry." The best known LOGO ac- 
tivity is using a simulated robot turtle on a TV screen to 
produce geometric designs and cartoon-like drawings. Hun- 
dreds of children have learned computer programming and 
problem-solving skills and developed mathematical exper- 
tise while writing programs for the turtle. 

The LOGO language includes commands to make the tur- 
tle move and draw pictures. A student drawing with the tur- 
tle can make it move around on the TV screen by typing 
familiar commands such as FORWARD and BACK or 
RIGHT and LEFT. The information which beginners need 
to control the turtle is already present in their own body 
knowledge of how to move forward or back and how to 
turn right and left. Programming becomes an extension of 
something a learner already knows — rather than something 
requiring the mastery of an elaborate technical language or 
a complex coordinate system. The turtle becomes for the 
learner what Seymour Papert has called "an object to think 
with." Students using the computer as a programming tool 
become more aware of both their own body motion and 
the behavior of the computer. 

The version of LOGO developed collaboratively by Texas 
Instruments and the MIT LOGO Group for the TI-99/4A 
includes an entirely new graphics environment called a 
"Sprites World." Sprites are small objects that can move 
rapidly around the screen, changing shape, color, speed and 
direction. Large numbers of sprites can appear at the same 
time to produce exciting animated designs or to be used as 
elements in programs to create video games. Because of its 
inherent attraction for so many people and because of the 
geometric and problem solving ideas embedded in it, the 
Sprites World promises to be one of the most exciting 
computer-based learning environments yet invented. 
The World of the Turtle 

Let's take a closer look at what actually happens when 
someone learns to program a computer using the LOGO 
turtle. The turtle responds to simple commands typed at the 
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keyboard: FORWARD 100, BACK 50, RIGHT 90, LEFT 
45, etc. FORWARD 100 moves the turtle forward "100 tur- 
tle steps," drawing a line on the TV screen in the process. 
LEFT 45 makes the turtle rotate 45 degrees to its own left. 
People learning LOGO find it natural to "identify" with 
the turtle, imagining themselves going through its motions 
as it carries out a particular task. At the same time, con- 
trolling the turtle becomes a metaphor for controlling the 
computer itself: Like the turtle, the computer responds to 
an ordered series of command, and "TO" procedures that 
are defined as series of commands. 

The ways in which the actions of the turtle can lead to 
geometric designs, as well as the method used to define pro- 
cedures, is illustrated in the following simple examples. The 
turtle can draw a square by repeating the commands FOR- 
WARD 100 RIGHT 90 four times. A procedure can be 
defined by choosing a name (BOX, for example) and typ- 
ing in a series of commands in order. 




To execute BOX enter the following: 
TELL TURTLE 
BOX 

When the new command, BOX, is typed, the turtle im- 
mediately draws the shape shown in the figure. (The small 
triangle shown in the figure represents the turtle by show- 
ing its position and heading). A similar procedure, TRl, can 
be defined as follows: 
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To execute TRI enter the following: 
TELL TURTLE 
TRI 

A student who has defined procedures such as BOX and 
TRI is beginning to "teach the computer" his or her own 
private language. BOX and TRI can now be used in the 
same way as other LOGO commands. They can be used 
to create other drawings such as a simple "house" or an 
abstract geometric "flower." 

This approach to geometry and programming provides 
the basis for a rich universe of activities known as Turtle 
Geometry, which includes cartoon drawings (simple and 
complex), geometric designs, mathematical theory building, 
and computer games. Extensions of Turtle Geometry have 
proven fruitful when used with advanced high school 
students or MIT undergraduates. The universe of Turtle 
Geometry provides a conceptual framework for such aspects 
of mathematics as the relation between shapes and angles, 
coordinate systems, positive and negative numbers, the use 
of variables, symmetry and similarity, and even calculus and 
differential geometry. The computer programming involved 
in beginning LOGO activities can include procedures and 
subprocedures, the naming of procedures and variables, pro- 



cedural hierachy, recursion and iteration, the use of condi- 
tional logic, and the development of problem-solving 
strategies. 

Within the universe of Turtle Geometry, there is room 
for different students working individually to create their 
own sub-universes or microworlds. They can do this with 
their own limited (but expandable) sets of concepts and 
related activities and projects. To teach LOGO is really to 
help learners create, explore, and extend their own 
microworlds. 






I have used turtle geometry as an example of what can 
be done with LOGO because it is easy for a reader to 
visualize the commands and to see how they lead to pro- 
cedures that produce the results in the pictures— just as it 
is for young children. Children learning LOGO have ac- 
tually carried out many other types of projects as well: mov- 
ing turtles, finding their way around race-tracks or mazes, 
animated cartoons, mteractive computer games such as Nim 
or Tic-Tac-Toe, programs which generate sentences or 
poetry (or even play Mad-Libs), and programs to translate 
English into Morse Code, or vice-versa. As LOGO becomes 
available to owners of TI-99/4A computers, I hope that 
these pages can be a forum for describing your LOGO pro- 
jects. Since there will soon be more LOGO users than ever 
before, we can expect more and different LOGO projects 
to emerge. One of the best ways to build the cuUure of 
LOGO is for users to share project ideas through the pages 
of books such as this or magazines such as 99'er Home 
Computer Magazine. 

Although TI LOGO is a recent entry to the LOGO 
Worid, a prototype version has already been tested with hun- 
dreds of students between the ages of three and nine at the 
Lamplighter School in Dallas, Texas, and by students in fif- 
teen elementary and junior high schools in New York City. 
Using the Sprites Worid of animated graphics activities, 
these students are busily creating a new universe of LOGO 
activities to delight and educate a new generation of com- 
puter users. In an age in which computers are omnipresent 
in society, and in which universal computer literacy is a 
pressing national need, computer-based learning en- 
vironments like LOGO have become essential to the pro- 
cess of growing up literate in the last decades of the twen- 
tieth century. 
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The Lamplighter LOGO Project 



4 i A child is not a vessel to be filled, but a lamp to 
ZA be lighted." The quote from Alexandrov is on 
the plaque outside the Lamplighter school. That 
sign advises any visitor that the school is very unusual. 

The curriculum at Lamplighter is individually tailored to 
meet the needs of each student. Individualization is applied 
in science, language arts, math, drama, music, art, French, 
and physical education. The Lamplighter is strongly sup- 
ported by the parents of its students and by its alumni, with 
graduates of Lamplighter frequently dropping by to see their 
former teachers. Such alumni loyalty might not be con- 
sidered unusual, except that the Lamplighter classes begin 
with preschool (age 3) and end with the fourth grade-level!. 

The physical arrangement of the school reinforces its ap- 
proach to learning. Classrooms have only three walls; the 
fourth side of each class opens onto an airy, bright shared 
space. Class rooms are clustered around these shared-spaces 
by grade-level. Inside each classroom there are tables and 
chairs for writing work and, on one side, a small tiered well 
which is used for many other activities (e.g., reading, French, 
music, or story telling). The staff, the facilities, the students, 
and the parents all contribute to make Lamplighter a very 
special private school. 

Lamplighter has been a leader in the use of new 
technology for learning. Calculators, Speak & Spells, 
Systems 80 units, and Little Professors are abundant 
throughout the school. Students regularly use these learn- 
ing tools and other learning games found in the shared 
spaces. Teachers make extensive use of slides, films, and 
video and audio tapes. When Mr. Erik Jonsson (co-founder 
of Texas Instruments and Lamplighter Board of Directors 
Chairman and benefactor) first proposed introducing com- 
puters into Lamplighter, his idea was well received. Mr, 
Jonsson had earlier been in contact with Dr. Seymour Papert 



of the Division for Study and Research in Education (DSRE) 
at MIT, and found the LOGO language and philosophy of 
learning intriguing. Papert's initial explanation that LOGO 
allowed students to program computers and not vice-versa, 
enjoyed a favorable reception from the Lamplighter facul- 
ty. Later, as Papert elaborated on the LOGO philosophy, 
it became clear the LOGO was very much in accord with 
the philosophy and practice of Lamplighter. 

In the fall of 1978, Papert and several others from DSRE 
made a series of preparatory visits to Lamplighter to ar- 
range for the introduction of LOGO to the school. The plan 
was to begin LOGO training for first the faculty and then 
the students by using the Digital LSI-1 1 LOGO (in use at 
the Brookline, Massachusetts, project) and later, bring TI 
LOGO into the school as it developed. 

Shortly after the first visit by Papert, Lamplighter rented 
the first of two LSI-1 1's that were to be used in the initial 
two years of the project. Training sessions helped the initial 
core of Lamplighter faculty (representing nursery school, 
second grade, third grade, and fourth grade) become 
familiar with LOGO. This "Computer Group" then began 
working with third and fourth grade students. Shortly 
thereafter, a second LSI-1 1 was rented, and by the end of 
the spring term every third and fourth grade student had 
had at least one hour of LOGO instruction on a computer. 

The third and fourth graders considered it a treat to work 
on the computer— partly because these special computer ac- 
tivities allowed them to miss classes, and partly because they 
genuinely enjoyed working with LOGO. One student's 
remark reflects the sentiments of many of these pupils. After 
he had spent an hour working at figuring line lengths, turn 
angles, and sections of arcs in order to construct a com- 
puter picture of a cat, he thanked me for "getting out of 
math class." 
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In the summer of 1979, the Computer Group was expand- 
ed, and two workshops were held to refresh the teachers' 
memories. Subsequently, a 10 day workshop at MIT in- 
troduced the teachers to more elaborate LOGO program- 
ming and allowed them to participate in discussions on the 
relationships between learning and LOGO. Then, as the new 
school year started, the teachers were really surprised to 
discover how little the fourth graders had forgotten about 
LOGO. These students generally recalled all of the com- 
mands they had learned three months earlier — even though 
they had had no contact with LOGO in the interim! 

Midway through the fall semester of 1979, several early 
prototypes of TI LOGO were tested at Lamplighter and 
revised by the MIT LOGO laboratory personnel in consulta- 
tion with Lamplighter and Texas Instruments. In January 
1980, the pace of computing at Lamplighter accelerated as 
an updated version of TI LOGO was implemented on the 
TI prototypes. By the end of January, a dozen prototypes 
were in use at Lamplighter, and a very few students con- 
tinued to use the LSI-11 LOGO. Most pupils, in fact, 
switched to the TI prototypes even though that meant re- 
learning much of LOGO. 

In the middle of the spring semester, a few more pro- 
totypes arrived and all the machines were upgraded to a later 
version of Tl-based LOGO. Before the school year ended, 
all of the third and fourth graders had had at least one hour 
on the new machines. One of the rented LSI-1 Ts was then 
returned (though few noticed its departure). At that time, 
several fourth graders were writing elaborate programs 
which made use of recursion to create "movies" or "rain- 
bows" (changing colors), or elaborate scenes. Some students 
were so taken with LOGO that their parents happily bought 
them their own computers (at that time, TI LOGO was not 
yet commercially available); other students became 



enthralled with their ability to produce perfectly printed let- 
ters and numerals on a keyboard and later received 
typewriters as presents from their parents. 

By September 1980, a total of 50 TI LOGO prototypes 
were in operation at Lamplighter. The version of LOGO 
on these units was very close to that which TI is now 
marketing. Then, late in the fall, the second LSI-11 was 
returned, but its loss went completely unnoticed because all 
of the faculty and student interest was already focused upon 
the TI LOGO prototypes. Since September, the Computer 
Group has continued to work individually with third grade 
students. In addition, the rest of the faculty is being train- 
ed in LOGO, and it has been introduced into all of the 
classes as part of the regular school curriclulm. 

The teams at each grade level decided the best way to in- 
troduce LOGO into their classes and worked out various 
procedures for that introduction. For example, one teacher 
developed special simplified LOGO programs for the 
preschool children which required less typing in order to pro- 
duce interesting effects. And personifications of LOGO con- 
structs made LOGO easier for first and second graders to 
understand. Currently, students can be seen at every shared- 
space LOGO machine during lunch-hour, before school, 
after school, and whenever other school activities are com- 
pleted. For the rest of the semester, LOGO will be used in 
class by the teachers as they feel it is relevant for their lessons 
and will continue to be available (as are the other learning 
aids) to students during free periods. 

The Lamplighter LOGO project was not intended to be 
a formal experiment. Since there are no control groups, 
strong causal claims for LOGO'S effects are inappropriate. 
Several cognitive and psychological assessments, however, 
were made at the beginning of the project and will be made 
again at the conclusion of the present school year. And, 
there already have been some indications of student attitude 
and behavior change. This is best exemplified by the way 
in which the pupils express their keen interest in acquiring 
new LOGO knowledge. 

It's always interesting to observe what motivates children 
to learn. Because LOGO is so extensive. Lamplighter 
teachers find it impossible to show students all the com- 
mands in the initial sessions. As a result, students have taken 
the discovery of more LOGO commands as a sort of 
treasure hunt and this new, "unauthorized," LOGO infor- 
mation is disseminated through an "underground network" 
among the students. During a training session in which 
teachers were learning to use MAKESHAPE (the LOGO 
command with which users make their own shapes on a 16 
X 16 grid), some students were secretly watching them. 
Shortly afterward, a hand-copied "underground" LOGO 
manual with clear and concise directions for the use of 
MAKESHAPE was found on the floor of a classroom; at 
the same time, a number of students began using 
MAKESHAPE. 

Students have discovered other information accidental- 
ly. One student typed MC instead of MS for 
MAKESHAPE; this put him in MAKECHARACTER 
mode. In this mode, LOGO users can modify old characters, 
or make new characters. The student proudly shouted out 
his discovery to his classmates, who quickly confirmed his 
results and spread the news. New information has diffused 
from grade to grade or class to class or from parent to child 
in a similar manner. 



100 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



Sharing among peers is the overwhelming response of 
Lamplighter students to new LOGO information. Pupils 
eagerly and proudly explain their accomplishments in 
LOGO. At first, however, there were a few exceptions. A 
couple of students were secretive about some LOGO infor- 
mation and effects. One student made the screen's 
background color black so that no one could read what he 
typed; another tried to sell LOGO programs to his 
classmates! Afer they discovered that other students could 
find different ways to achieve the same effects and were will- 
ing to share, they started sharing as well. 

In at least one case, LOGO seems to be responsible for 
a major behavioral change. Late last year, a fourth grader 
who had not been performing well academically, and who 
had been somewhat disruptive in class, started programming 
in LOGO. As he played on the computer, his typing became 
very fast (QWERTY keyboards are quite properly regard- 
ed by the Lamplighter children as a stupid arrangement with 
which they reluctantly work), and his program became 
sophisticated. He was heard to remark, "I can't believe how 
fast my fingers are typing." He also could not believe how 
much fun school had become. Not only did he do well with 
LOGO, but he also became an attentive, productive student. 



Figure 1. 
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Commeni: 

TEST checks the heading of the Turtle. If it's not (North), the Turtle 
continues to draw the LAZY8. 

After finishing the right-hand circle, the heading becomes and the left- 
hand circle is drawn. 

To really understand why the left-hand circle ever gets completed, you have 
to know something about microprocessors and stack operations. In keep- 
ing with the scope of this section, however, a simple anthropomorpic ex- 
planation will have to suffice at this time. Other sections will take an in- 
depth look at the technical aspect of the language. 

Think of the job of drawing the LAZY8 as being given to a group of little 
workmen inside the computer. The first workman carries out the first four 
lines then decides he needs a rest before continuing. Notice that in his in- 
itial contract TO LAZY8 he has agreed to eventually carry out the FOR- 
WARD 4 and LEFT 10 specifications. The work must go on while he rests, 
so he subcontracts out the next stage to another little man. This workman 
also carries out the first four lines, then he too decides to rest. So before 
begets to the FOR WARD 4 LEFT 10 tasks, he decides to subcontract out 
the balance of the work on the right-hand circle. This process goes on with 
enough little workmen (36 in this case) until HEADING = 0. At that time, 
the last little man carries out his FORWARD 4 and LEFT 10 tasks, and 
gives the job responsibility back to the next-to-last workman who also car- 
ries out his remaining FOR WARD 4 and LEFT 10 tasks. This reverse pro- 
cess of finishing the last two tasks and relinquishing responsibility goes on 
until the original contractor finishes his original job with a single FOR- 
WARD 4 and LEFT 10, thus completing the left-hand circle in the 
LAZY8—Ed. 



At present, most of the third and fourth graders— and 
even some of the first and second graders— are writing 
LOGO programs. And this includes some fairly 
sophisticated programs which use recursion and the con- 
cept of state transparency. A few children even acquired 
the skill of using subprocedures — i.e., breaking a complex 
program down into its several component parts. This is one 
of the most important features of procedural languages such 
as LOGO. Most students had discovered recursive program- 
ming, or "cursives" as a few called it. In recursive programs, 
one of the program lines calls for a new stack to execute 
the program again. You do this by including the name of 
the program within the program itself. All the recursive pro- 
grams written by the students, however, had the recursive 
step in the last line. [When the recursive step occurs in the 
last line before END, the procedure is said to have "tail- 
end recursion." For an example of somewhat more 
sophisticated usage, see the LAZY8 procedure in Figure 
1— Ed.] 

A number of programs produced exciting video scenes. 
In EXPLODE, 32 differently colored balls splay out from 
the center of the screen before repeating the entire procedure. 
One third grader saw how he could place a program which 
printed a message inside EXPLODE, and thus combined 
recursion and subprocedures. RAINBOW had one or more 
sprites continuously change colors for an attractive visual 
effect. There were also programs which had the TV monitor 
take on a series of skteen colors, and programs which 
changed the background of the screen to black and created 
unusual perceptual illusions by shooting light-colored shapes 
across the screen. Some even had jets, rockets, or airplanes 
spouting fires from their engines. 

Other children wrote programs 
which put shapes together to create 
scenes, such as a home with a car 
driving down the street in front of 
the home. Most students had writ- 
ten utilitarian programs like 
VANISH (Figure 2) which caused 
the sprites to move off screen, take 
on the clear color, carry an empty 
shape, and which caused all the 
printing to be cleared from the 
screen. 

After spring break, several things happened which caus- 
ed a quantum leap in the computer work of the students. 
First, the children were shown how to save their programs 
and shapes on cassette tape. Until then, the students had 
to write in their computer notebooks anything they wanted 
to save. That meant that any elaborate shape had to be 
reproduced on a grid in an arduous manner, and long pro- 
grams or complex programs required a very long time typ- 
ing. (Remember these children are elementary pupils with 
little typing experience before computers!). 

Students had not used much of their work as founda- 
tions for future work simply because loading the old material 
took so much of their time. Now, with the recorders, they 
could use and improve each session's programs just by tap- 
ing and playing back a cassette. Also, they could design and 
SAVE complex shapes instead of seeing them lost when the 
computers were shut off. 

The children were also shown the TELL TURTLE mode. 
This opened up all of the turtle geometry features of LOGO. 
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(Turtle geometry is such a powerful idea that some Pascal 
systems have adopted it.) This newly acquired mode, coupl- 
ed with the previously learned SPRITE MODE, allowed the 
students to produce many interesting programs and visual 
effects. As a result of these new developments, many of the 
students soon exhibited a feeling of mastery over the 
computers. 

In the final eight weeks of school there was an exponen- 
tial explosion in the complexity of the students' programs 
and in their ease with the machines. They quickly learned 
to use variables as inputs, and consequently "discovered" 
the famous turtle geometry POLYgon program which can 
generate any regular polygon. (See Figure 3.) Then one stu- 
dent found that changing the angle of the turn on each recur- 
sion could produce beautiful patterns— including a striking 
nested curl in a star pattern. Many students now began put- 
ting programs together in subordinate and superordinate 
structures. Programs contained the unique LOGO controls 
of TEST, IFT, and IFF, as well as the conditionals IF- 
THEN-ELSE. plus BOTH and EITHER for conjunctive 
and disjunctive branching. One of the third graders wrote 
a CAI (Computer-Assisted Instruction) program to quiz his 
first grade friends on addition facts using these control com- 
mands! He then added visual displays of the addends, and 
encouraging remarks when a student made a mistake, or 
a colorful scene as a reward for the correct answer. 



Figure 3 
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Using combinations of several user-drawn shapes, 
students began constructing very elaborate composite pic- 
tures. One third grade student also discovered how to change 
the characters associated with each console key [by redesign- 
ing the characters on a grid "tile" with the MAKECHAR 
primitive — Ed.], and decided to tease the teacher. She 
replaced the 3 with a 2, and then called a teacher for a 
demonstration. While instructing the computer to print 3 
+ 3 (which now looked like a request for the sum of 2 + 
2), she remarked to the teacher: "Look how dumb this com- 
puter is. . .it doesn't know 2 + 2." 

The activity among the third grade students was exciting 
to witness. One began programming dramas in which text 
was printed at the bottom of the screen while the story was 
enacted in SPRITE and TELL TURTLE modes at the top 
of the screen. One other third grader was so intrigued by 
the space shuttle's landing that on the same afternoon of 
the landing, he began working on a shuttle program. First, 
he used MAKESHAPE to construct a faithful replica of 
the shuttle, complete with USA monogram, black-and-white 
coloring, and auxiliary rocket engines. Then he worked for 
part of the afternoon and a little of the next morning to 
write and debug his programs. His final superprocedure 



launched the shuttle with flames shooting from the engines, 
jettisoned the auxiliary tanks, orbited the shuttle among 
planets in outer space, returned the shuttle to a dry lake- 
bed runway, taxied it to the end of the runway, and stopped 
it for a perfect landing. His programs are shown here in 
Figure 4 



Figure 4 
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[Note: Lislings of Tl LOGO procedures are just lhat— listings of pro- 
cedures. There's no way to print out a transcription of the data needed 
to MAKESHAPE and MAKECHAR as can be done with the HEX Codes in 
Tl BASIC and Extended BASIC. The only way to show the graphics that 
a program contains is to show it .is drawn on a series of "tiles" on the 
grids lhat appear on screen when the shapes and characters are first 
designed. This is similar to CHARDEF routine in Programming Aids 1. The 
listing of the Space Shuttle program was included (without the tiles) in 
this article to demonstrate the simplicity of the language structure.— Ed. 1 



The gains made by the Lamplighter children with LOGO 
have indeed been impressive. They confirm Papert's dic- 
tum {Mindstormsy Seymour Papert, Basic Books 1980] that 
children should program computers and not vice-versa. It's 
obvious that LOGO has indeed furthered Lamplighter's goal 
of igniting the imaginations and intellects of its children. 
But more importantly, LOGO has the potential to fire up 
imaginations everywhere. 
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Who is LOGO 
For? 

Its not just for 
Turtles anymore . . . 




Recently the question of LOGO'S relevance for children 
and its relevance for adults has been stated as an im- 
plicit either/or issue. That the issue ever arose means 
that people (including me) who write about LOGO have not 
done their jobs as fully as they should. Perhaps the notion 
that LOGO was just for children developed because of the 
total attention children invest in LOGO. The position that 
LOGO is too complex for children may have arisen because 
published programs seem magic unless one actively explores 
them (including seeing what happens when the programs 
are changed). Presenting a program as a fait accompli to 
be copied, run, stored, and used like any other software is 
contrary to the philosophy of education behind LOGO. 

LOGO is for humans. When Papert asked me if I felt 
comfortable with my LOGO, I said that LOGO is like a 
hologram— when you grasp just the smallest part of it, you 
have a small, but complete picture; and later as your 
understanding grows, you still have a complete picture, albeit 
larger. From that perspective, people can always learn more 
from LOGO and do more with LOGO even though they 
are able to use LOGO after the briefest of introductions. 
This feature of LOGO is what Papert alludes to in his 
slogan, "Low threshold, no ceiling." 

The LOGO slogan invites empirical verification. In my 
self-observations and studies of other adults, I have notic- 
ed that there are common, identifiable LOGO- 
developmental stages. Among these are the discovery of 
heuristics (i.e., powerful ideas), improved understanding of 
numbers, appreciation of angles and heading, and awareness 
of states and state independence. Probably the greatest gain 
people share in working with LOGO is the realization that 
one can find out on the computer, rather than ignoring the 
question or looking the answer up somewhere. This is so 
obvious that it might appear trivial; it is not. All learning 
theorists agree that active learning is preferable to passive 
learning. This presents a dilemma for those writing about 
LOGO: How do you capture the open activity of a LOGO 
learning enterprise in a closed article? 

The purpose of Ms article, however, is to reflect the 
development of a LOGO game, and in that development 
show how an apparently complex program is child's play, 
even for adults. At the same time, I hope that the develop- 
ment will point to variations and will entice you into active 
exploration. The program was initiated by a student in a 
course I taught. 



The program was supposed to be a "Pong" type game. 
As you follow its growth, find the point, if there is one, 
where the program stops being a children's program. 

The game begins not as a program, but simply a collec- 
tion of conditions. 
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These commands set a ball speeding left-to-right across the 
middle of the screen. 

The idea grows into a program as the ball is set to "boun- 
cing" off left and right boundaries. This is accomplished 
any of several ways: 
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But BOUNCE! sometimes doesn't work — occasionally 
the sprite is "caught" at one end or the other. What hap- 
pens is that the sprite slips past one of the boundaries (e.g., 
the computer is at line 2 of the program as the sprite moves 
left through X coordinate equal to - 85); by the time the 
computer reaches line 4, the sprite is well left of X coor- 
dinate -85. Then the computer turns the sprite right 180 
(a right 180 functions equivalent to a left 180). Before the 
sprite can move beyond the - 85 X coordinate, the com- 
puter checks line 4 again, turns the sprite 180 and sends it 
still further to the left. Of course, when the computer reaches 
line 4 a third time,the sprite is still left of - 85; the poor 
sprite is stuck beyond the left-hand boundary! This bug 
could be eliminated with a second type of BOUNCE 
program: 
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Now, regardless of how far beyond either boundary the 
sprite travels, the program will change the sprite's heading 
so that it will move back away from the boundary. A se- 
cond bug could occur if one used BOUNCE2 without first 
typing in the setup commands, since BOUNCE2 requires 
sprite to have a shape, heading, and speed. To avoid any 
problems, a better arrangement would be: 
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and PADDLE is simply added to the GAME 
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A ball bouncing between two boundaries is not much of 
a pong game. A closer approximation would result if there 
were a paddle for the ball to bounce off. This could be 
achieved by merely putting two sprites together as a team 
stacked vertically on top of each other, with each carrying 
a box. Since the team of sprites is, like the sprite carrying 
the ball, part of the initial game setup it should be part of 
the SETUP program: 



TO 
TE 
CAR 
S 

HldMlE 
S 

s 



CAR 
SX 
SE 



Y 

COLIOIR 



TCDLOR 



LOR 



NS 



BOX 
8 



BOX 



NG 



NG 



AC 



Notice, however, that sprites 1 and 2 receive almost iden- 
tical commands, so that a cleaner SETUP program can be 
written: 
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To make the game even more realistic, it is necessary to 
change the heading of the ball, to have the player able to 
move the paddle, and to keep a score. Obviously the ball 
should bounce only when it hits the paddle! These addi- 
tions are complex, so one should apply a Papert "powerful 
idea" and work on the complexity in smaller, simpler parts. 

The movements of the paddles can be accomplished by: 



Ooops; there's a very bad bug in this— the ball never 
bounces because PADDLE is recursive without a stop rule, 
and the computer never reaches BOUNCE2. So the recur- 
sive line in PADDLE is removed: 
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But now, when GAME is run, there's another bad bug: The 
program sets up, allows for one paddle movement and then 
stays stuck in B0UNCE2. Once again the difficulty is that 
a subprocedure is recursive. As a general rule, when a recur- 
sive program is used as a building block for a more com- 
plex program, there can be a bug. The bug is common 
enough to deserve a name — the "Recursion Interface Bug." 
When the bug is corrected by removing the recursive line 
of BOUNCE2, a new bug appears. 
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The ball doesn't bounce, or only bounces once, and the 
paddles only work once. This bug is killed by: 
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With that fix, the paddles work, but a completely new 
SETUP happens at every execution of GAME. A better 
solution is to separate those subprocedures which should 
be repeated from those which need to happen just once; 
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and construct a new, superprocedure: 
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and alter GAME: 
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There is still a small bug left in PADDLE: The computer 
will wait at line 1 of GAME until a key is touched (to satisfy 
the command CALL RC "A, it needs an RC). The com- 
puter needs to skip PADDLE if no key is touched. You can 
accomplish this by using TEST and the operation RC? (RC? 
answers "TRUE when a key is touched and "FALSE if no 
keys are touched). 



TO 



GlAME 
RC 



PADD 



BOUNC 
GAMjE 
EN 



At last the programs are all bug-free and working. The 
final tasks consist of Unking the ball-bounce off the right 
to hitting the paddle, keeping score, and making the flight 
of the ball a little more eccentric. Again these are complex 
problems, so each should be tackled separately. 

The BOUNCE2 program now reads: 



TO 



BOUNC 



COR 
TH 

coIr 



NG 



The second line causes the bounce off the right-hand bound- 
ary. If that TEST were altered so that it answered "TRUE 
only when the ball is near the paddle or a new program were 
designed to check the relationship of the ball to the pad- 
dle's Y coordinates when the ball is to the right of X coor- 
dinate 85, then the problem could be solved. The paddle 
is always at X coordinate 1(X); since the ball is in motion, 
the TEST at 85 is reasonable: When the ball passes through 
XCOR = 85, it will approach XCOR = 100 by the time 
the computer has completed all of the Y coordinate tests. 
The paddle begins the game (through SETUP) with the ex- 
tremes of its Y coordinates between - 16 and 16; each time 
the E key is typed, the paddle advances 16 along the Y coor- 
dinate, and each time that X is typed, it backs up 16 on 
the Y coordinate. Therefore, some PADDLETOUCH 
operation is needed that can compare the Y coordinate of 
the ball and that of the paddle: 



00 



PADD 



L 
T 

[ClOiR 



ou 



lOOCK 



COR 



This program will answer "TRUE whenever the ball (car- 
ried by sprite 0) is between : Y and ( :Y - 32 ) on the Y coor- 
dinate. If the PADDLE program is altered, not just to move 
the paddle but also to keep track of the Y coordinates of 
the paddle through :Y, then PADDLETOUCH will func- 
tion nicely: 



Unfortunately, this doesn't quite work as intended because 
it introduces a new bug: The CALL command CALL :Y 
+ 16 "Y and CALL :Y - 16 "Y wiU not work unless there 
is an initial value specified for :Y. Recall that the beginning 
value for the top of the paddle on the Y coordinate is 16 
(as achieved in SETUP). Since this happens just once, it 
belongs in SETUP: 



TO 
TE 
CAR 



K 



CO 



A|D 



NiGl 



10 



BOX 



ACK 



Next, it is trivial both to tie PADDLETOUCH into the 
GAME program and to make the flight of the ball less 
predictable. First of all, PADDLETOUCH is added to the 
BOUNCE2 program: 



TO 



E 
E 
F 

END 



BOO 



NC 



CH 



9 

XCblR 



ECS 



TO 



NG 



Then B0UNCE2 gets changed to test for the edges of 
the screen. Now, if the sprite reaches the top of the screen, 
it bounces back down instead of "wrapping" to the bot- 
tom. If it reaches the bottom of the screen, it bounces back 
up, and when it hits the left-hand boundary, it bounces at 
a 70-degree heading instead of a 90-degree heading. 



COR 
CS 



COR 



TH 



COR 



COR 
TH 



EAD 



EAD 



NG 



NG 



NG 



This leaves just the problem of keeping score. Besides 
keeping score, it would be nice to generate different noises 
when the player scores and when the computer scores. When 
the ball bounces off the paddle, then the player's score 
should increase and be printed; when the ball misses the pad- 
dle, then the computer's score should be increased. Notice 
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that the CHECK program is invoked only if the ball is 
beyond XCOR 85. Therefore, part of the scoring and noises 
can be controlled after line 3 of BOUNCE2 by rewriting 
the CHECK program: 



TO 



TELL 
ES 
FT 



TEST 



CREASE 



FT 



PR 



PLAYER 



I NCREASE 



POI 
TYPE 
TYPE 
TYPE 
PC 



CHECK 



NOI 



CALL 



W|AI 

EXTRA 
END 



CALL 



SETHEAD 



FF BEEP 
SHORT 



PADDLETOUCH 



NT 



SE 



YOUR 

PLS 

THE 



CPS 
CS 



THE 



CPS 



PLS 



WA 



BEEP 



SCOR 



NOI 



POI 
NQ 



COMPUTER 



PLAYER 

fIor 



NT 



scIore 

32 



INS 



19 

FIOR 



PC 

COMPUTER 



SE 



270 

1 



ADDED 



TO NlOI 
REPEAT 
AIT 
END 



BEEP 



ON 



WAI 



CPS 
S 



PLS 
S 



TO 



NOBEEP 
COMPUTER 



EACH 



SCORE 
THE 



ELSE 
SICIORE 



PC 



SCORE 



PREVENT 



SERVE 



NOBEEP 



It is necessary to set up an initial value for both the com- 
puter's score and the player's score as was done with :Y. 
Since this is done just once, it belongs in SETUP. [The in- 
itial score is to 0— as in the proverbial "soothsayer's" 
prediction or score before it begins. . . .] So SETUP is 
revised: 



SETUP 



Tb 

TELL 9 
CARRY 
SETCjOLlOR 
HOME 
SETHEADINlG 



SETSPEED 



SY 



SXY 
TELL 



CALL 
CALL 
CALL 
END 



TELL 
CARRY 
SETCOLlOR 
SETHEADI 



16 



199 



16 



BALL 

BLUE 



2 

BlOX 



Y 

PLS 
CPS 



90 



BLACK 



This game, like most LOGO projects, is open-ended. It 
could be altered so that a winner is named at a score of 21, 
revised for two players, changed to use joysticks or changed 
so that the ball has topspin. With each addition, it is 
necessary to make sure that the initial conditions are 
established only once, that procedures to be repeated are 
placed inside a recursive program, and that there are no 
Recursion Interface Bugs. 



TO 

TELL 
TEST 



TEST 



FT 



FT 



TEST 



FT 
TEST 

FT 
END 



B|0UNCE2 


XClOR 
CHECK 
XCOR 



YCOR 



SETHEADINC 



SETHEADING 

YCOR 
SETHEAD I NlG 



85 



30 



85 
70 



135 
85 



45 
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PART 1: Language Structure and Syntax 

LOGO was developed by Seymour Papert and his 
associates at the MIT Artificial Intelligence 
Laboratory in order to study the way people might 
learn in a computer-rich environment. It was designed to 
be a language so simple to use that a person could 
manipulate objects or concepts by just thinking about what 
he or she wanted to accomplish, and not have to worry 
about programming. Such a language might stimulate a per- 
son to explore, to learn, and to grow. 

The idea was to provide certain primitive commands and 
operations that could be combined to form more complex 
commands and operations. These more complex ones could 
then be used exactly like the primitive ones. Thus it would 
be possible to construct a single command to accomplish 
anything that could be accomplished using the primitive con- 
cepts. Additionally, recurs/on— whereby a command could 
call and activate itself— was allowed. 

LOGO is a relative of LISP, the list processing language 
used in artifical intelligence. LOGO and LISP share the 
capability of manipulating numbers, words (character strings 
without a space), and lists. A list is a recursively defined 
object: It is an ordered set of objects, each of which may 
be a number, a word, or a previously defined list. In LOGO, 
a procedure is represented by a list; there are commands 
to access a list that represents any procedure, and to define 
new procedures from lists which might be the result of some 
manipulation. Furthermore, a procedure may have inputs 
and may have an output, and is activated by specifying its 
name (a word) followed by its inputs (which may be 
numbers, words, or lists). Defined procedures as well as 
primitive commands and operations all have exactly the 
same syntax. This is why LOGO is so simple to use. Its 
power comes from its list processing capabilities. 

I hope that the description given so far has made it ap- 
parent that LOGO is not just for children. Although LOGO 



can be used in elementary ways, it is much more than FOR- 
WARD 20 RIGHT 90. LOGO is a language for all people 
who want to learn and expand their capacities. 

The LOGO Turtle 

The first experiments with LOGO were with junior high 
school students who could appreciate manipulation of 
words. Then a Turtle was created whose movements could 
be understood by very young people. 

The Turtle was originally a robot that could be conunand- 
ed to move about the floor. It had a pen which could be 
either up or down. In an experiment at the University of 
Pittsburgh Learning Center several years ago, one young 
person used LOGO to command the floor turtle to draw 
an alphabet of large letters. He also taught it to act like an 
airplane, and "fly" between cities on a large map. The plane 
had the possibility of going out of control, with the turtle 
going into a spiral and spinning on the floor. The turtle is 
now usually a small triangle on a terminal screen, but it can 
still do such things, albeit on a smaller scale. 

At the youngest levels, LOGO is being used to teach a 
feeling for distances and angles. At levels through college 
it is being used to advance a new subject in mathematics 
called "Turtle Geometry." Some interesting theoretical 
results have come about. (A wealth of examples and exer- 
cises is contained in Turtle Geometry by Abelson and 
diSessa, where procedures are expressed in a language almost 
exactly the same as LOGO.) Recursive designs such as 
snowflake curves, space filling curves and trees are applica- 
tions of LOGO'S power. 

TI LOGO 

TI LOGO is marketed as a language for children, and 
it was a pleasant surprise to discover that TI LOGO has 
all of the list processing capabilities built into it. All the 
recursive designs presented in Turtle Geometry can be 
drawn. (The TI Turtle is, however, limited to 192 different 
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8x8 pixel character positions. Thus, if a figure is very dense, 
it can't be very large.) 

The documentation that comes with TI LOGO doesn't 
make it easy to discover LOGO'S power. Many of the com- 
mands needed for manipulating all but the simplest lists are 
not documented. 

At this point, it may be helpful to briefly describe just 
what is available to a person who sits down to use TI LOGO. 
The TI Turtle is an object that lives on a coordinate screen 
with horizontal coordinates from - 1 19 to +120 and ver- 
tical coordinates from -46 to +97. The bottom six lines 
of the screen are used for text. The turtle can be assigned 
a position, and "knows" where it is. It can be assigned a 
heading (from to 360 as the points of a compass) and 
knows its heading. Its heading can be changed by a given 
angle, and it can be moved a given amount either in the 
direction of or opposite to the direction of its heading. It 
can make a dot at any position. The pen can be down, up, 
or in "reverse" modes, and it can draw in any of 15 colors. 

Unique to the TI version of LOGO are spnYes— objects 
familiar to those with TI Extended BASIC. There are 32 
sprites (numbered to 31) with each assigned to a 16 x 16 
pixel shape. Users may design and store 26 of these and can 
direct any collection of sprites to assume simultaneously an 
attribute such as shape, color, position, heading, speed, or 
velocity. The conmiands which control the turtle act similar- 
ly on the sprites. Motion is controlled by assigning a speed 
(m the current direction) or a velocity (horizontal and ver- 
tical components). Not only can attributes be assigned, but 
they can also be obtained as the output of operations because 
a sprite always knows its own number, shape number, col- 
or number, position (on the full screen), heading, speed, 
and velocity. 

Papert has described Velocity Turtles (which can have 
velocities) and Acceleration Turtles (whose velocities can be 
incremented). Sprites can be both. Using sprites we can even 
simulate Papert's "Dynaturtle"— an acceleration turtle 
which does not change direction when it is rotated, but 
changes velocity only by accelerating in the direction it is 
facing, thus obeying Newton's laws of motion. A dynatur- 
tle therefore behaves like the ship in the popular Asteroids 
arcade game. The example procedures that follow this arti- 
cle will demonstrate a dynaturtle which can have the force 
of its "thruster" changed, and which can simulate an en- 
vironment with friction. 

TI LOGO also has 256 tiles (numbered to 255) that can 
be given arbitrary 8x8 pixel designs. We can assign tiles 
foreground and background colors and position them 
anywhere on the 24 x 32 character screen or on the current 
print line. Console characters are tiles, the number of each 
tile being the ASCII code of the character. (Note: The Tur- 
tle records its trace using tiles, so simultaneous use of the 
Turtle and nonprinting characters is limited.) 

Numbers, Words, and Lists 

A number in TI LOGO is an integer from - 32,768 to 
32,767. Numbers can be added, subtracted, multiplied and 
divided (integer quotient), calculations being modulo 32,768. 
The restriction to integer arithmetic is a definite limitation, 
but the limitation is not serious for most applications. 

A word is a character string without a space. A feature 
of LOGO distinguishing it from other programming 



languages such as BASIC or Pascal is the capability of us- 
ing a word simultaneously as (1) the name of a command 
or procedure, (2) a variable, and (3) data. For example, if 
the word X is to be used as the name of an action, X itself 
is used. When an object has been assigned to X, the object 
is denoted :X. The word X as data is denoted "X. Suppose 
that X has not been defined as an action and has not been 
assigned a value. LOGO will respond to X with TELL ME 
HOW TO X, to :X with :X HAS NO VALUE, and to "X 
with TELL ME WHAT TO DO WITH X. 

A word can be assigned any kind of data — i.e., a number, 
word, or list as a value. This also distinguishes LOGO from 
BASIC or Pascal where the data type of a variable must 
be specified in advance. As a bizarre example, note that 
MAKE "MAKE "MAKE and MAKE "MAKE [MAKE] 
assign to MAKE first the word MAKE and then the list 
whose single member is the word MAKE. 

A list is the most powerful data object in TI LOGO and 
is denoted by a left bracket followed by its members, then 
a right bracket. Examples of lists are [ ], the null list; [HOW 
NOW BROWN COW], a list of words; and [REPEAT 4 
[FORWARD 20 RIGHT 90]], a list whose members are a 
word, a number, and another list. 

Data Manipulation in LOGO 

Commands which are powerful in manipulating data in- 
clude the following: FIRST(F), LAST, BUTFIRST(BF), 
BUTLAST(BL), SENTENCE(SE), FPUT, LPUT, 
NUMBER?, WORD?, THING?, THING, WORD, 
MAKE, RUN, TEXT, DEFINE. The last three are used 
to execute a list of commands, to access the list which defines 
a procedure and to define a procedure represented by a given 
list. These are powerful commands, but to be able to make 
use of them it is necessary to be able to construct lists whose 
members themselves are lists. The following key (un- 
documented) commands, FPUT and LPUT, are helpful 
here: 

FPUT object list — outputs a list whose first member is ob- 
ject, and whose following members are the members of list. 

LPUT object list — outputs a list whose last member is ob- 
ject and whose members all but the last are the members 
of list. 

If object is a word or a number, the results of these com- 
mands are the same as SENTENCE object list and 
SENTENCE list object, respectively. But if object is a list, 
FPUT object list adds object to the beginning of list while 
SENTENCE object list adds the members of object to the 
beginning of list. This is a crucial difference, making possi- 
ble the construction of arbitrarily complicated lists. The 
other commands in the above list which are undocumented 
are as follows: 

NUMBER? ofyecf— returns TRUE if object is a number, 
and FALSE otherwise. 

WORD? ofcyecf— returns TRUE if object is a word, and 
FALSE otherwise. 

THING? "/lame— returns TRUE if name has been assigned 
a value, and FALSE otherwise. 
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THING "naine— returns the object which has been assigned 
to name, if name has a value. 

WORD wordl word2 — returns the word formed by con- 
catenating wordl and word2. (Compare with SENTENCE, 
below.) 

SENTENCE wordorlistl wordorlist2—(a documented com- 
mand), returns a list determined by the inputs. If an input 
is a word, that word is put in the list. If an input is a list, 
its members are included in the list. 

Some of the undocumented commands were found by ac- 
cident; others by studying the documentation for MIT 
LOGO. Still others were known to Jim MuUer, president 
of the Young Peoples' LOGO Association (YPLA). We en- 
courage readers to share other discoveries with us. 

A Calculating Example 

As a simple example, consider the problem of teaching 
LOGO to act like a calculator. If one enters 2 + 3, the 
response is TELL ME WHAT TO DO WITH 2 + 3. Here, 
desired output is 5, which is the result of executing PRINT 
2+3. The problem is solved by using SENTENCE to form 
the list [PRINT 2 + 3] and then using RUN to execute the 
list. A solution is the following: 



AD 



L 1|N 
1 

ElNiC 



After you enter CALCULATE, the computer accepts 
arithmetic expressions and prints out the resulting value until 
just ENTER is pressed. The recursion then "unwinds," and 



The power of a list processing language such as TI LOGO 
becomes apparent the more you use it. Yet for learning, all 
of these advanced capabilities don't have to be utilized. This 
is what makes the language so versatile— its built-in power 
that is accessible on demand. And it is this versatility that 
allows teachers to tailor LOGO for special applications, and 
reassures all students that with LOGO there is always more 
to learn. 



PART 2: Constructing a DYNATURTLE 

The instructions for using the dynaturtle are obtained by 
typing HELP. The dynaturtle itself is activated by typing 
DYNATURTLE. The procedure starts out drawing a cir- 
cle and displaying a white dynaturtle. Touching the E key 
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causes a "thruster" to impart motion to the dynaturtle with 
speed 3. Each touch of the E key adds a velocity with 
magnitude 3 to the dynaturtle. Touching S or D makes the 
dynaturtle face 30 degrees left or 30 degrees right from its 
former heading. Velocities add like vectors. If the dynatur- 
tle is not facing in the direction of its motion, the force of 
the thruster will cause it to head in a direction intermediate 
between its heading and direction, exactly as if it were a 
rocket in space obeying Newton's laws. 

Touching F will turn friction on. In this state, the dynatur- 
tle will be sluggish and come quickly to a stop after each 
kick. It will therefore be necessary to increase the force of 
the thruster. To do this, touch K. You can then enter a 
number, say 10 or 20, and touch ENTER. The dynaturtle 
will now be given an increase in velocity with magnitude 
10 or 20 with each touch of E. Touching F again will turn 
friction off. You will find the dynaturtle now very difficult 
to control. Touch K again and readjust the thrust. 

When friction is off, the dynaturtle is seen to act just like 
the ship in the Asteroids arcade game. When friction is on, 
it behaves as if it were riding on a rough surface — appearing 
to skid as you direct it around the circle. 

Description of Procedures 

DYNATURTLE activates the procedures INITIALIZE, 
SETDYNATURTLE and CONTROL. 

INITIALIZE draws a circle and initializes the thruster 
(sprite 0). 

SETDYNATURTLE positions the dynaturtle and gives 
it its initial shape (shape 10). The secret of the dynaturtle's 
turning capability is that the twelve shapes (shape 10 through 



21) contain designs for the dynaturtle, each rotated 30 
degrees from the preceding. 

CONTROL is the main loop. Friction is always checked 
to see if it is on. If it is on, CHECKFRICTION decreases 
the dynaturtle's speed. If one of the control keys is pressed, 
the action is taken and control branches to label A. This 
procedure keeps running until Q is touched. 

KICK reads the velocity of sprite 0, which is always kept 
heading in the direction the dynaturtle is facing. This velocity 
is then added to the velocity of sprite 1, which carries the 
shape of the dynaturtle. 

ROTRIGHT adds 30 degrees to H, which maintains the 
heading of the dynaturtle and causes sprite 1 to carry the 
shape with next highest number, unless that number is larger 
than 21. If sprite 1 is carrying shape 21, it assumes shape 
10. In this way, the dynaturtle appears to be rotating to the 
right by 30 degrees. 

ROTLEFT is similar to ROTRIGHT but gives the effect 
of rotating the dynaturtle to the left. 

SETFRICTION simply makes the value of the word 
FRICTION? true if it is false, and false if it is true. 

SETKICK gets a number from the console and assigns 
it as the speed for sprite 0. The velocity for sprite (x- and 
y- coordinates) is used to impart an acceleration to sprite 
1 . Note the command SS FIRST READLINE. The primitive 
READLINE outputs a list, and SS requires a number for 
input. The desired number is the first (only) member of the 
list entered. 
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Seymour Papert designed LOGO to have a low 
threshold so that even young children could benefit 
from it. Unfortunately, the present technical require- 
ment that LOGO input and output be text-bound limits 
LOGO to children who can read and type. 

It is apparent that learning in a LOGO environment of- 
fers greater potential for pre-verbal children than for verb- 
al humans. This is simply because there is so much more 
for them to learn. But it is equally apparent that the 
reading/typing prerequisite is an artificial barrier to that 
same environment. The ultimate solution— a computer 
which can comprehend and generate speech — is not yet 
available. (Programs such as TI text-to-speech, however, can 
do a reasonable job of talking.) Still, there are ways LOGO 
can be adapted to children who are only able to recognize 
alphabetic characters or typewriter keyboard symbols. 

Even before LOGO was implemented on the DEC LSI/1 1 
or the TI-99/4, people in the MIT LOGO lab worked on 
simplified LOGO systems. One approach yielded a special 
LOGO input device which translated symbol cards ^ inserted 
into slots through a light scanner into ASCII code. Although 
prototypes of the "slot machine" card reader worked well 
enough, the idea was never developed commercially. A se- 
cond approach was followed by Bob Lawler, a graduate stu- 
dent at the time, who wanted his two children to be able 
to use LOGO. He wrote a number of excellent LOGO pro- 
grams which allowed very young children to draw with the 
turtle, to play shoot-out games with the turtle, or to design 
elaborate turtle pictures. Lawler's programs were written 
for a large, mainframe computer version of LOGO, but his 
ideas are compatible with TI LOGO. In fact because of the 
excellent color graphics of TI LOGO, his ideas may involve 
children more effectively when set up on the TI-99/4A. The 
essence of his programs was to simplify access to turtle 
geometry by simplifying and combining commands. One 
simplification allows pupils to move the turtle forward or 
backward a fixed amount, or to turn the turtle left or right 
a fixed amount by pressing any of the four "arrow" keys: 



I MP 



AW 



UR 



' The cards carry labels likerfor RIGHT 90, ♦ for FORWARD 10, as 
well as symbols for recursion and sub-procedure calls. 
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With slightly more sophisticated children, or as children 
work with DRAW, we can add other commands by merely 
inserting them into SIMPLIFY. For example: 

IF :ANSWER = X CLEARSCREEN 

IF :ANSWER = "Q STOP 

IF :ANSWER = D PENERASE 

IF :ANSWER = "1 PENDOWN SETCOLOR 1 

IF rANSWEH = "4 PENDOWN SETCLOR 4 

IF :ANSWER = "U PENUP 

Then, as students master the fuller set of DRAW conmiands 
and learn the idiosyncracies of QWERTY typewriter code, 
they can be introduced to TELL TURTLE without using 
DRAW any further. 

Coleta Lewis, a teacher at the Lampligher school in 
Dallas, adapted sprites for use by nursery school children. 
(The Lamplighter school pioneered the use of TI LOGO 
with children; see "The Lamplighter LOGO Project.") Two 
"games" her children played allowed them either to move 
a garage around the screen, move a car around the screen, 
and vary the colors of each separately, or to construct a face 
and then color in the parts of the face. Programming sprites 
for very young children is not much more difficult than 
DRAW. As one example of a sprite game for youngsters, 
consider a game of blocks. It is fairly easy to create a 
universe of blocks with simplified sprite commands. First, 
it is necessary to make up some "blocks" using 
MAKESHAPE. A circle (shape 4) and a square (shape 5) 
already exist. A good set of blocks ought to have a triangle. 
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It would, however, be better to build triangles with four dif- 
ferent orientations' because the shapes of sprites cannot be 
rotated. 

These could be assigned shape numbers 6, 7, 8, and 9. A 
good block set should also have a rectangle. To show the 
two orientations, shape numbers 10 and 11 could be 
designed as shown. 



Other shapes could be easily added. Children should be 
able to color the blocks, move the blocks around, change 
the shape of any of the blocks, and bring more blocks onto 
the screen. In addition, when a child begins working with 
one of the blocks, he or she should be able to identify which 
one it is. (One way this identification can be aided is to have 
them briefly flash colors.) The following programs imple- 
ment these ideas: 
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The LOGO Poet: 

USING RECURSION 
FOR LIST HANDLING 



Since TI LOGO'S graphics capabilities are so vast and 
so easy to use, there is a tendency to overlook its other 
features. List handling is a case in point: By combin- 
ing some of LOGO'S list primitives — such operations as 
FIRST, BUTFIRST, (or the converse LAST, 
BUTLAST) — with recursive [see adjoining A Primer on 
Recursion and List Primitives] OUTPUT lines, we can easily 
write programs to reverse a list, alphabetize a list, or even 
compose poetry. The several examples that follow will, I 
hope, demonstrate to you the powerful simplicity and list- 
manipulation potential of the language. 

Verifying the presence or absence of a word in a list is 
a problem commonly encountered in list processing. The 
MIT LOGO group refers to this as the "MEMBER?" pro- 
blem because the program is to answer the question, "Is 
a specified word in a specified list?" Some aspects of the 
program are obvious. For example, once the answer is ob- 
tained (whether TRUE or FALSE), it should OUTPUT to 
the user or program which called for the answer. It is also 
obvious that if the list is empty, the word is not in the list. 
Given just this much information, it is possible to frame 
a MEMBER? program: 



TO KEMB 
IF : L I S 



END 



1 



FA 



Papert, following Polya, notes that one way of solving a 
complex problem is to ignore the complex whole and focus 
on those parts which can easily be solved. [See Mindstorms: 
Children, Computers, and Powerful Ideas by Seymour 
Papert— available from the 99'er Bookstore.] In the 
"MEMBER?" problem, if the first word in the list were 
the target word, then it would be easy to detect it and solve 
the problem using the LOGO primitive FIRST*, which 
returns the first word in a list: 



T|o| MeMb 
s 



rwoR 
1 

T 



OU 



WOR 



OU 



Now all that remains is solving for those cases in which the 
word is in an interior position or is absent from the list. 



Were the word second in the list, the problem would be 
solved by adding a line using the LOGO primitive BUT- 
FIRST, which returns all but the first word in a list of words: 



IF FIRST BUTFIRST :LIST 
"TRUE 



:WORD OUTPUT 



since the second word in the list is the first word in a list 
which excludes the first word. Similarly, the third word 
becomes the FIRST of the BUTFIRST* of the BUTFIRST 
of the list, the fourth word is the FIRST of the BUTFIRST 
of the BUTFIRST of the BUTFIRST of the list. It would 
be possible to write a separate line for each of those posi- 
tions as well as the fifth, sixth, seventh or any other poten- 
tial word position. However, a program that did this would 
quickly grow ponderous. Fortunately, in LOGO this is un- 
necessary. Notice that for each position an additonal BUT 
FIRST is all that is needed. The problem therefore requires 
only a single recursion line to complete the program: 



TO 



WO 



EM 



MEKB 



T 

:|WjO 



OU 



Now when we run the program by typing MEMBER? 
[A QUICK BROWN FOX] "FOX, the first stack checks 
to see if the list is empty or if the first word in the list matches 
the target word, FOX. Then it awaits the results of a se- 
cond stack which runs MEMBER? with the tnmcated list 
and the target word. The second stack then awaits the results 
of a third stack which runs MEMBER? on BROWN FOX 
and "FOX. That stack then awaits the results of MEMBER? 
FOX "FOX which returns "TRUE (from the match in the 
second line). "TRUE is returned to the second stack which 
outputs "TRUE to the first stack which outputs "TRUE 
to the program which first called it (or to top level). In the 
event that there were no matches, one of the stacks would 
eventually run MEMBER? on an empty list and would out- 
put "FALSE. 

Another common problem is to count the number of 
words in a list of words. As before, this problem is solved 
by outlining the obvious elements of the solution and the 
simplest case. 

TO COUNT "LIST 
OUTPUT some number 
END 

The simplest case occurs when the list is empty. 

TO COUNT :LIST 

IF :LIST = [ ] OUTPUT 

OUTPUT some number 

END 

When a list has just one word in it, the program should 
recognize that and OUTPUT 1. Since a list with just one 
word is one word away from an empty list. The LOGO 



* FIRST returns the first word in a iist of words, or tlie first letter in a list 
of words, or the first letter in a word. LAST returns the last letter in a list 
of words, or the last letter in a word. BUTFIRST returns all but the first word 
in a iist of words, or ad but the first letter in a word. BUTLAST returns all 
but the last word in a list of words, or all but the last letter in a word. 
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operation BUTFIRST applied to that list would yield the 
empty list. If there were two words in a list, then obviously 
the list is just two words away from an empty list. If a recur- 
sive line were put into the program which (a) applied BUT- 
FIRST and (b) added 1 to the count for every application 
of BUTFIRST, the program would count the words in the 
list. 



lou 
) 

E 



COUN 



COU 



For another example, consider a program which will reverse 
a list. The simplest case would be a list with no words. 



The next simplest case would be a list with just one word. 
For such a list we could have the program OUTPUT the 
SENTENCE or the word and an empty list. 



This solution can be applied to longer lists as well! 

For a final example, let's use LOGO to "write" random 
poetry. As a first effort at LOGO poetry, we'll attempt some 
"free verse" by instructing a poet to string words together 
randomly from a list we select. First, we will need a pro- 
gram like SELECT to output a selected item from a list. 



Then we need a program to generate random numbers for 
SELECT. Because LOGO'S RANDOM primitive provides 
the integers through nine, if our list is less than ten, we can 
get a COUNT of it and use that COUNT. 



UKB 
RA 

BIO 
) 

T 



OU 
OUT 



DO|M] 
H 



ENG 



By first typing 

CALL COUNT :LIST "LENGTH 

we can then use NUMB for the value of LENGTH. If we 
then type: 

TYPE SELECT (NUMB :LENGTH) [a list of words] 

the computer types one of the words in the list. We can write 
that as a program: 



A PRIMER ON RECURSION 
AND LIST PRIMITIVES 

It Is easier to understand recursion In LOGO If one Imagines 
that each LOGO program Is a job for a contractor to perform. Each 
contractor Is a specialist and can do only one job. Every contrac- 
tor follows strict working rules; these rules say that when the con- 
tractor sees STOP, he must stop, when he sees OUTPUT, he must 
pass back some Information and then stop. Of course, when a 
contractor reaches an END, he also stops. When a contractor 
sees the name of any LOGO program Inside of the program he 
is completing, he subcontracts that Job out to another contrac- 
tor. Thus, In COUNT [A, B, C], the first contractor reads the first 
line of the program, but the condition isn't met, so he moves to 
line two. There he Is told to OUTPUT 1 -f the COUNT of (B, C]. 
Since he can't do another program, he subcontracts the jot). The 
subcontractor reads line 1 of COUNT and since It doesn't apply, 
he reads line 2. He is told to OUTPUT 1 -f the COUNT of [Cj. He 
can't do that, so he also subcontracts that Job. The third contrac- 
tor notes that line 1 doesn't apply and line 2 tells him to OUTPUT 
1 + the COUNT of [ ]. He also must subcontract the job out, 
and so the fourth contractor reads line 1 of COUNT. Since the 
list is empty, he OUTPUTs and passes the Job back to the third 
contractor; he in turn adds 1 and then OUTPUTS 2. The first con- 
tractor adds 1 to that and then OUTPUTS 3, which is the correct 
answer. With this explanation, you should now be able to analyze 
a program which gives you the answer to a number X raised to 
N power. 

TO EXPONENT :X :N 



END 

TO EXPONENT :X :N 
IF :N = OUTPUT 1 



END 

TO EXPONENT :X :N 

IF :N = OUTPUT 1 

IF :N = 1 OUTPUT :X 

OUTPUT (EXPONENT :X :N - 1) * :X 

END 



To turn this into a line of poetry, we should have a random 
number of such randomly picked words with a random 
number of spaces between words (E. E. Cummings's style) 
and then a carriage return: 



DOM 



DOM 



UM 



NO 



Note: PRINTCHAR 32 puts the character with ASCII code 
32, a space, on the screen. 

If we want continuing lines of poetry, we can write a recur- 
sive program: 



TO 



Now, putting this all together we get: 



lUMI 



TO 



POi 
L 
E! 



CO 



;ngi 
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Now we can try converting POET into a program which 
produces either rhyming verse, blank verse, or a finite 
number of lines of verse. One way to modify POET to pro- 
duce rhymed verse is to give it two different lists — one of 
words for the interior words of each line of verse, and 
another of rhyming words for the last word in each line. 
Then the program can be changed so that only rhyming 
words are placed in end positions. 



TO 



TO 
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POE 
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BHYME 



OU 
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YME 



YME 
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YH 



WOR 



ME 



YME 

MU 
AM 



YME 



PAC 
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UM 



YME 



TH 



NOT 



TH 



NOW 



ON 
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TWO 



ENG 



You probably recognize that the problem of generating 
rhyming verse is one form of the problem of teaching the 
computer to write text which follows a specified rule (in this 
case each line must rhyme). The more general application 
of rules to text is nothing less than grammar. One of the 
grade school pupils in the Brookline project wrote a text- 
book rule program like POET which generated random 
sentences. After she saw the effects of changing parts of 
speech she exclaimed enthusiastically that she now 
understood what a noun was. 

POET can also be quickly adapted to a sentence generator 
which young people can play with to make grammar 
meaningful. 



AMMA 



AMMA 



AKMA 



EN 



AD 



NOU 



N 

I 
B 

( 
( 

NOIUlN 



NO 



U 
UIM 
UM 
UMB 
UMB 



NOUN 



S 

Clou 



COO 



AD 



COON 



COON 
COON 



ER 



SENTENCES can be made a better grammarian by adding 
distinctions of number and gender where appropriate; it can 
be made a more sophisticated language generator if GRAM- 
MAR is altered to allow for conjunctions and subordinate 
clauses. All of these changes and more can be programmed 
by students as they learn both the specifics of grammar^ 
and the mathematics of LOGO. 



' Papert would probably argue that most students know the grammar which 
schools attempt to teach, but that the students do not have verbal labels 
for syntactical rules and parts of speech, and do not see the relevance of 
the labels once they are told them. A sentence generator program can make 
grammar "speech syntonic." 
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Avoiding 
Turtle Traps 




Seymour Papert and his coUeagues purposefully decid- 
ed to structure LOGO to facilitate the writing of good 
computer programs. The concept of good program- 
ming is not superficially apparent. Of course, a program 
should accomplish its intended goal, but all programmers 
recognize that any goal can be achieved by many different 
types of programs. Beyond simply "working," there are a 
number of criteria by which programs can be judged. Pro- 
grams which have multiple applications are generally bet- 
ter than single-purpose programs. Programs which are easier 
to debug and which can be understood by people other than 
the authors (or which can be understood by the authors at 
a future time) are more desirable. Pragmatically, programs 
which run faster or with fewer bits of memory are better 
than slower or more memory-intensive programs. Finally, 
some programs are aesthetically more appealing than others. 

It is possible to find examples of program applications 
in which two or more of the criteria are in conflict. However, 
it is more often the case that the criteria are in accord. All 
of the criteria except for aesthetics are straightforward and 
relatively objective. Still, writing aesthetic programs is so 
satisfying that aesthetics will be considered first here. 

For instance, you can write GO in LOGO, but programs 
with many different branches from GO commands are par- 
ticularly inelegant: Why write poor programs when good 
ones are easier to write? Also inelegant are programs with 
hundreds of lines of code, especially when the code con- 
tains several repetitions of a series of commands. And pro- 
grams with many inputs are generally less aesthetic than 
those with fewer inputs. Compare the aesthetics of two pro- 
grams which count the number of words in a list: 



TO 



COUN 



: N 
CiOD 



on 



This program requires typing as input along with COUNT 
and the list in question requires a starting value of :N-0. 



CO 



ou 



This program requires no superfluous input. 

Elsewhere in this chapter, there is a fairly complex pro- 
gram, DYNATURTLE, which creates a turtle that obeys 
Newtonian laws of motion. Despite the complexity of the 
program, DYNATURTLE is relatively elegant: 
DYNATURTLE has only three lines, which are IN- 
ITIALIZE, SETDYNATURTLE, and CONTROL. Each 
of those lines is, in turn, a brief program which serves a 
unique function. Contrast DYNATURTLE's elegance with 
a spaghetti-pole BASIC program which would achieve the 
same effects. Such a program would be long and littered 
with extensive GO-TO's. 

A subtler example of elegant and inelegant programs can 
be made from the GRAMMAR program. The program was 
modified from a earlier POET program and was written: 



AHKA 



AMMA 



NOU 



Ut4B 



UMB 



UKB 



UMB 



UM 



OU 



NO 



COU 
COU 



COU 



COU 
COUN 



NO 
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Notice how much of each line is repetitive. A better 
LOGO program would have taken advantage of that redun- 
dancy and used a broader application program: 



mm 
s 

X 



UMB 



CO 



Then GRAMMAR could be written: 



wo 



TO 



WOR 



PAG 



W|OR 
PA 
WIOR 
SPA 
WOR 



AMHA 



AMMAR 



NOUN 



NO 



NOnN 



AD 



The second GRAMMAR program is more elegant and 
is shorter. It achieved greater simplicity by taking out of 
GRAMMAR all of the repeated functions and placing them 
in WORDS. All of the functions carrying out the program 
WORDS are directed at placing a single word from a 
designated set of words. The specification of the set and 
type of words is left for GRAMMAR, the program sur- 
rounding WORD. A common format for many well-written 
LOGO programs is: 

TO DOSOMETHINGSPECIFICALLY :SPECIALINPUT 
GENERALPURPOSEPROGRAM :GENERALINPUT 
END 

TO GENERALPURPOSEPROGRAM 

:GENERALINPUT 
LOGO commands rGENERALINPUT 
END 

On occasion it is necessary to string together several 
general-purpose programs inside a specific-purpose pro- 
gram. In that case, the general program often requires that 
there be some set-up steps and some *' fix-up" steps before 
and after the general program. Such programs have the 
form: 

TO GENERALPURPOSE 
SETUP 

GENERALFUNCTIONS 

FIXUP 

END 

Mathematicians may indeed recognize a similarity be- 
tween the concept of elegance and aesthetics in program- 
ming and the expression of algebraic functions. There are 
many ways to express algebraic functions, but it is often 
more useful and always more elegant to express such func- 
tions in a form which collects common factors and simplifies 
terms even where such simplification may require a set-up 
or a quick fix-up manipulation along with the factoring. 

There are two other major aspects to consider in order 
to write better LOGO programs. One is writing programs 
which don't run out of memory; the other is writing them 



to run as fast as possible. It is important to understand the 
major feat accomplished by Texas Instruments and by the 
MIT LOGO Lab in putting LOGO on the 99/4. LOGO is 
a very high level computer language which requires large 
amounts of memory. The architecture of microcomputers 
limits the speed with which large amounts of memory can 
be addressed. The TI LOGO which emerged from the joint 
efforts of TI and MIT represents an effort to compress code 
to the minimum memory requirement without compromis- 
ing its applications. There are two tricks which they built 
into TI LOGO to make LOGO feasible on a micro. If you 
use these tricks you can gain even greater satisfaction from 
your computer. The first feature is an automatic garbage- 
collector. A garbage collector is a part of the operating 
system which takes used memory and makes that memory 
available for further uses. Of course, the garbage collector 
should not destroy and overhaul all of memory's work. The 
way that the automatic garbage-collector in LOGO 
recognizes when a unit of memory has served its purpose 
is by checking the instructions written in the memory. Below 
are examples of programs which permit or exclude the 
collector: 



PO 



PO 
RlWA 



YGO 



SON 



N 
S 

Ami 



AN 



In this program, the garbage collector notes that each time 
POLYGON is entered (referred to as the level of 
POLYGON), there are no further commands or instruc- 
tions after the line POLYGON :SIDES :ANGLES (called 
the recursive call line). Thus the piece of memory that was 
used to store POLYGON at that level is collected for reuse. 
If all memory gets used up in TI LOGO, the message "OUT 
OF SPACE" appears, but POLYGON will never generate 
that message because it will never run out of memory. 



FO 



RWA 



This program will never run out of memory in TI LOGO 
because the program terminates. 



FORWA 



PO 



T 

H 

YGION 



YlGlO 
D 
A 



NG 



NG 



This program could use up all available memory before 
it reaches its stop conditions because the garbage collector 
cannot refurbish the memory used to execute this 
POLYGON at any level. The program leaves work to be 
done (namely PENUP) once control is passed back to the 
level of POLYGON. 

Unfortunately, the garbage collector is not empowered 
with the authority to decide if any instructions following 
the recursion call are worth keeping, and so the following 
POLYGON program could run out of memory: 



TO 

FORMA 



PO 



P 
W 
T 

YlGlO 



G|ON 
S 



NG 



NG 



The only difference between the first POLYGON pro- 
gram and the one here is the empty line following the recur- 
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sion call and before END. The garbage collector sees that 
there is a line of commands and cannot tell that the line 
is useless, so it is barred from refurbishing the memory! 
Empty lines use up memory and can block garbage collec- 
tion (depending on their location), so empty lines should 
be eliminated from your programs. 

Finally, the operating system can work faster when fewer 
sprites are being used, i.e., programs which use no sprites 
run faster than programs which use sprites. The more sprites 
in use (generally), the slower the system operates. The reason 
for the slight degradation in response time is obvious — the 
system has to check to see which, if any, sprites must be 
displayed or moved. The system checks on its sprites by 
looking up the highest number of sprite called upon. For 
example, TELL 31 or TELL SPRITE 31 would cause the 
system to check on every sprite from 31 on through to sprite 
0. Such a check is necessary (from the user's perspective) 
only if all 32 sprites are being used. If only one sprite is need- 
ed, then the user should type TELL or TELL SPRITE 
and the system would skip the checkup on sprites 1 to 
31, thus saving a small amount of time. 

Student Reactions to a Four Week LOGO Class 
By Gene Branum 

Students pick up these principles quickly. For instance. 
Gene Branum, a student in a four-week LOGO course, 
reflects on this experience: 

"The expectations of the students varied— we wanted to 
know more about computers, we wanted a different Jan- 
term experience, or maybe just a free Jan-term. Whatever 
the motivation, all came away affected in some way by our 
experience. All experienced both the frustration of failure 
and the flush of triumph as the computer finally 'did what 
it was supposed to.' 

"The format for our experience was a four-week mini- 
term (Jan-term) at Austin College. Our class met; five days 
a week for two hours, and we were required to spend at 
least one hour of work on our own as well. This require- 
ment was easily met; as one student put it, 'It was not 
unusual to spend four hours at a time' on the computer. 
Needless to say, the experience was very intense, and there 
was a great deal of self-teaching. This was felt to be one 
of the greatest strengths of the course. 



"Professor Hank Gorman did a fine job of teaching the 
basics early in the course. As he told us his expectations, 
we scoffed. After two weeks, he told us, we would be draw- 
ing cartoons and making up games. Even though his leader- 
ship was great, the majority were insecure about 'the 
machine.' Our confidence, however, grew with experience 
and familiarization. 

"The two greatest aspects of the course for all of us were 
(1) the team experience and (2) experience in general prob- 
lem solving skills. The true strength of LOGO is that 
students, working together, can teach each other massive 
amounts of material. The realization that everyone had 
problems put us all on the same level. Sharing ideas and 
solutions became important for everyone because no one 
could work totally independently. Many social experiences 
allow students to interact, but LOGO is one of the few that 
forces students to think together. 

"Without exception, all of the students involved in the 
course commented that, after LOGO, they knew better how 
to approach a complex problem. Dr. Gorman spent several 
class periods on problem solving skills: decomposition, 
recursion, naming, multiple descriptions, and the 'little 
men.' These skills not only aided our search for solutions 
to LOGO problems, but also for problems that require a 
thinking solution. The overriding principle of LOGO is that 
the simple builds to the complex, which is its major strength 
as a system for any age-group. 

"While it was widely agreed upon that none of us 
'mastered' LOGO, each of us developed confidence in our 
abilities to control the computer and make it do what we 
requested. The LOGO experience allowed everyone to use 
logical approaches to problem solving and gain valuable 
hands-on experience in a discipline that continues to increase 
in importance." 

The following programs, which students wrote during this 
course, show an emerging appreciation for elegance, speed, 
and simplicity in programming. Except for correction of 
typographical errors, then- work hasn't been edited in an 
attempt to find still more elegent ways of achieving their 
programs' goals. Note, however, that they all grasp the 
essentials of esthetic programming. 



Space Pylon Racer 

Once set up, the player guides his saucer through pylons. 
Two shapes must be made first (check graph paper). The 
keys control the saucer. E moves it upward, X moves it 
downward, D moves it forward, S moves it backward, F 
speeds it up, A slows it down. If the ship hits a pylon, the 
beep sounds. 

Use arrow keys to change direction. 
Use F for fast speed. 
Use A for slow speed. 



IGAME 
L 
L 



TO 



S 
R 
ClOR 



CO 



|G|0 
BO 



BO 



b|o 

1 

79 

SO 
B 

g|o 

B 



GO 



WA 



BO 



BO 



BO 



BO 



BO 



BO 



CO 



CO 



CO 
COR 



NO 



COR 
COR 



COR 



CO 



CO 
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MAKESHAPE 20 
Saucer 



MAKESHAPE 21 
Pylon 



TO 

TELL 



199 

TELL 
CARRY 
TELL 
TELL 
TELL 
TELL 
TELL 
TELL 
END 



TO 



TO 



F 

F 

F 

F 
I F 
I F 
END 



F 

ELSE 
ClALL 
I 



SET 
9 



SPR 



CONTROL 
CHECK 
SPR 
END 



CARRY 



SXY 
SXY 
SXY 
SXY 
SXY 
SXY 



CONTlRPL 
RC? 



STOP 
R|C • Z 
E 



39 
39 
199 
199 



TRUE 



29 



BLIACK 
89 



TELL 
TELL 
TELL 
TELL 
TELL 
TELL 



SC 



69 



THEN 



RED 



TEST 



189 
99 
279 
19 



SXY 



STlOP 
STiOP 



STOP 

STOP 
STOP 
STOP 



Spinout 

This program was designed as a cartoon to depict two 
Indianapolis-style racing cars racing, crashing, burning, and 
being towed away. The central program, SPINOUT, con- 
tains 7 subprograms. These short programs make the cen- 
tral program neat and concise. 




MAKESHAPE 6 MAKESHAPE 7 



TO 

WAVE 
HOVE 
WAI 
SWERVE 



WAI 
SP 



WAI 
BURN 
TOW 
END 



TO 

TELL 



CARRY 
SC 6 
HOKE 
TELL 
SC 4 
SS 9 
HOME 
TELL 
END 



SP llNblUT 



359 



SETUP 
9 



SX 



CARRY 
9 



SH 



15 



TO 
TELL 
SC 
TELL 
SC 
TELL 
TELL 
SY 10 
SETUP 
TELL 
SY 



10 

BEEP 
WAI 



NOBEEP 
END 



TO 
TELL 



SS 
TELL 
TELL 
END 



TO 

TELL 
REPEAT 
WAI T 
T 6 
SX 
END 



CB 
END 



SC 
SX 
SY 
WA 
SH 
SS 
WA 
SS 
CALL 
TELL 



SH 
SS 
WAI 
END 



WAVE 



MOVE 



TO 

TELL 



19 



12 



SWERVE 



15 



T|0 SP 
CALL 
TELL 
REPEAT 



WA 

WAI 

WAI 



8 
7 
8 

END 

TO 
REPEAT 
I 

TELL 
SC 



T|0|W 
5 



9 

199 



T 

279 
19 



WAI 



39 



BURN 



CARRY 
CARRY 



SS 



79 
109 



115 

WAI 

T 



REPEAT 



75 



N 
1 

TEAlMl 



10 

CB 9 
TEAM 



CARRY 



19 



SC 



10 



295 
5 



SC 



SS 



CARRY 
CARRY 
CARRY 



5 

IWlAI 



11 



SY 



TEAlM 
12 



SS 



SY 



W|AI 
5 



WAI 



WAI 



WAI 
WA I 
WAI 



WAI 



SX 
19 



CB 



9 

Mai 



19 

SY 



CARRY 
CARRY 
CARRY 



11 




MAKESHAPE 8 




MAKESHAPE 9 




MAKESHAPE 10 




MAKESHAPE 11 



Munchie 

Munchie illustrates how one can program a sprite to move 
to certain locations where an object may be found. After 
testing coordinates within the procedure, it eats that object 
and continues on until it eats all objects. You move Mun- 
chie by using arrow keys, and set speed by using keys 0, 
5, and 1. You should stop Munchie when passing over the 
object to be eaten. 



TO MUNCHIE 
SETUP 
MOVE 
END 
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TO 



TELL 
SC 
TELL 



SC 
TELL 
SC 
SXY 
END 



SETUP 



BLUE 



3 

RED 



CARRY 



CARRY 



GREEN 



19 



SXY 



CARRY 



SXY 



PLANE 

58 
TRUCK 



79 



59 



ROCK 



39 

ET 



MAKESHAPE 10 MAKESHAPE 1 1 



TO 



TELL 
CARRY 
NOBEEP 



TEST 
FF 
FT 
F 
F 



F 
F 
F 
F 
F 

FF 
EEP 
CHECK 
END 



TO 



REPEAT 



WAI 
TELL 
TELL 
MOVE 
END 

TO ElAT2 
REPEAT 



FT 

< 

FT 
FF 
END 



MOVE 



WAI 

TELL 

TELL 

MOVE 

END 

TO 

TEST 



45 
FT 
5 
FT 
FF 
11 
TEST 



FT 
25 
FT 
FF 
11 
TEST 
29 



RC? 
CALL 
CALL 
M 
M 
M 
M 



M 

CARRY 



EAT3 



WAI 
TELL 
TELL 
MOVE 
END 

TO EAT1 
REPEAT 



SC 
19 



CHECK 
BOTIH 



BOTH 

ES 
70 
TELL 
[MOVE 



TEST 



TEST 

TELL 
CARRY 
NOBEEP 



BOTH 
TEST 

TELL 
CARRY 
NOBEEP 



25 



WHI 
BEEP 



19 



BEEP 



BEEP 



XCOR 
BOTH 



SS 
19 



XCOR 
BOTH 



SS 
19 



XCOR 
B<ITH 
SS 



TE 

IWAI 



279 
9 
39 
189 
9 
5 
IB 
BEEP 



BEEP 



WAI 



WAI 



BEEP 



BEEP 

< 



> 

YCOR 



YCOR 



YCOR 



WAI 



CARRY 



EAT1 



45 



EAT2 



EATS 



WAI 



WAI 
19 



CARRY 



XCOR 
35 



NOBEEP 



NOBEEP 



11 



XCOR 



XCOR 
89 



NOBEEP 



11 



NOB 



YCOR 



CARRY 



55 

YClOR 



CARRYll 

> 



YCOR 



Fieldgoal Movie 



TELL 
SC 
HO 
TE 
SC 



HOME 
TELL 



SXY 
TELL 



SC 
SXY 
TELL 
SC 
SXY 
TELL 
SC 
SXY 
END 



SH 

SS 

SH 

WAI 

SH 

WAI 

SH 

WAI 

SC 

SS 

END 



SY 

WAI 

SY 

WAI 

END 



TO 
CS 
TELL 
SC 
SS 
SXY 
END 



PE 



TO 
SETUP 
WAI 
TELL 
CARRY 
TELL 



TO 
TELL 
CARRY 



TO 
TELL 
CARRY 



SETUP 



SE 
TELL 
CARRY 
REPEAT 
END 



119 



YELLOW 



RED 



BLUE 



79 
4 

BLUE 



BLACK 



ICK 



135 



14 



PE 
ALL 



129 
2 



49 



I UMP 



8 

ClARRY 
E 
23 

CARRY 



SE 



69 



199 



CARRY 



CARRY 



8 

CARRY 



11 



95 



19 



UMP 




MAKESHAPE 6 



MAKESHAPE 7 




MAKESHAPE 8 



MAKESHAPE 9 





MAKESHAPE 11 



MAKESHAPE 12 
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FLY AWAY 



with the 

JOY 



Commands 
of TI LOGO 



You push the stick forward, and the aircraft begins to 
roll. You then gradually pick up speed and start mov- 
ing down the runway. After reaching takeoff speed, 
you move the stick again, and suddenly you're airborne. 
Now you have control of the skies — to fly high or low, do 
loops and other maneuvers, and then land. But be careful 
with your speed! You don't want to stall and crash. 

This isn't flight training or a simulator. It is a TI LOGO 
procedure that gives you the opportunity to fly by keyboard 
or joystick. It uses either the arrow keys or the JOY 1 and 
JOY 2 commands. The JOY commands return one of nine 
values depending on the position of the joystick, thus open- 
ing a wide range of possibilities for interactive games and 
other activities. 

At first, it might appear that the nine values have little 
relationship to each other. You'll note that the three and 
the seven were omitted. However, the pattern of the values 
is quite interesting. 




Moving from left to right in each row, you'll note that 
each digit is four more than the previous digit, i.e., 2 + 
4 = 6, 6 + 4 = 10, etc. Moving from bottom to top in 
each column, observe that each digit is one more than the 
previous one. 

These patterns begin to suggest why three and seven were 
omitted from the values assigned. However, to make the 
logic behind these patterns even more graphic, let's convert 
them to binary numbers. 



0010 
0001 
0000 



0110 

t 

0101 

' i 

0100 



1010 
1001 
1000 



Now look at the first two digits in each column. You'll 
note that they are the same, representing from left to right, 
0, 1, and 2. Also, if you look at the last two digits in each 
row, you'll note that they are also the the same. Moving 
from bottom to top, they also represent 0, 1 , and 2. So what 
we really have here is a distinctive coordinate system with 
real meaning, rather than what might first be perceived as 
a random placement of values. 



(0,2) 



(2,2) 



(1,2) 

(0,1)I^(1J) — (2,1) 
(0,0)^ (1,0) ^(2,0) 

Let X and Y be used to name these coordinates. The coor- 
dinates for the joysticks can be assigned with the command. 

MAKE "Y (JOYl) / 4 
MAKE "X (JOYl) - 4 * :Y 

Now let's put these JOY commands to work in 
FLYAWAY, a procedure developed by Roger Kirchner, a 
fellow YPLA member. This is a procedure for one or two 
players that tests each player's ability to take off and safely 
land an airplane on the runway shown on the screen. Either 
the direction keys on the keyboard or the joysticks can con- 
trol the plane. 

The joystick commands are incorporated in the pro- 
cedure, STICK S. Push the stick forward, and the aircraft 
increases its speed. 

IF :X = 6 THEN FASTER 

Pull the stick back and the aircraft slows down: 

IF :X = 4 THEN SLOWER 

To minimize the chance for error, direction commands 
are accessed by merely moving the joystick to the left or 
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right. It does not matter whether you hit position 0, 1,2; 
the aircraft will turn left. 

IF :X > 4 THEN TURNLEFT 
IF :X < 6 THEN TURNRIGHT 

Of course, it would be possible to add additional maneuvers 
using each of the nine joystick positions. This would require 
a much more sensitive touch to the joystick, but that could 
also add to the challenge of the flight. 

With each turn of the aircraft, a new shape is called to 
show that new position. These range from #10 through #18. 
The first shape, #10, is similiar to the Plane shape in TI 
LOGO. The next shape shows the aircraft at a 45° angle. 
The other shapes depict the plane in a 90° angle, 135" angle, 
at 180°, 225°, 270° and 315°. Shape #18 depicts the crash. 

The CONTROLJOY and the CHECK P procedures con- 
trol the aircraft in the air. CHECK P monitors the speed 
and "altitude" of the aircraft to test for the CRASH 
parameters. 

FLYAWAY is an excellent graphics program that begins 
to tap the power of the LOGO language. It goes quite a 
bit further than merely drawing pictures with the computer. 
This is an important point to realize. But unfortunately, not 
all educators do: In a November issue of Infoworld, one 
educator stated that although he can understand young peo- 



ple enjoying maybe 50 to 100 hours of drawing pictures with 
LOGO, he would imagine they would then tire of the 
language and move on to the other things. 

Do chess players ever tire of chess? Do chess masters ever 
really feel that they have mastered the game? Probably not. 
The moves of chess can be easily learned by primary grade 
youngsters, but entire lifetimes are spent learning the game. 
Certainly the graphics capabilities and the speed of TI 
LOGO are spectacular. Indeed, they tend to overshadow 
the other attributes of the language. Where that happens, 
it is most unfortunate because LOGO offers a young per- 
son so much more than just graphics — much more than 
BASIC and some other high level languages. 

For example, look closely at BASIC: It uses a finite 
number of commands that must be strung together in 
statements that tend to hide the operation of the program. 
Were the operation of BASIC programs easily discerned, 
TRACE would be unnecessary. LOGO, on the other hand, 
is a virtually unlimited language. If the command doesn't 
exist, use your imagination and create it! This is the 
marvellous challenge of TI LOGO— using your imagina- 
tion and creativity to discover the real potential of the com- 
puter. Way back in the dark ages before microcomputers, 
Albert Einstein expressed a truth that is especially relevant 
to today's computer learning environments: "Imagination 
is more powerful than knowledge." Undoubtedly, Einstein 
would have approved of TI LOGO. 
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SHAPE 12 



SHAPE 11 




SHAPE 14 



SHAPE 18 



SHAPE 10 
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SHAPE 15 



SHAPE 16 



SHAPE 17 
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I 
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OS 

PRI 

HAK 



CON 



L 

TUP 
NWA 



CON 
E 
X 

X 

X 

X 

X 

X 

X 

X 

X 

K 



DOWNO 



AWAY 



CON 
CON 



RO 



NAME 



LO 
NlAHE 



E 

MOD 



LOT 



TH 



DC 



10 



EIAD 



ON 



ED 



AN 



TO 



LOT 



LOT 



ClOiN 
? 



URN 
URN 



TR 



LOWE 
LONE 



RN 
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I NT 
PR I NT 
S , D 
PRINT 
PRINT 
K 

PRINT 
PRINT 
PR 
PR 

RWlARlD 



PR IjNT 
C K 
PRINT 
LEFT 
PRINT 



END 



IF 



HELP 



INT 



I 

IjNiT 



STICK 



TjO 
I 

LSE 
TELL 

XS 
END 



I SHT 



PRINT 
PRINT 

LAND 
PRINT 
PRINT 
END 

TO 

TELL 



ICK 



RC 



VANI 



C0NT|R|OLI|O|Y 
END 



^AKE 

: P 
YS 



[RED 



(|C|0|NT|R|0|LS 
1 

PIASTER 



TORN 



TURN 



flyIaMay 

] 

BLUE 



SLONER 



SH 
lALL 



SETPLANE 



OR 



C|0|NTROL I OY 
CHECK 



PRINT 
WHO 



LOT 
IIOlYST 
PIRINT 



1 
) 

SEE 

SIAFELlY 
] 

BlOlN 



CHECK 
THEN 



LEFT 
RIGHT 



JOYSTICK 



HOKE 



THEN 
YS 



LOT 



VOYASE 



STOP 



Fl 



USES 
CK 



SH 



HAKE 
Y2S 



CAN 
RST 



9a 



USES 
1 



OR 
OR 



TAKE 



SS 



YS 
2 

CARRY 



KEYS 



KEYS 



OFF 



I CK 
I CK 



STI 



STIC 



AN 



CARRY 



SXY 



TO 



MAKE 
TELL 



F 
F 

EtND 
TO 

TELL 



F 
IF 
TEST 

< 

FT 
FF 



STOP 



I 

ELSE 
WAI 
SETPLANE 
END 



TO 
HT 
I F 
SE 
END 

TO 
LT 
I 

SE 
END 

TP 
I 

ElNlD 

TP 

I 



QHElCK 
P 

SPEED 
XCOR 



STI CK 
X 



DOWNOFF 
CRASH 



EI 



F 
S 

128 



TURlNR 
45 
SHlAPE 
CARRY 



SHAPE 
CARRY 



SLOWER 
SPEED 



FASTER 
SPEED 



THER 



SPEED 



TURlNlEFT 
45 



lOY 



THEN 
THEN 
THEN 
THEN 



WHO 



ISHT 



18 

SIHAPE 



17 

SHAPE 



YCOH 



188 



THEN 
THEiN 

> 



TURNLEFT 
TURNRIpHT 
FASTER 
SLOWER 



THEN 



THEN 



THEN 
f 



THEN 



THEN 



STOP 
STOP 



SS 



UPOFF 



YCO|R 
MIELCPME 



CARRY 



CARRY 



SS 



SPEED 



SPEED 



17 



18 



EL 



EL 



TO 
I F 
ELSE 
END 



TP 
F 

LSE 
END 

TO 
PR 



END 



NT 

mo 



TO 



E 
H 
H 

GlO 
END 



MI 



WlELCOME 
SE 



CRASH 
INT SE 



WHO 
MAKE 
HAKE 
A 

SY 

18 

F 
GO 
CARRY 
SS 
END 

TP 
I 

ELSE 
END 



HAKE 
HAKE 



PLUS 
N 



OUTPUT 



TELL 
TELL 
HjAKE 

188 
HlAKE 
A 
I 

MIAKE 
MAKE 
REPEAT 
COL 



N 
17 

PUTPUT 



NUS 



LOT 



RlUN^Y 
LE 



TI 
188 

ROW 

LES 
F 
L 
32 



COL 



ROW 



18 

DRPP 

58 



18 



OUTPUT 



[NICE 



[ NOT 



LE 
LES 



COL 
LES 



N 

THE|N 
17 



TlHEN 
18 



sol 

YCpR 



96 
184 



184 

15 



THEN 



THEN 



H- 
BF 
RpW 



OUTPUT 



LANDING 



1 

LES 
T 



OUTPUT 



SC 

SC 
1W4 

184 



GOOD 



DROP 



MAKE 



PUTPUT 
L0T2 



184 



THEN 



COL 



LES 



15 

PtREElN 



58 



188 



STOP 



ROW 



PI 



L0T1 



188 



HA 
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Problem Solving 

WITH LOCO 



It is pleasureable to work with a language like LOGO 
because it gives us something to "think with," and it 
encourages us to think in what Papert has called "mind- 
sized bites." The solution of a problem can be identified 
with the definition of a procedure. If the problem is sim- 
ple, we can specify the procedure directly. Otherwise, we 
try to specify it in terms of a small number of simpler 
procedures. 

Often, this method leads to a complete solution of a pro- 
blem. But sometimes, a problem is so complex that the 
method leads to an indefinite number of problems. A solu- 
tion seems hopeless. 

But suppose that new problems have the same form as 
previously encountered problems, and are simpler. The pro- 
blem will be solved at least "theoretically," if the rules lead 
to a solution in a finite number of steps. Such a solution 
is said to be recursive. 

One of the beauties of a language such as LOGO is that 
recursive procedure definitions are allowed. And writing a 
LOGO procedure not only gives a theoretical solution, but 
a practical one which can be carried out by executing the 
procedure. Of course, for the latter, one needs access to a 
TI-99/4A with TI LOGO (or some other implementation 
of LOGO). 

In thinking through the solution of a problem, one often 
works "both ends." The big picture leads to smaller pic- 
tures. But also details occur which can be incorporated in- 
to procedures, which then make the solution of larger pro- 
blems easier. 

Translating the Pig Latin 

As a concrete example of these ideas, consider the 
momentous task of translating an English word into Pig 
Latin. According to my children, the rule is to add "HAY" 
at the end of a word beginning with a vowel, otherwise to 
take the consonant sound from the front, add "AY" to it, 
and put it at the end. Thus "AND" translates to "AN- 
DHAY", and "BREAK" translates to "EAKBRAY." 

These rules lead immediately to a LOGO procedure for 
accomplishing the task: 



HEM 



OU 



NWO 



: W 



RAN 



VWOR 
AlNCNOR 



This procedure reduces our problem to the solution of three 
simpler problems, which we might need to reduce further. 
The procedures we need are: 



MEMBER object list 
TRANVWORD word 
TRANCWORD word 

MEMBER returns TRUE if object is in list and returns 
FALSE otherwise. TRANVWORD translates word if it 
begins with a vowel. TRANCWORD translates word if it 
begins with a consonant. We can hope that MEMBER is 
a utility built into LOGO. It isn't, but this is no problem. 
Nearly anything that isn't a primitive can be built in. 

At any stage in the solution process we can decide to work 
on big problems or focus on little ones. The solution of a 
problem isn't a linear process, even if solutions are usually 
presented as if the process were orderly and straightforward. 
The LOGO procedures document and organize progress. 

Let's focus on the problem of deciding membership. If 
object is in a list, it is either the first item of the list, or else 




FOR 



P 

MA 



I N 



RN 



GO 



P 
I 

W|A 
Tl 
A 



I Q] 



ICWOR 



K 
K 

W 

ClWOI 



MA 
MA 



'OWE 
VOWE 



VOWEI 



INWO 
IMEMB 



AN 



VWO 
CWO 



WO 



TO 



WOR 



TO 
0( 
EI 



IVWO 
WOR 



TO 



IKE 
S 



MBI 



OU 

OUl 



s 

R 



001 

:t 

X 
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it is the first of a truncated list, or it is not in the list. The 
definition is, naturally, recursive: 



the beginning to the end until the first letter is a vowel, and 
then add "AY". We are led to: 



T 
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E 
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B 


E 


R 






X 
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With this definition, MEMBER FIRST :W I A E I O U 
] will return TRUE if :W begins with a vowel, and FALSE 
if it doesn't. 

The definition of TRANVWORD is so simple we can 
write the procedure anytime. Let's do it now: 



VWO|R 
NOR 



: W 



The (undocumented) primitive WORD takes two words as 
input and outputs the word formed by joining them. 

The definition of TRANCWORD takes more thinking. 
We want it to be recursive. We want to move letters from 



If we try (that is, think through, or execute in LOGO) 
TRANCWORD "BREAK, we find it will return 
EAKBRAY, as desired. And TRANCWORD "YOU 
returns OUYAY. But TRANCWORD "BY runs out of 
space because the recursion cannot end. Evidentally Y must 
be added to the list of vowels. But then TRANCWORD 
"YOU would return YOUHAY and not OUYAY. 

Can you fix this bug? We want Y to count as a vowel 
only if it isn't the first letter. One solution is to use two in- 
puts to TRANCWORD, one of which is a flag. This solu- 
tion, as well as the generalization to translating a sentence, 
can be seen by reading the PIGLATIN procedure and the 
procedures it calls. 



TOWER OF HANOI 
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Now we turn to a less frivolous example. The Tower of 
Hanoi is a puzzle familiar to many. It consists of three 
pegstands. One contains a "tower" of circular rings. The 
object is to move the tower from one peg to another, mov- 
ing one ring at a time, and never putting a larger ring on 
top of a smaller one. There is rumored to be a Buddhist 
priest working on a puzzle with 64 rings; when he finishes, 
the world will end. If he makes one move per second, how 
much should we worry? 

We can use LOGO to worry about this problem. We need 
a procedure, say NUMMOVES, which takes for input the 
number of rings and outputs the number of moves. Sup- 
pose we think of the task this way: Move the top n - 1 rings 
to an auxiliary peg, then move the largest ring, then move 
the smaller n - 1 rings onto the largest. 

The way of vieviing the problem leads to the following 
recursive definition for NUMMOVES: 



IUMMO\ 



Trying this procedure, we find that NUMMOVES 2 = 
3, and also that NUMMOVES 3 = 7. The reader might 
try to find a formula for NUMMOVES n, and also the value 
of NUMMOVES 64. 

Of more interest is a procedure for actually solving the 
puzzles, and beyond that, for implementing the solution 
graphically. By the above reasoning, what we need is a pro- 
cedure SOLVE with four inputs: 

SOLVE n pegl peg2 peg3 

which would move the top n rings from pegl to peg2 using 
peg3. Using the rules we obtain: 
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To have LOGO print out the moves in order, we need 
to implement two procedures called GETRING and 
SETRING: 

In the meantime, let's implement GETRING and SETR- 
ING simply so we can test our solution: 
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TO 



ON 



Now, if we enter SOLVE 2 "A "B "C, the output will be: 

PICK UP A SET ON C 
PICK UP A SET ON B 
PICK UP C SET ON B 

The number of moves for three rings is 3, as expected. 
What will be the seven moves for SOLVE 3 "A "B "C? 
Try it! 



Assume that INITIALIZE assigns the value 8 to N and 
:TOP is the number of the ring to be displayed. Then 
SETUP can be: 



TU 



TOP 



NS 



MA 



TO 



We've looked at a LOGO procedure for solving the 
Tower of Hanoi as an abstraction. This procedure, SOLVE, 
prints out — as a list — the sequence of moves necessary for 
the solution. But given the graphics power of LOGO, we 
should be able to design a program — a series of 
procedures — which will represent the actual movement of 
rings from one peg to another graphically. And, in fact we 
can use LOGO'S MAKECHAR command to define the re- 
quired graphics, called tiles, and we can move these newly- 
defined tiles about, using LOGO procedures. So let's begin 
at the beginning. 

Let A, B, and C be the three pegs. When we know which 
rings are on which pegs, we then know the particular state 
of the puzzle. In our LOGO implementation, the variables 
A, B, and C will be the names for lists which tell us which 
rings are on each peg. Our puzzle will have 8 rings. Let us 
number them 1 through 8 in order of increasing size. The 
beginning position, with all rings on peg A, is represented 
by:A = [ 1 2 3 4 5 6 7 8 ], :B = [],and:C = []. Moving 
the top ring from A onto B results in the state :A = [ 2 
3 4 5 6 7 8 ], :B = [ 1 ], :C = [ ]. In essence, a move con- 
sists of removing a number from the beginning of one list 
and adding it to the beginning of another list. At the same 
time, of course, the graphic representation ring must be 
erased and redisplayed in the correct position. 

Let us first construct a procedure HANOI, which will 
allow us to play with the puzzle and then, when we want, 
solve it automatically. 



TO 



ANOI 



INITIALIZE should set colors and define constants. 
SETUP should display the puzzle with all the rings on peg 
A. PLAY should allow us to pick rings up and put them 
down by simply pressing the names of the corresponding 
pegs. Play might continue until 'Q' is pressed. The puzzle 
should then be redisplayed and solved automatically, begin- 
ning with the rings on peg B. The procedure SOLVE was 
developed in the previous section. Procedures SETUP, 
PLAY, and SOLVE will depend on workhorse procedures 
GETRING and SETRING. The requirements for IN- 
ITIALIZE will become apparent as we make choices about 
representation. 



Using utilities MEMBER?, EMPTY, and ALARM, we 
can write PLAY in such a way as to validate all inputs. We 
want to accept either 'Q' or to stop PLAY the letters A, 
B, and C only. (VALID will be initialized to [ A B C ].) 
We also want to prevent an attempt to remove a ring from 
an empty peg. If an error is made, we will cause an alarm 
to be sounded. (See the listing for definitions of the utilities.) 
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In this procedure, note that the value of X, :X, is the name 
of a peg, either A, B, or C. One might expect that the value 
of :X would be denoted : :X, but this denotes the value of 
':X'. The primitive THING must be used. THING :X is 
the list named by :X. 

In order to discuss GETRING and SETRING, we need 
to be specific about how to represent the graphics. We could 
use the turtle, but we choose tiles because this allows the 
most colorful display. The LOGO screen is divided into 32 
columns numbered to 31 from left to right, and 24 rows 
numbered to 23 from top to bottom. We can place the 
rings on the display by locating them relative to their 
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pegstands. Let ABASE, BBASE, and CBASE name the 
coordinates for the centers of the pegstands. Reasonable 
choices are :ABASE = [ 7 21 ], :BBASE = [ 25 21 1, and 
:CBASE = [ 16 11 ]. Suppose a ring is the top one on a 
given peg. Its center has as its column coordinate the same 
column coordinate as the peg, and its row coordinate is equal 
to the row coordinate of the base minus as many rings as 
are on the peg. If we use TOP, COL, and ROW to contain 
the number of the top ring and its column and row coor- 
dinates respectively, we are led to: 
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Tiles and colors for the rings will be chosen as follows: 
The shapes for the tiles are designed so that ring k appears 
to be k + 2 tiles wide, but it is actually 3 + 2*(k/2) tiles 
wide. The accompanying figure shows the number and shape 
of all the required tiles, which we will have to make using 
MAKECHAR. 
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In using these procedures, :P is a letter (A, B, or C). Thus 
WORD :P "BASE will return the word ABASE, BBASE 
or CBASE. Note how BF (BUTFIRST) and SE 
(SENTENCE) are used to change the value of :P (which 
will equal A, B, or C). By passing the name of the peg, we 
can change its value. This would not be the case if we passed 
the value of the peg to the procedure. (Computer scientists 
call this passing parameters "by reference" rather than "by 
value.") 

We are left with the problem of actually displaying the 
pegs and displaying and removing the rings. The work will 
be done by STAND, DISPLAYRING, and ERASERING. 
We need to choose the tiles and colors. 

The bases will use tile 96 and be black. The pegs will use 
tiles 104 and 105, and be white. Tile 104 is square, and tile 
105 is rounded at the top. Recall that the number of rings 
is :N, and the division in LOGO is integer division. 



A ring appears when the right number of tiles of the right 
shape and color are displayed.A ring is erased by display- 
ing blanks and the peg tile. For effect, the rings will be 
displayed from the center out and erased from the outside in. 
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We are almost ready to play with the puzzle. IN- 
ITIALIZE (see listing) defines colors for the tiles, and 
assigns values to N, VALID, ABASE, BBASE and CBASE. 
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No. Color No. 
112 -Red -114 
128 - Yellow -130 
144 -Olive -146 
160 - Blue -162 

No. Color No. 
120 - Orange -122 
136 - Lime -138 
152 -Sky -154 
168 - Purple - 170 





No 
96 



Color 
Black 
104 White 
113 Red 
121 Orange 
129 Yellow 
137 Lime 
145 Olive 
153 Sky 
161 Blue 
169 Purple 



Part 
Base 
Peg 
Ring 1 
Ring 2 
Ring 3 
Ring 4 
Ring 5 
Ring 6 
Ring 7 
Ring 8 
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Before anything will happen, though, the tiles must be defin- 
ed using MAKECHAR. (See figures.) Then, ENJOY! Recall 
that to manipulate the rings, you just need to press the let- 
ter of the peg from which you want to take, or to which 
you want to add a ring. Use the procedure HELP if you 
forget. 

After you have had some fun with the puzzle, you might 
want to try a four peg variation. To implement a four peg 
version, do the following: 
Change INITIALIZE to include: 

MAKE "VALID [ A B C D ] 
MAKE "ABASE [ 8 10 ] 
MAKE "BBASE [ 24 10 ] 
MAKE "CBASE [ 8 23 ] 
MAKE "DBASE [ 24 23 ] 

In SETUP, add: 

MAKE "D [ ] 
STAND "D 

The puzzle should then contain four pegs: A, B, C, and 
D. It can be manipulated just like the three peg puzzle. The 



automatic solution will still use just three pegs. But as a wor- 
thy challenge, you might try to write a better version of 
SOLVE which takes advantage of the fact that there are 
two auxiliary pegs instead of just one. The puzzle should 
take fewer moves to solve. How many less than 2n - 1 
moves are required if there are n rings and four pegs? I 
would be interested in any of your results. Then can five 
pegs be fit on the screen. . . ? 

But if you are looking for a lesser challenge, or just want 
to experiment with a simpler puzzle, note that the number 
of rings is set in INITL^LIZE and can be changed. Try this: 
Enter INITIALIZE, and then MAKE "N 5 (or some other 
integer). If you now enter SETUP, a puzzle with 5 rings 
will be displayed. Enter PLAY, and you can manipulate 
this puzzle until you press Q. Now enter SETUP again, and 
then SOLVE 4 "A "C "B. This will cause four rings to 
be moved automatically to peg C. Then enter PLAY and 
you can complete the puzzle by yourself. With LOGO, the 
procedures are your own to do with or modify as you please. 
Use your imagination, make up other puzzles, or just go 
ahead and play with this section's puzzle as is. 
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Assembly Language 

Faster than a speeding cursor! More powerful than 
Extended BASid—it's super language! 
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PART 1: Electrical Signals, Number Systems & CPU Architecture 



If you're a reader of 99'erHome Computer Magazine, 
you are probably aware that there is a difference be- 
tween 8-bit and 16-bit computers . . . although just 
exactly what that difference is — other than "16 bits are 
twice as many as 8 bits" — might not be that obvious. My 
purpose in this series of articles is, therefore, to discuss 
the inner workings of your 16-bit computer by gradually 
introducing you to its operation and low-level program- 
ming in a language much closer to the way your com- 
puter operates without any BASIC interpreter slowing 
things down, or coming between you and the power of 
your machine. 

The heart of any computer is its microprocessor, and 
the one we'll be examining is, naturally enough, the Texas 
Instruments TMS9900— the 16-bit chip around which this 
magazine is organized. To understand its operation, we 
first have to know something about electrical signals and 
number systems, so let's begin our discussion here. 

Clocks, Pulses, Bits & Bytes 

The electrical signals used by a computer are labeled 
high and low, or 1 and 0, respectively. One of these 
signals is called a bit. Inside the computer this cor- 
responds to one wire. All of the wires together are called 
a bus. The computer reads and writes a part of the bus 
called the data bus at specific intervals, which are 
regulated by a clock. The signals that the clock produces 
to tell the computer when to read and write are called 
clock pulses. 
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At each pulse of the clock, the computer reads a group 
of lines. Your normal, run-of-the-mill microcomputer 
uses groups of 4,8, or 16 bits. All the information read 
or written is called data. If the computer is reading or 
writing on 1 line, the data is called serial. If it is reading 
or writing on a group of lines together, the data is called 
parallel. 4 bits in parallel are called a nybble; 8 are a byte; 
and 16 has no name, but I propose to call it agobbyl. 

Look at Chart 1. The top Une is the clock. In this ex- 
ample when the pulse is high, the computer reads the 
signal lines. Notice that when there is only one signal line, 
the data received can be only a 1 (when the line is high) 
or a (when the line is low). There are only two possible 
codes you could see during one clock pulse. You would 
see a 1 or a 0. 

Now look at what happens when you have two signal 
lines grouped together: 4 different codes are possible. On 
clock pulse #1 both lines are low (code 00); on pulse #2 
the bottom line is low and the top one is high (code 01); 
pulse #3 has the bottom high and the top low (codelO); 
and pulse #4 has both lines high (code 11). 
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Number Systems 

These codes could also be considered numbers. Count- 
ing with only O's and I's is called binary (from the Latin 
word for two) or base two counting. Ordinary, plain, 
vanilla numbers that we use everyday that are called 
decimal (from the Latin for ten, of course) or base ten 
numbers. Even though we have only the ten digits from 
to 9, we can make very large numbers by using the same 
digits in different positions. Follow along on chart 2. 

The position on the extreme right in a decimal number 
is the ones column. For that matter, the position on the 
extreme right in any base is the ones column. Why? 
Because you find the column value by taking the number 
of digits you have and raising it to the power of column 
minus one. For example, if you have ten digits, and the 
column is number 1 (from the right), then the value of 
that column is 10 to the 1 minus 1, or 10 to the power. 
Any number to the power is 1 , so the first column is 
always ones in any base. 

The second column is a different matter. In base ten 
it is 10 to the 2 minus 1, or 10 to the 1st power, or 10. 
So if you write 14 what you mean is 4 groups of ones 
and 1 group of tens. In base two the second column (from 
the right) would be 2 to the 2 minus 1, or 2 to the 1st, 
or 2. The second column or position in binary is the twos 
column. 

The thing that makes the zero so neat is that it holds 
the position without giving it a value. Zero ones is zero! 
If you just left a blank there, people would have to write 
all their numbers in little boxes or pretty soon the col- 
umns would get all jumbled up. Is there one blank or 
two? . . .or three?? Better use the zero. 

The columns in binary numbers are just like the signal 
lines in a computer. In theory, the columns go on 
forever— and so do the numbers. Regardless of the base 
you are in, you can keep writing numbers forever! But 
wait! I just said that signal lines are usually groups of 
4, 8, or 16. If signal lines are the same as columns, then 
there is a limit to the size of number a computer can 
understand. How big is the biggest number you can use? 

To find out, raise the base to the same power as the 
number of positions you have. On chart 1 when we used 
two lines, that was 2 to the 2nd power, or 4 codes or 
numbers. With 4 lines, there are 16 (2 to the 4th); with 
8 there are 256; and with 16 lines there are 65536. 

The last code on the chart is 1111, which in decimal 
is 15. I said you could get 16 numbers with four lines, 
so where is the last number? Don't forget to count 0! 
through 15 is sixteen numbers, through 255 is 256 
numbers, and so on. 

There are other bases, or course. The numbers marked 
hexadecimal are from a base with 16 digits — the normal 
10 digits from to 9, plus the letters A to F. Use them 
just like any other digits. For instance, on the chart, 1111 
binary is 15 decimal and F in hexadecimal (hex for short). 
The next number in hex is 10; in decimal it is 16; and 
in binary you have to add a new position (sixteens) and 
write 10000. 

You can always add as many zeros to the front of a 
number as you want without changing it. However, if you 
make a binary number divisible into groups of four, an 
interesting thing happens: Each group of four can repre- 
sent 16 codes or numbers. Since that is exactly the number 



of digits in the hex number system, you can substitute! 
This makes long binary numbers much easier to read, and 
doesn't change their values at all. 
Try a few yourself. They're easy! 
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Hardware 

The TMS9900 is called a 16-bit CPU (Central Proces- 
sing Unit). This means that when it fetches an instruc- 
tion from memory, it gets 16 bits in parallel. And when 
it reads or writes data this is usually done in groups of 
16 bits too. [In the TI-99/4A, however, this 16-bit group 
is converted into an 8-bit data bus.— Ed.] You may hear 
the term word used for 16 bits. If you are talking about 
a 16-bit machine, the term is correct. But remember, if 
you are talking about an 8-bit CPU, 8 bits (or byte) is 
a word; if the CPU is 32 bits, the word is 32 bits. 

It is necessary for a programmer to know about only 
two kinds of memory. Random-access memory (RAM), 
sometimes called read/write memory, is what stores the 
user's program, data, etc. The user or the computer can 
read or write in it. The memory location is chosen by the 
lines on the bus called address lines. The data that is be- 
ing read or written appears on the data bus. 

Read-only memory (ROM) comes in many varieties 
and works just like RAM except for one thing— it can't 
be written to. If you tell the computer to write, it will 
go through the motions of writing, but it doesn't work. 
The old data is still there. 

Inside the CPU there are a few memory locations that 
are not addressed by the address bus. The chip itself 
knows where they are. These are called registers. All 
machine language and assembly language programming 
involves manipulating the data in these registers, because 
that is all that the computer really can do! 

How many registers there are and how big they are 
varies widely. The chip manufacturer usually labels the 
registers and decides on a short code, called an opera- 
tion code (op-code), for each of the manipulations that 
the chip can do. An assembler is a program that reads 
these op-codes and writes them into memory in the binary 
form that the CPU understands. When you write a pro- 
gram using the op-codes, you are writing in assembly 
language. If you write your own assembler you can devise 
your own op-codes. But because the manufacturer 
generally writes an assembler for his chip, you can use 
his op-codes. 

About the only thing all CPUs have in common is a 
register called the Program Counter (PC). The address 
bus is just an extension of the PC. Each bit of the pro- 
gram counter is, in effect, connected to one signal line 
of the address bus. Since the TMS9900 chip was designed 
especially for dedicated control purposes (e.g., produc- 
tion lines inspection or phone switching) where the pro- 
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gram is always in ROM — and since at the time most 
ROMs were made for 8-bit computers — the address bus 
of the 9900 is a little unusual. 



The bits of the PC allow the chip to address 65536 
blocks of memory. The blocks could be any size, but as 
I said, most ROMs were in blocks of 8 because most com- 
puters had an 8-bit data bus. The PC in the 9900 has 16 
bits. These are labeled 0-15, from (left to right), most 
significant bit (MSB) to least significant bit (LSB). Why 
are there only 15 address lines? Follow on Chart 4 as we 
go along. 

Normally the PC advances after each instruction or 
parameter it fetches so that it points to the next memory 
byte. But the 9900 needs 16 bits instead of the 8 available 
at each location in most ROMs. So the 9900 has two dif- 
ferent fetch cycles: it reads the byte indicated by the PC 
on the first cycle, hooks the next byte to it on the second 
cycle, then increments the PC by two. To the user this 
all appears as one fetch, except that the PC is incremented 
by two instead of by one as expected. By eliminating the 
last bit, however, the address line appears to step nor- 
mally. The drawback is that you can address only 32767 
words. It's still 65536 bytes though. 



PART 2: Registers, Programming & The Need For Assemblers 



Status Register 

Almost every CPU has some kind of flagis). These are 
set (high) and reset (low) by actions performed in the 
manipulations of data. Different instructions affect different 
flags. Modern CPUs combine several flags into a single 
Status Register. The TMS9900 is no exception. Its Status 
Register (ST) is 16 bits long. Bits 7-1 1 are not used at pres- 
ent. The others are shown in the drawing below and are 
explained in the text. 

TMS9900 STATUS REGISTER 
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Each of these conditions will be discussed in more detail 
as examples are shown. Until then, these simple descriptions 
will help. 

The four bits labeled 12-15 can select up to 16 interrupt 
levels. All levels equal to or above the level indicated are 
enabled. 

Bit is set after any operation where the destination value 
(answer) is greater than the source (the first operand used; 
it remains unchanged). All 16 bits are used for the 
comparison. 

Bit 1 is similar to bit except that the values are com- 
pared as signed integers. The MSB (most significant bit) 
designates the sign of the integer, with a 1 meaning negative 
and a meaning positive. The range is + 32,767 to - 32,768. 



Negative numbers are represented in a two's complement 
fashion. 

Computer math is cyclic. This means that if you add 1 
to the highest possible 16-bit number (FFFF hex), you go 
back to OCKX) hex with a carry bit that is set. If you subtract 
1 from 0(X)0 hex without the carry, you get an overflow; 
but if the carry is set, you get FFFF hex. Therefore, - 1 
is FFFF hex in two's complement. To see its usefulness, let's 
add - 1 and 1 : FFFF hex plus 0001 hex equal 0000, the carry 
is set, and the answer is zero. In a nutshell, this whole 
business of two's complements and carry bits is simply a 
way to subtract by adding. 

Bit 2 is set if the two operands are equal. 

Bit 3 is set if a 1 is shifted out of an operand, or if a carry 
occurs in a math operation. 

Bit 4 is set if the math requested cannot be done. 

Bit 5 is set if the parity is odd, and reset if it is even. Odd 
parity means that there is an odd number of Is in the binary 
representation of an operand. 

Bit 6 is set after an extended operation has been com- 
pleted. This is done because an interrupt is not checked for 
after completion of an extended operation. (You therefore 
may wish to have the software check for one if this flag 
is set). 

The ALU 

Most CPUs have an Arithmetic/Logic Unit (ALU) where 
the simple math is performed. An accumulator, a special 
register used by the ALU, usually contains the answers to 
the math. In the TMS9900 there is no accumulator because 
the destination address serves as the equivalent of an ac- 
cumulator. This means, in effect, that any memory loca- 
tion can be the accumulator. There is an ALU on the 
TMS9900 chip, but its operation is intrinsic to the 
instructions. 
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Other Registers 

Most CPUs have a few extra registers where quickly- 
needed values can be stored, as well as a register called a 
Stack Pointer which points to a section of memory where 
more data can be "piled" and then quickly accessed. These 
two concepts have been combined on the TMS9900 into a 
single Workspace Pointer Register (WP). The WP points 
to a block of 32 bytes of the memory arranged as 16 
workspaces (WS), each 16 bits long. The workspaces are 
synonymous with registers, and are used the same way. We 
can change the WP in several ways and can save the old 
WP when a new one is used. This allows us to return to 
the old one if we need to. This set-up, in effect, acts like 
an elaborate stack. 

There are five different ways to use these WP registers 
to indicate an operand for an instruction. These addressing 
modes are as follows: 



1 . Workspace Register Mode 
code 00 

2. Workspace Register Indirect 
code 01 



3. WS Register Indirect 
w/ Auto-Increment 
code 11 

4. Symbolic or Direct 
code 10 

5. Indexed 
code 10 

Td or Ts equal 1-15 



— the data in the in- 
dicated register is the 
data used. 
— the data in the 
register is treated as 
the address of the 
real data. 

— same as above, but 
the register is in- 
cremented upon 
completion. 
— the address of the 
data follows the in- 
struction in memory. 
— same as above, but 
the value in the index 
register is added to 
the address. 



There are three other addressing modes not dealing with 
registers per se: (1) The immediate mode has the data im- 
mediately follow the instruction code. In other words, the 
address of the data is the address immediately following the 
PC. (2) The CRU mode has the address of an external in- 
put/output (I/O) device determined by bytes 3-12 of register 
12. (3) The IMP instruction (and all variations thereof) uses 
the last 8 bits of the instruction to determine where on a 
256 byte page to jump. The PC indicates the center of the 
page, so the jump can be from PC - 128 to PC + 127. One 
byte is taken up by the jump instruction itself. The 8 bits 
store the relative jump in two's complement form. 

Programming and the Need for Assemblers 

If your CPU is the TMS9900, the simplest computer you 
could construct would be composed of a clock, a CPU, 
some memory, a few control switches, 16 data switches, 16 
lights for read out, and 15 address switches. It would be 
crude and slow to program, but once programmed, it would 
operate as well as any other computer. But how could we 
program it? 

Suppose we wanted to load register 1 with zero, and then 
increment it until its contents were equal to either 1024 
(decimal) or the contents of register 2. The first step can 



be done several ways. Immediately loading register 1 with 
comes to mind first. A little investigation of the instruc- 
tions for the chip show that we could save a word of memory 
by using the Clear command. Figure 1 shows the register 
format for the various commands, and Figure 2 shows the 
op codes for the instructions. 

Using this information, we can now determine the binary 
values of each word. Load Immediate uses the first 10 bits 
as the op code; the 1 1th bit is not used; and bits 12-15 select 
the register. This means the first word is 

00000010000X0001, where X can be 1 or 0. 
The second word is the value to load, and in this case would 
be all zeros. 

Using our simplified computer, just flip each switch on 
if there is a 1 at the corresponding bit, off if there is a zero. 
Press the Input control switch (it might be called Load, or 
. . . ), and the instruction is stored in whatever address the 
address switches are set to. Then add 1 to the address switch- 
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Figure 1 



es (which adds 2 to the PC) and set all the data switches 
to zero. Press Input again, and our complete instruction is 
ready. 

If instead, we use the Clear instruction, we would use the 
single-operand general format with the first 10 bits being 
the op code. The next two bits indicate address mode, and 
the last 4 bits select the register. Since we want to clear the 
register itself (not the word it points to), the code is 00,and 
the whole instruction is 0000010011000001. 

Even with a hex keypad and a small monitor program, 
it would be a very time-consuming process to piece together 
the binary words, and then convert to hex and type them 
in. Typing in 04C1 is easier than setting switches to 

0000010011000001, 
but putting together those op codes is just the tedious, bor- 
ing kind of work that computers are supposed to free us 
of. So why not use them for that? 

Why not, indeed. . .That's exactly what we'll do when 
we look at a TMS9900 assembler. 
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ITS SUPER 
LANGUAGE 




PART 1: Fundamentals of Assembly Language 
Programming on the TI-99/4A 



Before getting into the details of the TI-99/4A 
Editor/ Assembler package, we should first consider 
what an assembler is and what it can do for us. Most 
readers are already familiar with the TI BASIC language, 
and many have already experienced the disk-oriented 
features of Extended BASIC. These BASICs are interpreted 
languages. When a BASIC program is being run, the BASIC 
interpreter converts (interprets) the BASIC statements, one 
statement at a time, into machine language— the binary ones 
and zeros that the computer understands. It then executes 
the statement it has just converted. Since a single BASIC 
statement usually generates several machine instructions, 
programs can execute relatively slowly. This is especially true 
in programs containing loops because each statement in a 
loop is interpreted each time it is encountered. 

BASIC programs are simply input and RUN, but pro- 
gramming in assembly language involves an extra step which 
is not apparent in BASIC programming — namely the 
assembler stage: Assembly language programs must be in- 
put, then assembled and finally RUN. The assembler con- 
verts the assembly language statements (or source program) 
to machine language; it is the machine-language (or object) 
program which is RUN. Because there is no waiting for each 
statement to be interpreted at runtime, programs written in 
assembly language run extremely fast. 

Another major difference between BASIC and assembly 
language is the difficulty of writing programs. A BASIC pro- 
gram is relatively easy to code because the instructions are 
English-like and the programmer does not have to worry 
about where variables reside in memory or have to under- 
stand the structure of the machine. Assembly language pro- 
grams, on the other hand, are harder and more time- 



consuming to write because the instructions are machine- 
oriented (see "TMS9900 Machine and Assembly Language") 
and the programmer must understand the structure of the 
machine. Debugging assembly language programs is harder, 
too. But these difficulties are not necessarily disadvantages, 
because an understanding of the machine allows a program- 
mer to create more efficient programs. Programming in 
assembly language is an education in itself, and is one of the 
best ways to learn how a computer works. 

A programmer must consider these tradeoffs in choos- 
ing the best language for each application. In general, 
BASIC is faster to write and debug, but assembly language 
programs execute faster. Happily, TI has made it possible 
to choose both by enabling Extended BASIC programs to 
CALL assembly language subroutines. This means that a 
programmer can write mainly in Extended BASIC and use 
assembly language for portions of the program where faster 
execution is required (loops, and especially, sorts). Writing 
short assembly language subroutines to CALL from Extend- 
ed BASIC programs is a good way to ease into assembly 
language programming, and after some practice you may 
find yourself writing entire applications in assembly 
language. 

What follows is a preliminary look at the TI-99/4A 
Editor/Assembler package. It is, however, only an over- 
view of the product. Other sections will go into more depth 
on specific features of the software. 

Software Media and Required 
Hardware 

The Editor/Assembler software resides in a Command 
Cartridge and on a disk. To run it, you'll need at least one 
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disk drive and the 32K expansion RAM. Both the Editor 
and the Assembler are selectable from menus, and most of 
the screens include easy-to-understand prompting messages. 

The Editor 

The Editor is used to input Assembly Language source 
programs initially, to update programs previously saved on 
disk and to print programs. The Editor's features compare 
favorably to those of larger systems. 

There are two modes: Edit Mode and Command Mode. 
Edit Mode is always used to input a program for the first 
time, but either mode can be used to change existing pro- 
grams after loading them from the disk or typing them in 
Edit Mode. 

Edit Mode is entered directly from the menu. The screen 
is a 40 X 24 window on the source program. Function keys 
allow you to move this window to the right or left in 
20-character increments, or up and down 24 lines at a time. 
(Since most of my Assembly Language programs have fewer 
than 40 characters per line, I tend to view the leftmost 40 
characters and make heavy use of the up and down scroll- 
ing). The four cursor keys are enabled in Edit Mode, mak- 
ing it especially easy to correct typographical errors. Whole 
lines can be inserted into the text by moving the cursor to 
the adjacent line and pressing the Insert function key; a new 
blank line is inserted, and the user simply types in a new 
line. Similarly, a whole line can be deleted by moving the 
cursor there and pressing the Delete function key; the line 
is removed and the line numbers of the following lines are 
automatically decremented. There are also keys for insert- 
ing or deleting characters. A Tab key is also provided for 
tabbing to columns 8 and 16. Edit Mode makes it very easy 
to enter new programs because the user can both type the 
source program in a natural manner and correct errors and 
omissions as they occur. Edit Mode is exited via the Back 
function key, which puts the Editor into Command Mode. 

Command Mode reminds me of the UCSD Pascal editor. 
The first line of the screen shows the Command Mode op- 
tions: Escape, Find, Replace, Move, Insert, Copy, Delete, 



Larger system (TXMIRA): 



LOOP 



ZERO 
AB 



Show, and Adjust. Line 2 is reserved for parameters to be 
input by the user, so in this mode the text window is 40 x 
22. Most options require further information to be given 
on line 2, and very clear prompts given so the user knows 
what line to enter. 

Each option is selected by typing the first character of 
the option name. For example, to find an occurrence of a 
string in the source program, the user enters F. The system 
responds with the prompt < count >< (start col, end 
col) > /string/. To find the second occurrence of the string 
ABCD between columns 1 and 50, the user would type 
2(1,50) /ABCD/. The system would then display the sec- 
tion of the text containing the second such occurrence of 
ABCD (if any) with the cursor over the A. The symbols 
<> in the prompting message indicate optional parameters. 
To find the next occurrence of the string ABCD in the whole 
source program, the user need only type /ABCD/. The 
Replace option is like Find, except that each specified oc- 
currence of the string is replaced by a second string given 
by the user. Replace includes an optional verify operator 
which allows the user to say yes or no to each replacement. 
The Move option allows the user to move sections of text, 
indicated by an interval of line numbers, to a different place 
in the source program. Copy is similar, except that the sec- 
tion of text ends up in both the original position and the 
new position. Delete allows easy removal of several con- 
tiguous lines from the text. Insert takes a file from disk and 
places it anywhere you want in the program being edited. 
Show is a way of moving the window so that a certain line 
number is at the top of the screen. Adjust is an easy way 
to make the line numbers disappear so that the window 
shows the source program only. Escape gets you out of 
Command Mode and back to the Editor's menu, where you 
can choose to save the source program to disk, print it, purge 
it or edit the same or another program. 

The Editor performs all line numbering automatically as 
lines are entered and maintains these numbers in sequence 
as lines are added or deleted. The user can refer to them 
for operating on sections of the program; they also appear 



LI 2.0 MOVE TO REGISTER 2 FOR INDEX 

LI l2,>CO SET CRU BASE ADDRESS FOR SCREEN 

SBO >F SELECT CRU WORD I 

LDCR ©ZERO. II MOVE CURSOR TO HOME POSITION 

SBZ >F SELECT CRU WORD 

LDCR @AB(2),7 PUT CHARACTER ON CRU LINE 

SBZ >8 STROBE CHARACTER TO SCREEN 

SBZ >A INCREMENT CURSOR POSITION 

INC 2 ADD 1 TO INDEX REGISTER 

CI 2.2 COMPARE REGISTER 2 TO 2 

JLT LOOP LOOP IF MORE CHARACTERS 



DATA 
TEST 





•AB' 



DATA DEFINITIONS 



TI-99/4A assembler: 

REF VMBW . 



EXTERNAL REFERENCE TO ROUTINE UTILITY 



LI 

LI. 

LI 

BLWP 



0. 

1. AB 
2,2 

@VMBW 



VDP RAM ADDRESS = FOR HOME POSITION 
REGISTER I POINTS TO FIRST CHARACTER TO DISPLAY 
REGISTER 2 = NUMBER OF BYTES TO WRITE 
CALL UTILITY ROUTINE TO WRITE STRING 



TEXT 'AB' 



DATA DEFINITION 



Figure 1 
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on the Assembler output listing, which is handy for 
debugging. 

TI has incorporated most of the features found in editors 
for larger systems into the 99/4A Editor. In fact, the abilities 
to edit at the character, line, and group-of-lines levels are 
not always all available in larger editors. The only feature 
missing from the 99/4A Editor is a variable right margin — a 
feature which is really not too significant for Assembly 
Language source programs. [But that would l?e nice for 
word processing applications, since this editor already per- 
forms 95Wq of what most people would need for cor- 
respondence and document preparation. — Ed.] 

The Assembler 

The Assembler is a program which converts Assembly 
Language source programs into object form — the machine- 
language program that executes on the TI-99/4A. The ob- 
ject program is written to disk. Optionally, a user can print 
out or write an Assembly Language listing to disk. 

The 99/4A Assembler is a lot like the 9900 Assembler, 
TXMIRA, which runs on larger TI systems. See sample 
listing in Figure 1. A programmer who is familiar with 
TXMIRA will be able to write Assembly Language pro- 
grams for the 99/4A without too much difficulty since the 
same addressing modes are used and most of the instruc- 
tions operate in the same way. 

One big difference, as might be expected, is in the way 
a programmer handles input and output to the monitor. The 
99/4A Editor/ Assembler package includes three groups of 
built-in subroutines, or macros: (1) Utility Routines for ac- 
cessing machine resources, such as screen I/O; (2) Extend- 
ed Utilities, for accessing routines built into the console 
ROMs and GROMs; and (3) Basic Support Utilities for ac- 
cessing the parameter list in CALL LINK statements from 
Extended BASIC. These utilities make it uimecessary to use 
the CRU (Communications Register Unit) lines to the 
monitor. Under TXMIRA, all peripheral devices are ad- 
dressed via a fairly complex arrangement of CRU lines. Each 
device has its own CRU base address and CRU bit 
assignments, which means that a programmer must have 
very specific information about each device in order to per- 
form any input or output. On the 99/4A Assembler these 
difficulties in handling the screen have been eliminated by 
the Utility Routines. By loading a few registers and invok- 
ing the proper utility, a programmer can handle screen I/O 
in a much simpler way. Figure 1 has the code segments which 
might be used for writing the character AB to the upper 
left portion of the screen. 



You can see that the Utility Routines really make screen 
handling easier: You can focus your attention on merely 
the VDP RAM (the memory associated with the 99/4A 
monitor) addresses, and not have to worry about the logistics 
of the move. Furthermore, there is no apparent loss of ex- 
ecution speed in doing it this way. 

Another difference between the 99/4A Assembler and 
those for larger TI computers is that the IDLE instruction 
is not implemented on the 99/4A. This causes no great dif- 
ficulty, but it is useful to know. The IDLE instruction just 
causes the computer to wait for an interrupt; this can be 
done via another Utility Routine or other means, depend- 
ing on which device will cause the interrupt. 

The optional listing produced by the 99/4A Assembler 
is quite complete. Statement sequence numbers, source 
statements, and the hexadecimal code generated are all 
shown clearly. A symbol table can also be given and, of 
course, the number of errors is shown. Each error is also 
flagged in the body of the listing with a descriptive message. 
One very nice — and all too uncommon — feature is that a 
display of the number of errors is on the monitor when the 
Assembler is finished. 

Running and Debugging 

Once a program has been input, edited, and assembled 
with no errors, it can be loaded and run by choosing this 
option from the menu. Another menu option (RUN PRO- 
GRAM FILE) allows the user to run programs which were 
assembled on other Texeis Instruments systems or previously 
assembled on your system. 

The Editor/ Assembler package has a special debugging 
utility called DEBUG, which can be very helpful in isolating 
program errors. For instance, the commands in DEBUG 
allow you to set breakpoints in your program. When the 
program hits a breakpoint and stops execution, you can then 
use other commands to examine the contents of memory 
locations and registers, the Workspace Pointer, the Status 
Register, or the Program Counter, and if necessary change 
them to alter the program's execution. DEBUG commands 
will also allow you to search memory locations for a specific 
value, or to search memory locations and print those which 
don't have a specific value. DEBUG allows you to begin 
executing your program at any point you determine; com- 
bined with the breakpoints, this allows you to go through 
a program section by section. All in all, DEBUG provides 
a good repertoire of useful tools which will make it easier 
to find out why the program you wrote isn't working the 
way you thought it would. gBBI 



PART 2: Fundamentals of Assembly Language 
Programming on the TI-99/4A 



In Part I we gave you a preliminary look at TI's 
Editor/Assembler for the TI-99/4 and TI-99/4A and 
mentioned briefly the advantages of programming in 
Assembly Language. Now let's explore the benefits of 
Assembly Language more fully by comparing some pro- 
grams written in Assembly Language and BASIC. 

Some Assembly Language Explanations 

Before examining some programs, it would be useful to 
mention some general characteristics of the TMS9900 proc- 



essor, and then some specifics on the structure of the 
TI-99/4A. 

All 9900 programs make use of 16 workspace registers, 
each containing 16 bits (one word). Assembly Language pro- 
grams define 16 contiguous words of memory for these 
workspace registers and set the hardware register called the 
Workspace Pointer to point to the first of these memory 
locations. Having these workspace registers resident in 
memory rather than in the CPU is one of the most power- 
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ful features of the 9900-family processors. In an Assembly 
Language program, the hexadecimal numbers through F 
refer to the current workspace registers. (In addition, an 
Assembly Language option allows you to refer to them as 
RO through R15, which makes programs easier to read.) 

The structure of the memory of the 99/4A is fairly com- 
plex. The following explanations cover concepts necessary 
to understanding the programs in this article, but they only 
begin to scratch the surface of the memory structure. 

CPU RAM (Random Access Memory) resides in the con- 
sole and is directly addressable by Assembly Language pro- 
grams. Workspace registers and other memory locations, 
as well as the programs themselves, reside in CPU RAM. 

VDP (Video Display Processor) RAM, also located in the 
console, takes care of the video screen. Sprites, colors, 
character patterns, and the screen image itself all reside in 
VDP RAM. Unlike CPU RAM, however, VDP RAM is 
not directly addressable by Assembly Language programs. 
VDP RAM is accessed through specifically assigned CPU 
RAM addresses. This is called memory mapping. Locations 
through >02FF in VDP RAM contain the screen image. 
(The symbol ">" means hexadecimal notation; 
>02FF = 767 in decimal notation.) This means that 
whatever characters reside in this section of VDP RAM are 
visible on the screen. To change the screen, the program- 
mer would place the desired character code(s) into VDP 
RAM at the corresponding location(s). VDP RAM loca- 
tion corresponds to the home position (upper left) on the 
screen; location 48 (or>30) corresponds to the position 
called row 2 and column 17 in BASIC. Let's say you want 
to put an * on the screen at row 2, column 17. The ASCII 
code for * is 42, or > 2A, and the desired VDP RAM loca- 
tion is > 30. You might be tempted to use a MOVE (Move 
Byte) instruction to accomplish this, but remember, the VDP 
RAM cannot be directly addressed from your Assembly 
Language program. To access VDP RAM, you'll need to 
use a Utility Routine. VSBW (VDP Single Byte Write) is 
a macro instruction which places the most significant (left- 
most) byte of workspace register 1 at the VDP RAM ad- 
dress contained in register 0. Therefore, to place the * at 
row 2, column 17, you'd write: 

REF VSBW UTILITY REFERENCE 



LI 0, > 30 RO = VDP RAM ADDRESS 

LI 1,>2A00 RI CONTAINS * IN MSB 

BLWP @VSBW MOVE TO VDP RAM 

Most of the utilities use similar schemes of loading data in- 
to certain registers and calling the utility by name. I'll talk 
more about some specific ones later. 

The Game of Life 

Life is a classic computer game. It is based on the idea 
of a population which goes through life cycles to form new 
generations; each position on the screen corresponds to a 
cell in the population. Cells which are alive are filled in (with 
asterisks in my example); dead cells are blank. The life cy- 
cle, or rules of the game, are applied to each generation to 
obtain the next generation, and then the new generation is 
displayed on the screen. The rules of the game determine 
birth, death, or survival of individual cells, and depend on 
the state of each cell's 8 neighbors (adjoining cells, con- 



sidered horizontally, vertically, and diagonally) as follows: 

1. A live cell with 2 or 3 neighbors survives to the next 
generation. 

2. A live cell with or 1 neighbor dies of loneliness; a live 
cell with more than 3 neighbors dies of overcrowding. 

The rules are applied to a generation as a whole, before the 
next generation is displayed. Depending on the initial 
population, you may see a colony which goes on changing 
forever, one which dies out or becomes static after a few 
generations, or one which oscillates among a few patterns. 

There are a few restrictions on my implementation of Life 
which should be explained. First, I have defined the initial 
population in the programs, whereas other versions might 
allow the user to enter the initial population on the screen 
at the beginning of the game. In order to be sure the col- 
ony does not exceed the size of the 99/4A screen, which 
is 32 X 24, I have forced the border (rows 1 and 24 and 
columns 1 and 32) always to remain blank. This means that 
when the colony becomes large it may lose its symmetry as 
one side of the colony hits the border. 

The two programs which follow are in BASIC (Listing 
1) and in Assembly Language (Listing 3). Both follow the 
same strategy: display the initial colony, calculate the next 
generation by considering the neighbors of each cell in turn, 
clear the screen, display the new generation, and loop back 
to calculate the next generation. The Assembly Language 
version uses one byte to represent each cell; the BASIC ver- 
sion uses one entry in array SCRN for each cell. At the start 
of each generation, live cells contain the value 1 and dead 
cells contain 0. During the calculation of the next genera- 
tion, a cell can have the values through 3 as follows: 

= cell is dead and remains dead for the next generation 

1 = live cell survives to the next generation 

2 = dead cell will be born in the next generation 

3 = live cell will die in the next generation 

It is necessary to have these four possible values during the 
calculation so that the program can have the information 
about the current state of each cell while calculating and 
storing the next state of each cell. Just before the new 
generation is displayed (or not displayed if dead), the values 
of the cells are reset to or 1 by means of the array AFTER. 

In examining both versions of Life which follow (Listings 
1 and 3), you might wonder why anyone would use the more 
esoteric Assembly Language over the easier-to-understand 
BASIC. The answer is simple: speed. On the 99/4A, the 
BASIC program takes 2 minutes and 26 seconds between 
generations; the Assembly Language program takes less than 
one secondl The BASIC version is no fun at all to watch, 
whereas the Assembly Language program provides fine 
entertainment. [The use of the Utility Routine VMBW (VDP 
Multiple Byte Write) in the Assembly language is partly 
responsible for this speed. It shows each new generation all 
at once. And fortunately, the monitor program is smart 
enough to capitalize on this by showing only the changed 
portions of the screen, rather than re-drawing the whole 
screen each time. If fast enough, the human brain's "per- 
sistence of vision" allows us to see individual frames of mov- 
ing images as continuous rather than discrete pictures — 
thus making realistic animation sequences truly possible.— 
Ed.l 
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Using Assembly Language to Move Sprites 

The ability to create sprites which move automatically is 
one of the best features of the 99/4A. Sprites can be used 
in Extended BASIC and in Assembly Language programs. 

VDP RAM has several areas dedicated to sprites. The 
Sprite Attribute Block, which gives the sprite locations, sprite 
numbers, and colors, starts at address > 300. Each entry in 
the Sprite Attribute Block occupies four bytes. A terminator 
byte with value > OD denotes the end of the Sprite Attribute 
Block. The Sprite Descriptor Block contains the sprite pat- 
terns (shapes), with 8 bytes for each possible sprite. Although 
the Sprite Descriptor Block starts at VDP RAM address 
by default, we have already seen that VDP RAM locations 
through >02FF are used for the screen image table, and 
locations > 0300 through >03FF for the sprite Attribute 
Block. In order to avoid writing over these areas, the Sprite 
Descriptor Block usually starts at location > 0400 for prac- 
tical purposes. The entries in the Sprite Descriptor Block 
are defined to correspond to sprite numbers starting at 
and occupying 8 bytes each; therefore the entry at location 
>0400 is for sprite number >80. Thus in Assembly 
Language programs, the lowest sprite number is usually 
> 80. The Sprite Motion Table, which gives the x- and y- 
velocities of defined sprites, resides at VDP RAM location 
>0780. Each entry in the Motion Table occupies four bytes, 
the last two of which are for system use. The Sprite Mo- 
tion Table is filled only if automatic motion is to be used. 
An Assembly Language program could move the sprites 
(non-automatically) by changing the x- and y-locations of 
the sprites in the Sprite Attribute Block. But the system is 
able to move the sprites for you via an interrupt processing 
routine: Each time a VDP interrupt occurs (60 times per 
second), the interrupt processing routine moves any eligi- 
ble sprites according to the Sprite Motion Table. In order 
to make use of this facility, the Assembly Language pro- 
gram must also load the number of moving sprites at CPU 
RAM address > 837A and enable the VDP interrupts. 

Assembly Language vs Extended BASIC 

You are probably thinking that this sounds like a lot of 
work to achieve moving sprites, especially compared to the 
simple CALL SPRITE statement of Extended BASIC. 
However, there are times when an Extended BASIC pro- 
gram is inadequate. Coincidence checking in Extended 
BASIC is not as responsive to velocity changes as you might 
like. 

The programs which follow (Listings 2 and 4) illustrate 
how Assembly Language can be used to overcome these 
deficiencies. The program simply moves a target from left 
to right on the screen while shooting an arrow from the top 
of the screen to the bottom. Both sprites wrap around the 
screen. Whenever the arrow hits the target, the sprites stop 
moving, the target changes to an X, and the program delays 
long enough to make the blow-up visible. Then the program 
starts over. The Extended BASIC program relies on CALL 
COINC to detect hits. You'll notice, however, that the pro- 
gram doesn't seem to detect all hits. The Assembly Language 
program can stop the action by disabling the VDP inter- 
rupt while it checks for coincidence by comparing the loca- 
tions of the arrow and the target from the Sprite Attribute 
Block. Moreover, the Assembly Language program can 
check the point of the arrow against the target instead of 
checking the upper lefthand corners of the sprites. 



Because of these differences, the Assembly Language pro- 
gram appears to detect more hits correctly. Of course, this 
stop-motion processing must slow down the motion, but 
it is not noticeable to me. (One indication of the speed of 
Assembly Language program execution is the large number 
of statements executed in LOOP2 while the hit shape brief- 
ly remains on the screen.) 

Another shortcoming of the Extended BASIC version is 
that the hit shape appears quite a bit to the right of its ac- 
tual position when the hit occurred. That is because the 
sprites have continued to move while two BASIC statements 
(lines 190 and 200) are interpreted and executed. The 
Assembly Language version has akeady stopped the mo- 
tion by disabling the VDP interrupt program via LIMI 0; 
it doesn't start the motion again until after the hit sequence 
is complete. Thus, only the Assembly Language program 
actually shows the blow-up in the right place on the screen. 

Understanding An Assembler Listing 

The Assembly Language listing (Figure 4) was output by 
the 99/4A Assembler. You'll notice that the Assembler has 
added a page number and short title at the top of each page 
and added a cross-reference list and number-of-errors- 
found-during-assembly message to the end. The cross- 
reference list shows the location of the symbols used in the 
program relative to the beginning of the program. The line 
numbers in the first column were supplied by the Editor 
when the program was input and passed along by the 
Assembler. The second column of the listing shows the 
relative memory location where each statement or data area 
will reside during program execution. The third column was 
also supplied by the Assembler and shows the machine 
language generated by the Assembly Language statement 
to the right. The machine language (or object code) is ex- 
pressed in hexadecimal notation with one word per line. The 
Assembly Language source program (or source code) itself 
starts in the fourth column, which contains the labels. The 
fifth column contains the source program opcodes, and the 
sixth column contains the operands. The seventh column 
contains comments, and other comments are sprinkled 
throughout the program with asterisks in column 1 . Only 
the fourth through seventh columns comprise the Assembly 
Language source program; this is the only part entered by 
the programmer. The Assembler generates the rest. 

The Utility Routines VMBW, VSBW, VWTR, and 
VMBR are used in the example program. The VDP Multi- 
ple Byte Write (VMBW) moves the number of bytes in 
register 2 (R2) from the CPU RAM address in Rl to the 
VDP RAM address in RO. VSBW, the VDP Single Byte 
Write routine, was explained earlier. VDP Write To Register 
(VWTR) puts the value that is in the rightmost byte of Rl 
into the VDP register whose number is in the leftmost byte 
of Rl. Among other things, these VDP registers are used 
to select VDP modes and features. VMBR is the VDP Multi- 
ple Byte Read routine, which reads the number of bytes 
specified in R2 into the CPU RAM location in Rl from the 
VDP RAM location in RO. 

The logic for detecting hits in the Assembly Language 
program is based on the fact that the point of the arrow 
is three pixels to the right and seven pbcels below the corner 
of the sprite which is obtained from the Sprite Attribute 
Block. 
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Conclusion 

Although they are more complex to write, Assembly 
Language programs are far superior to BASIC programs 
when it comes to execution speed and for controlling the 
facilities of the 99/4A computer. In some cases, as in the 
game of Life, the faster speed of Assembly Language turns 



a boring game into one which is fun to watch. In other cases, 
as in the program SHOOT, Assembly Language is capable 
of providing more accurate resuhs. Thus, having the 
capability to write programs or subroutines in Assembly 
Language lets you achieve results which are impossible with 
BASIC and Extended BASIC alone. 



Listing 

100 
110 

120 
30 
40 
50 
160 
70 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 

360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 



1 



Life 



CALL 
DIM 
FOR 
READ 
NEXT 
DATA 
DATA 
D I M 
REM 
FOR 
SCRN 
NEXT 
AFTER 
AFTER 
AFTER 
AFTER 
REM 
READ 



FOR 

READ 

I SUB 

SCRN 

CAL 

NEXT 

DATA 

DATA 

14 
REM 
I SUB 
FOR 
FOR 
CNT 
FOR 
IM 
I F 
I F 
CNT 
NEXT 



CLEAR 
lOFFSETS 



1 

SCRN 



I F 
1 F 
GOTlO 



OFFSETS 
I 



I 
( 
( 
I 

NUjMSUB 
TO 



1 

RlOlWl 



K 

SCRN 
M 
M 



CNT 



ClOL 




K 

SCRN 
CNT 



33 
31 



CNT + 1 



530 



ROW! 
SUB 



HCHAR 
I 
7 



TO 



COL 
1 



3 2 
32 
768 

AL 



AL 



CALCULATE 
34 

ROi^ 



THEN 



ZE 
768 



NUMSUB 



SUB 
THEN 

THEN 



1 

ROW 



31 
33 



ZE 



SUB+PFFSETS 
THEN 



460 
460 



AFTER 



520 



530 



POPULAT 



32H-C0L 
COL 



NEXT 



THEN 



42 



500 



I ON 



GENERAT 



ION 



18 



510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 



SCRN 
SUB 



NEXT 
SUB 



NEXT 

REM 

CALL 



SUB 



CNT = 



FOR 
FOR 
SCRN 



CALL 



SUB 



NEXT 



SUB 



NEXT 
GOTO 
END 



COL 

I SUBl+2 
ROW 
SHOW 
CLEAR 
34 



ROW] 
COL 



SCRN 



SUB 



SUB + 1 



SUB 



ROWl 
370 



HCHAR 
I SUB+1 
COL 



SUB + 2 



THEN 



NEW 



SUB 



SCRN 



ROW 



GENERAT 



AFTER 



530 



SUB 



COL 



THEN 



SCRN 



+ 2 



I ON 



42 



650 



SUB 



Listing 2 Shoot an Arrow 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 



CAL 

REM 

CALL 

CALL 

CALL 

CALL 

CALL 

REM 

CALL 



CALL 

CALL 

CALL 

FOR 

NEXT 

GOTO 

END 



CLEAR 



DEF 



CO I 

T = 
OT 
OT 



CHAR 
CHAR 
CHAR 
SPR I 
SPR 
TEST 
NC 



ION 
PATTERN 
DELAY 
DELAY 
50 



# 

FOR 



THEN 
ION 



SPR 



FF81 



1818181818183C18 
8244218 



814224181 
24 



1 
1 
I 
2 

180 



1 
50 



TES 



BDA5A5BD81 



100 
27 



FF 



Listing 3 


Life 






IDT ' L I F E A ■ 






DEF L I F E A 






R E F VMBW 




ws 


ESS 32 




SCRN 


ESS 768 




GENSCR 


ESS 768 




O F S E T 


DATA -55,-32,-31.- 


1 




DATA 1.51,32.35 




F S TGEN 


DATA 7,555,566,368 


.597,401 ,429,455 


HOO 


BYTE > 




H01 


BYTE > 1 




HO 2 


BYTE > 2 




B L N K 


BYTE > 2 




STAR 


BYTE > 2 A 




AFTER 


BYTE 0,1,1,0 






EVEN 




H2000 


DATA >2000 




L 1 F E A 


LWP 1 WS 


S TART OF PROGRAM 


•CLEAR 


SCREEN ARRAY. 






LI R 1 . 7 6 6 


LOOP COUNTER AND INDEX 


CLEAR 


CLR (gSCRN<R1) 


CLEAR WORD 




DECT R 1 


POINT TO WORD 




I L T I N 1 T 


DONE 




IMP CLEAR 
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Listing 3 


Life continued 






* L A D 


INITIAL GENERATION AND 


DISPLAY. 




I N I T 


MOV 


@FSTGEN,R3 R3=«0F CELLS 






A 


R3,R3 DOUBLE IT FOR WORDS 




I N I T L P 


MOV 


@FSTGEN ( R3 ) , R4 R4 


CONT A INS OFFSET 






MOV B 


@H01 , ®SCRN ( R4 ) 


SCREEN POSITION =1 






DECT 


R3 








I N E 


I N I TLP MORE 


TO DO 






B L 


©SHOWIT SHOW 


INITIAL GEN 






L I M I 


2 ENABLE VDP INTERRUPT FOR QUIT 




•CALCULATE 


NEXT GENERATION. 






C L CGEN 


L I 


R1,33 INDEX(ISUB) 






L I 


H3,22 OUTER LOOP CTR(R0W1 




C L C L P 


L I 


R4 , 30 






•COUNT 


NE IGHBORS . 






C L C N B R 


L I 


R5,0 NEIGHBORS COUNTER(CNT) 






L I 


R6 , LOOP 






NBRS 


MOV 


R1 , R7 COPY 


TO WORK ON 






A 


@0FSET(R6) ,R7 


R7->DISP OF NEIGHBOR 






CB 


@SCRN ( R7 ) , @H00 


NBR = ? 






I EQ 


NXTNBR 


YES 






C B 


@SCRN { R 7 ) , @H0 2 


NBR = 2 ? 






I EQ 


NXTNBR 


YES 






I NC 


R 5 


NEIGHBOR ON 




NXTNBR 


I NCT 


R6 








C I 


R6 , 1 6 


DONE 7 






I L T 


NBRS 


LOOS AT NEXT NEIGHBOR 






CB 


@SCRN ( R1 ) ,@H01 


IS CELL ON NOW? 






I EQ 


CE L LON 


YES 






C I 


R5 , 3 


3 NE IGHBORS ? 






I EQ 


CHANGE 


YES-B I RTH 






IMP 


NOCHG 


NO 




CE L LON 


C I 


R5 , 2 


2 NE I GHBORS ? 






1 EQ 


NOCHG 


YES-SUR V I VE 






C I 


R 5 , 3 


3 NE IGHBORS 7 






I EQ 


NOCHG 


YES-SURV I VE 




CHANGE 


AB 


@H02 , @SCRN ( R1 ) 


BIRTH OR DEATH 




NOCHG 


I NC 


R1 


NEXT CELL 






DEC 


R4 


NEXT COL 






) NE 


CLCNBR 








I NCT 


R1 


SKIP TWO EDGE CELLS 






DEC 


R3 


NEXT ROW 






I NE 


C L C L P 






• RESET 


SCRN 


ELEMENTS TO FOR 


DEAD , 1 FOR ALIVE. 






LI R5 , S3 


I NDEX TO SCRN ( I SUB ) 






LI R3 , 22 


ROW CTR 




LOOP 


LI R4 , 30 






LOOP 1 


MOV B 


@SCRN ( R5 ) , R6 


R6=CELL VALUE IN MSB 






SR L 


R6 . 8 


SHIFT TO LSB 






MOVB 


©AFTER ( R6 ), @SCRN ( R5 ) CHANGE CELL TO OR 1 






I NC 


RS 


NEXT CELL 






DEC 


R4 


NEXT COL 






J N E 


LOOP 1 








I NCT 


R5 








DEC 


R 3 








I NE 


LOOP 








B L 


©SHOWI T 


SHOW NEW GENERATION 






IMP 


CLCGEN 


CALC NEXT GEN 




* SUBROUT I NE 


TO DISPLAY GENERATION ON SCREEN. 




SHOWI T 


L I 


R 5 , 7 6 7 


R5 INDEXES BOTH SCRN 




• 






&GENSCR . 




BLDSCR 


CB 


@H00 , ©SCRN ( R 5 ) 


IS BYTE ( DEAD ) 7 






I EQ 


B LK 


YES 






MOV B 


©STAR , ©GENSCR ( R5 ) 


NO-PUT • IN GENSCR 






IMP 


NX T POS 






B L K 


MOV B 


©B LNK , ©GENSCR ( R 5 ) 


PUT B LANS I N GENSCR 




NX T POS 


DEC 


R S 


POINT TO NEXT CELL 






I L T 


OUTSCR 


DISPLAY IF DONE 






IMP 


BLDSCR 


LOOP IF NOT DONE 




OUTSCR 


C L R 


RO 


VDP RAM ADDRESS (HOME) 






L I 


R1 .GENSCR 


GENSCR CONTAINS DISP DATA 






L I 


R2 , 7Q8 


768 BYTES TO WHITE 






L I M I 











B LWP 


©VMBW 


WRITE SCREEN 






L I M I 


2 








B 


• H1 1 


RETURN 






END 


L I FEA 
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Listing 4 Shoot an Arrow 




99/4 ASSEMBLER 






PAGE 0001 


VERS ION 


1 . 2 








9 001 






I D T 


• SHOOTA ■ 




0902 






D E F 


SHOOTA 




3 






R E F 


VMBW.VSBW.VWTR.VMBR 


0004 


0000 


ws 


B S S 


32 


SPRITE 1 LOCN AND COLOR 


00 5 


00 2 


7C SAL 


BYTE 


>7C,>01.>80.>06 




2 1 


91 










00 2 2 


89 










00 2 3 


9 6 






SPRITE 2 LOCN AND COLOR 


6 


00 2 4 


9 1 


BYTE 


>01,>7C,>81.>01 




2 5 


7C 










2 6 


8 1 










2 7 


91 






TERMI NATOR 


0007 


2 8 


D9 


BYTE 


>D0 


0008 


2 9 


F F SHAPE 


BYTE 


>FF , >81 . >BD . >A5 


, >A5 , >BD , >81 , >FF TARGET 




2 A 


8 1 










99 2 B 


BD 










00 2C 


A 5 










002D 


A5 










2 E 


B D 










00 2 F 


8 1 










00 30 


F F 






, >1 8 , >1 8 , >3C , >1 8 ARROW 


0009 


00 3 1 


1 8 


BYTE 


>18,>18.>18,>18 




3 2 


1 8 










00 3 3 


1 8 










3 4 


1 8 










3 5 


1 8 










3 6 


1 8 










00 3 7 


3C 










00 38 


1 8 






, >1 8 . >24 , >42 , >81 HIT SHAPE 


010 


0039 


81 H I TSHP 


BYTE 


>81 ,>42.>24,>18 




00 3A 


4 2 










3 B 


2 4 










00 3C 


1 8 










00 3D 


1 8 










00 3 E 


2 4 










3 F 


42 










09 40 


81 






SPRITE 1 VELOSITY 


011 


41 


9 9 SPEED 


BYTE 


>09,>64,>99,>99 




4 2 


6 4 










4 3 













0044 


00 






SPRITE 2 VELOSITY 


0012 


0045 


7 F 


BYTE 


>7F , >99 , >99 , >99 




0046 


00 










0047 


00 










0048 


00 




>99 




0013 


0049 


00 HOO 


BYTE 




0014 


004A 


02 H02 


BYTE 


>92 




0015 


004B 


y 1 


B S S 


1 




0016 


004C 


X 1 


B S S 


1 




0017 


004D 


DUMMY 


B S S 


2 




0018 


004F 


Y2 


B S S 


1 




0019 


0050 


X2 


B S S 


1 




0020 


09 5 1 


03 H03 


BYTE 


>9 3 




002 1 


99 5 2 


7 HO 7 


BYTE 


>9 7 




0022 






EVEN 


>9920 




002 3 


9954 


0020 H0020 


DATA 




0024 


9956 


02E0 SHOOTA 


LWP I 


WS 






99 58 


0000 ' 








002 5 




• FILL 


SCREEN WI TH BLANKS . 
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Listing 4 Shoot an Arrow continued 




9 9/4 


ASSEMBLER 








VERSION 1.2 








PAGE 0002 


2 6 


a ffl a 

V V 9 it 


4 C 


C L R 





VDP RAM SCREEN HOME 


2 7 


5 C 


2 01 


L I 


1 ■> 9 11 a fl 

1 f ^ A V V V 


BLANK IN MSB OF R1 




a a c r 

W W 9 b 


2 








2 8 


6 


4 2 




V a D W 


WR i T E BLANK 




6 2 











2 9 


6 4 


5 8 


INC 






5 


6 6 


2 8 


C I 


7 6 8 


DONE? 




6 8 


3 








3 1 


6 A 


1 1 F A 


I L T 


R I N K I T 


NOT YET 


3 2 






•SET UP VDP 


REGISTER 1 




3 3 


6 C 


2 


L I 


> 1 E 


NORMAL SIZED SPRITES 




6 E 


1 E 








3 4 


7 


4 2 


B L W P 








7 2 









3 5 






• SET UP <iPR 


lib nlllDUIb DLVwIk 




3 6 


7 4 


2 01 


i/i«r9Jrli LI 


4 CAT 


R1-MY ATTRIBUTE LIST 




7 6 


2 0' 








3 7 


7 8 


2 


L I 


fl a * A A 
V 1 > tf d V V 


RO->ADDRESS OF VDP SAB 




7 A 


3 








3 8 


7 C 


2 2 


L I 


2 9 


9 BYTES TO WR I T E 




7 E 


9 








3 9 


a a R a 

W W O V 


4 2 


B L WP 


@ V M B W 


WRITE TO VDP RAM 




8 2 











4 






•LOAD SPRIT 


b i/briiiiii^^no 




4 1 


8 4 


2 01 


L I 


1 6 U 8 P P 

1 , a n A r £• 


R1->MY SPRITE SHAPES 




8 6 


2 9' 








4 2 


8 8 


2 


L I 


fl fl d fl fl 


ADDRESS OF FIRST SPRITE 




8 A 


4 








4 3 


8c 


2 2 


L I 


2 16 


16 BYTES TO MOV E 




8 E 


010 








4 4 


9 


4 2 


B LWP 


V M R W 


WRITE TO VDP RAM 




9 2 


8 2' 








4 5 






•SET UP SPR 


ITF MOTION TARIP 

lib Pi\J I I V n lAOLb. 




4 6 


9 4 


2 


L I 


, >0 780 


R0->MOTION TABLE IN VDP RAM 




9 6 


7 8 








4 7 


fl a Q R 

V W 9 o 


2 01 


L I 


1 , S P E ED 


R1->MY SPEED DATA 




9 A 


41' 








4 8 


A fl Q P 

V W 9 W 


2 2 


L I 


2 , 8 


8 BYTES TO MOVE 




9 E 


8 








4 9 


A 


4 2 


B LWP 


@VMBW 


WR I T E 




eOA2 


9 2' 






00 5 






•SET NUMBER 


OF MOVING SPRITES 




00 5 1 


00A4 


D820 


MOV B 


@H0 2 , @>8 3 7A 


2 MOVING SPRITES 




00A6 


004A ' 










00A8 


8 3 7 A 








005 2 






•MAKE SPRITES MOVE BY INTERRUPT FROM 9901 I/O BOARD. 


0053 


00 AA 


0300 


MOV E I T L I M I 


2 


ENABLE INTERRUPT 




00 AC 


0002 






0054 






•CHECK FOR 


COINCIDENCE . 




5 5 


A E 


0300 


L I M I 





DISABLE VDP INTERRUPT 




OOBO 


0000 






0056 






•GET SPRITE 


POSITIONS. 




00 5 7 


00 B 2 


0200 


L I 


, >0300 


RO->Y OF SPRITE IN VDP RAM 




00B4 


0300 






00 5 8 


B 6 


0201 


L I 


1 , Y 1 


BUFFER FOR READ 




B 8 


4 B ' 








0059 


B A 


0202 


L I 


2 , 6 


6 BYTES TO READ 




B C 


0006 








0060 


B E 


4 2 


B LWP 


@VMB R 


READFROMVDPRAM 
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Listing 4 Shoot an Arrow continued 



99/4 ASS EMB L ER 
VERSION 1.2 
OOCO 

0061 



PAGE 0003 



0000 



6 2 


C 2 


B 8 2 




C 4 


5 1 




C 6 


5 


6 S 


C 8 


7 8 2 




C A 


4 C 




C C 


5 


6 4 


C E 


1 1 E D 


6 5 


D 


9 8 2 




D 2 


5 




4 


5 2 


6 6 


D 6 


1 5 E 9 


6 7 






0068 


00D8 


B 8 2 




D A 


5 2 




D C 


4 F 


0069 


D E 


7 8 2 




E 


4 B 




E 2 


4 F 


7 


E 4 


1 1 E 2 


7 1 


E 6 


9 8 2 




E 8 


4 F 




E A 


5 2 


7 2 


E C 


1 5 D E 


00 7 3 






7 4 






00 7 5 


00 E E 


0201 




00 FO 


0039 


00 7 6 


00 F 2 


0200 




00F4 


0400 


00 7 7 


00F6 


2 2 




F 8 


0008 


00 7 8 


F A 


4 2 




F C 


eOA2 


0079 






0080 


OOFE 


0203 




010 


0OOA 


0081 


10 2 


0202 




010 4 


2 E E 


0082 


0106 


60 2 


008 3 


10 8 


1 6 F E 


8 4 


01 OA 


0603 


0085 


01 OC 


1 6 FA 


0086 


01 OE 


1 B 2 


0087 






L 






9 9/4 


ASS EMB L ER 


VERS ION 1.2 




' B L N K I T 


0060 


' H0020 


0054 


• H I T S H P 


0039 


RO 




0000 


R 1 2 


oooc 


R 2 




0002 


R 6 




0006 


' SAL 


0020 


E VMB R 


OOCO 


• WS 




0000 


• Y 2 




4 F 



CHECK COLUMNS FOR X 1 < = X 2 + 3 < = X 1 + 7 
AB @H03,@X2 



S B 



I L T 
C B 



1 ■ 



MOVE I T 
@X2 . @H07 



X 2 = X 2-1-3 
X2+X2-X1 



NO H I T IF RESULT >0 
COMPARE TO 7 



I GT MOV E I T 



NO HIT IF RESULT >7 



• CHECKS ROWS FOR Y 1 < = Y 2 -f 7 < = Y 1 -H 7 . 



A B 



S B 



I LT 
C B 



@H07 , @Y2 



1 , 



MOV E I T 
@Y2 , @H0 7 



I GT MOV E I T 

• HIT 

•CHANGE SPRITE DEFINITIONS. 

LI 1 , H I T S H P 

LI , > 4 

LI 2,8 

BLWP @VMBW 



I WA I T 



TO LET BLOW UP BE SEEN 
LI 3,10 



LOOP 2 A LI 



L OO P 2 



DEC 
I N E 
DEC 
I N E 
IMP 
END 



2,12000 



LOOP 2 
3 

L 00 P 2 A 
D E F S P R 
S HOO T A 



Y2 = Y2-f 7 
Y2=Y2-1 

NO HIT IF RESULT <0 

NO HIT IF RESULT >7 

R1->HIT SHAPE 
RO->VDP RAM 
8 BYTES TO LOAD 
WRITE TO VDP RAM 

OUTER LOOP CTR 

LOOP CUONTEH 

DECREMENT 
WA I T MOR E 

DECREMENT OUTER CTR 
WA I T MOR E 
START OVER 



• D E F S P R 


00 7 4 




DUMMY 


004D 


' HOO 


' HO 2 


4 A 




HO 3 


0051 


' HO 7 


• L00P2 


0106 




LOOP 2 A 


0102 


• MOV E I T 


R 1 


0001 




RIO 


OOOA 


R 1 1 


R 1 3 


OOOD 




R1 4 


000 E 


R 1 5 


R 3 


000 3 




R4 


0004 


R 5 


R 7 


0007 




R 8 


0008 


R9 


' SHAPE 


0029 


D 


SHOOT A 


00 5 6 


' SPEED 


E VMBW 


OOFC 


E 


V S BW 


0062 


E VWT R 


• X 1 


4C 




X2 


0050 


• Y1 



PAGE 0004 
0049 
00 5 2 
00 AA 
000 B 
OOOF 
0005 
0009 
0041 
0072 
4 B 



0000 ERRORS 
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MAGIC CRAYON 




Learning 

Assembly Language 
The Hard Way 



Like many other 99'ers, I was anxious to receive the 
long-awaited Editor/Assembler package. I remember 
the excitement of unwrapping the 470 page manual 
when it arrived— and the sinking feeling when I read, "This 
manual assumes that you already know a programming 
language, preferably an assembly language." 

My anxiety grew as I thumbed through it— there were no 
pictures, cartoons, or fill-in-the-blank examples. It did say, 
"There are many fine books available which teach the basics 
of assembly language." So I called the local computer stores. 
The only books they were aware of, however, also assumed 
familiarity with basics. 

I guess I had some fuzzy ideas about assembly language 
in the back of my mind: It was qualitatively different from 
higher level languages, requiring an in-depth knowledge of 
digital electronics and a capacity for the most detailed sort 
of logical-mathematical thought. In short— nothing seemed 
more difficult. . . 

And my experience thus far seemed to confirm my worst 
fear. Learning assembly language presumed a prior 
knowledge of assembly language; it was not merely 
difficult— it was impossible. After running Tombstone Ci- 
ty a few times and typing in Pat Swift's Life program (See 
"Fundamentals of Assembly Language Programming, Part 
1 "), I put the Editor/ Assembler on a shelf thinking maybe 
I'd learn about it gradually over the next year or two. 

It would still be there gathering dust were it not for a back 
injury that kept me flat on the floor, unable to do anything 
except read the manual. I was surprised to discover that 
writing an assembly language program is similar to, and in 
some respects simpler than, writing a program in BASIC. 
A new programming context or conceptual model is re- 



quired. But to get started, I found that this picture could 
be primitive, containing many over-simplifications and 
approximations. 

The picture I developed enabled me to successfully for- 
mulate and execute a simple programming objective. The 
program and associated underlying concepts are presented 
here to facilitate the learning process for others who, like 
me, find it hard to overcome preconceived notions about 
how difficult assembly language is. The program should not 
be taken as a model of exemplary programming technique; 
at this point my conception of "good programming" is pro- 
gramming that works . . . period. You will undoubtedly be 
able to find ways to improve this one — to make it work 
faster and utilize memory more efficiently— and in so do- 
ing, further develop the concepts presented. 

In TMS9900 Assembly Language, four video display 
modes are available: Graphics (or Pattern) Mode, Text 
Mode, Bit-Map Mode (99/4A only), and Multicolor Mode. 
In Multicolor Mode, the screen is divided into a grid 64 x 
48, with each box measuring 4 pixels on a side. Each box 
can have a color assigned to it. 

The program allows use of a joystick to move a flashing 
cursor on the screen. Whenever the fire button is depress- 
ed, the cursor leaves a trail of small, colored boxes. The 
following single key commands are available: 

C— Change Color. Displays a color palette and pointer. 
Move the pointer to the desired color with the joystick. Press 
the fire button to make that the color of the boxes, or press 
the C key to make it the color of the screen background. 

S— 5ave Screen. Saves the current contents of the screen 
as DSKl. SCREEN. 
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R— Recall Screen. Loads the contents of DSKl. SCREEN 
for subsequent modification. 

E— Erase Screen. Erases the screen contents. 

T — Terminate. Returns to the Master Title Screen. 

In order to understand how the program works, it will 
be helpful to differentiate two systems. You probably know 
that the Central Processing Unit (CPU) in the Home Com- 
puter is the TMS9900. It has three built-in 16-bit "hard- 
ware" registers (the Program Counter, Workspace Pointer, 
and Status Register) and makes use of sixteen workspace 
registers located in read-write memory. Because these 16-bit 
workspace registers are not located on the chip, they are 
called "software" registers. The CPU can directly address 
the read-write memory (RAM) in the Memory Expansion 
Unit and CPU scratch pad, as well as ROM in the console, 
Command Cartridges, and various peripherals. However, 
it cannot directly address the 16K of RAM built into the 
console. 

The 16K RAM block is addressed by another 
microprocessor — The TMS99I8 (or 991 8A if you have a 
99/4A). This Video Display Procesor (VDP) has eight 8-bit 
hardware registers and four 8-bit software registers. The 
software registers are located in read-write memory loca- 
tions which can also be addressed by the CPU. The fact 
that these four bytes can be addressed by both the CPU 
and VDP makes it possible for the CPU and VDP systems 
to transfer data back and forth. The CPU addresses of the 
registers— 8800, 8802, 8C00, 8C02— are assigned respectively 
to the symbols VDPRD (VDP Read Data Address), 
VDPSTA (VDP Read Status Register), VDPWD (VDP 
Write Data Address), VDPWA (VDP Write Address). 

We don't have to be concerned with the details of mov- 
ing data to and from VDP RAM and to VDP registers, 
however, thanks to some of the built-in programs called 
utilities. The five utilities of use are identified by the sym- 
bols VSBW, VMBW, VSBR, VMBR, and VWTR. The 
respective functions of these programs are VDP RAM: 
Single Byte Write, Multiple Byte Write, Single Byte Read, 
Multiple Byte Read, and Write to Register. User workspace 
registers are used to pass parameters — e.g., the number of 
bytes to read or write — to the utility. 

The standard utilization of VDP RAM in the 
Editor/ Assembler is shown on Table 1 . The blocks involved 
in the multicolor mode are the Screen Image and Pattern 
Descriptor Tables. Before entering multicolor mode, the 
Screen Image Table is initialized. The 768 bytes of the table 
are divided into six 128-byte sets. Each set is further sub- 
divided into four 32-byte groups. To initialize the table, the 
numbers I -3 1 are written in order into each of the four 
32-byte groups in the first set: 0, I, 2,. . . 31 four times. 
Then the numbers 32-61 are written four times into the next 
128-byte set. This process is continued until the numbers 
160-191 are written four times in the sixth 128-byte set. In 
my program, I didn't want this process to be visible on the 
screen, so I first put the display in Text Mode and made 
the foreground and background colors gray. 

Once the Screen Image Table is initialized, color boxes 
are placed on the screen by means of the Pattern Descrip- 
tor Table. Each 4x4 pixel box on the screen corresponds 
to half a byte in the Pattern Descriptor Table. To place a 
colored box on the screen, the appropriate color code is writ- 



Table 1 VDP RAM MEMORY 

— Editor/Assembler— 



Address of 


Length 




First Byte 


Ot DiOCK, 


Contents 


Decimal 


Hex 


Bytes 




n 
U 


^ nnnn 
>uuuu 


7ftft 
fOO 


C^fAAn limonA Tohtlfi 

ocr66n imay" i ciDie 


7Rfi 
I uo 


^ \JO\JKJ 




Qi^ritA AftriKiiio 1 ict 
oprilc MlinUUlc Llol 


896 


>0380 






1024 


>0400 


896 


Snritp np^crintnr Table 


1920 


>0780 


128 


Sprite Motion Table 


2048 


>0800 


2048 


Pattern Descriptor Table and 








Peripheral Access Blocks 


4096 


>1000 


10199 


More Peripheral Access 








Blocks and Buffers 


14295 


>37D7 


2089 


Reserved for Diskette Device 








Service Routines 


16383 


>3FFF 




Last Address 



Total 16384 Bytes 

ten in the nybble (4 bits) in the Pattern Descriptor Table 
which corresponds to the desired screen position. 

The first eight bytes of the Pattern Descriptor Table cor- 
respond to the boxes in a column beginning in the upper 
left corner of the screen. The first four bits in byte #1 con- 
tain the color of the box in the extreme upper left comer, 
and the last four bits the color of the box immediately to 
the right of the first box. Byte #2 contains the colors of the 
two boxes immediately under the first two, and so on for 
the first eight bytes. 

The ninth byte in the table contains the colors for the pair 
of boxes in a new column beginning again at the top of the 
screen. Subsequent bytes follow this pattern corresponding 
to 32 columns of box pairs with eight pairs in each column. 
This group of 256 bytes thus takes care of the top sixth of 
the screen. 

The 257th byte corresponds to the beginning of a new 
column of box pairs starting again on the left side of the 
screen. The six 256-byte groups thus correspond to the 3,072 
possible boxes in multicolor mode. [Since the color of each 
box is indicated in a name table in memory, and the names 
are mapped onto the screen according to their position in 
the table, this multicolor mode is a true memory-mapped 
configuration. It does, however, trade off lower resolution 
for color memory-mapping capability, but the high- 
resolution sprites are still available. For an explanation of 
sprites and an introduction to the high-resolution bit-map 
mode, see "3-D Animation".— Ed.] 

In the program, a double-size sprite provides a reference 
point for determining where boxes will appear. The dot row 
and dot column of the sprite can be determined at any time 
by referring to the Sprite Attribute List in VDP RAM. Then, 
since boxes are supposed to appear in the center of the sprite, 
the screen location can be calculated by adding 8 to the dot 
row and dot column, which represent the sprite's upper left 
corner. But in order to find the corresponding location in 
the Pattern Descriptor Table, a few more calculations must 
be performed. 

If we let R and C be the dot row and dot column desired 
for the box location, the number of complete 256-byte 
groups above that location is the integer quotient of R/32. 
Multiplying that number by 256 thus gives the first compo- 
nent of the offset in the Pattern Descriptor Table. 

Similarly, the integer quotient of C/8 gives the number 
of complete 8-byte columns to the left of the location. So 
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that number is multiplied by 8 and added to the offset. 
Dividing the remainder of R/32 by 4 gives the number of 
bytes above the location in the 8-byte column the location 
is in. Adding that to the offset gives the offset for the byte 
in the Pattern Descriptor Table. 

But we still have to know if the desired location is the 
most or least significant nybble of the byte, and to deter- 
mine that we can divide the remainder of C/8 by 4. If the 
integer quotient is 0, it's the left nybble; if 1, it's the right 
nybble. The appropriate color code then need only be placed 
in the correct nybble Oeaving the other one unchanged), and 
the box appears just where it should. 

Let's consider an example: Suppose the upper left cor- 
ner of the sprite were at dot row 83 and dot column 147. 
The center of the sprite would then be at 91 and 155. The 
number of complete groups (32 columns with 8 bytes in 
each) above that location is 2, i.e., INT(91/32). So the in- 
itial component of the offset is 2 * 256 or 512 bytes. The 
number of 8-byte columns to the left of the location is 
lNT(155/8) or 19. That makes the offset 531. Above the 
location, in its 8-byte column, there are 6 bytes— i.e., 
INT((remainder 91/32)/4)— giving an offset of 537. The re- 
mainder of 155/8 is 3, and INT(3/4) is 0, so the nybble of 
interest is the most significant (left) one of the 539th byte 
of the Pattern Descriptor Table. 

Now let's take a brief look at the source listing. The first 
section consists of a number of assembler directives. The 
DEF directive makes the symbol MARKER available to 
other programs, and the REF directives make several utilities 
available for use of MARKER. Then there is a variety of 
other assembler directives. The simplest type is EQUate, 
which assigns a constant to a symbol at assembly time. 
USRWS, for >20BA (8378), and that value replaces the 
symbol wherever it appears in an operand; the label may 
subsequently be substituted for the number. 



The mnemonic ESS stands for Block Starting with Sym- 
bol. This directive causes the assembler to advance its loca- 
tion counter without writing anything into the object pro- 
gram. It leaves an empty area (of the number of bytes 
specified in the operand) which can then be used as a storage 
space for data later on. The label is set equal to the memory 
location of the first byte in the block at the time the object 
program is loaded. (Since this program is relocatable, the 
place where the loader program decides to start loading it 
may change, depending on what other programs have 
already been loaded.) 

The DATA, BYTE, and TEXT directives are similar to 
BSS except that the contents of the buffer are explicitly 
defined in the operand field. The label is assigned the ad- 
dress of the first byte at the time the object program is load- 
ed. All of these buffer areas are contiguous. For example, 
look at the instructions immediately after the label 
MARKER. The pattern codes for two double-size sprites, 
the cursor and arrow, are loaded into the Sprite Descriptor 
Table in VDP RAM. Since the pattern data for ARROW 
is contiguous with that of CURSOR in both CPU and VDP 
RAM, all 64 bytes can be loaded in one shot. 

You should have little trouble figuring out the rest of the 
program by reading the comments provided and referring 
to the manual. But don't stop after you understand how 
it works— try to make some changes. To start with, try 
changing the shape and colors of the sprite cursor, the ar- 
rangement of the color palette on the screen, etc. Then try 
to make the program more efficient in speed and utiliza- 
tion of memory. 

Be prepared to run into problems; it's through encounter- 
ing and solving them that you'll learn most rapidly. When 
I decided to stop reading and start trying to write a pro- 
gram, I had visions of seeing a curl of white smoke rise from 
the computer's cooling vents, but that didn't happen to me 
and probably won't happen to you either. So don't be afraid 
to experiment. mrbi 
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1 lef inn 


Magic Crayon 






D E F 


MARKER 






R E F 


V S BW , 


VMBW.VMBR.VSBR 




R E F 


VWT H , 


KSCAN.DSRLNK 




* r. «. . 

* D E F I 


N I T I ON 


OF LABELS 




* 

SCREEN 


B S S 


> 3 9 






P A L E T 


B S S 


> 6 9 






P A T R N 


B S S 


> 6 9 9 






ROW 


B S S 


1 






COL 


B S S 


1 






CURSOR 


DATA 


> 8 9 4 9 


>2919 , >9894 


, >9999 




DATA 


> 9 9 9 9 


, >9498 , >1929 


, >4989 




DATA 


> 9 1 9 2 


,>9498,>1929 


, >9999 




DATA 


> 9 9 9 9 


, >2919 , >9894 


. >9291 


n D D TIT 

A H H O W 


DATA 


> 9 1 9 2 


,>9498,>9999 


, > 9 9 9 9 




DATA 


> 9 9 9 9 


, >0999 , >9999 


, >9909 




DATA 


> 9 9 8 9 


, >4020 , >9999 


, > 9 




DATA 


> 9 9 9 9 


>9090 , >9999 


, > 9 9 9 


It T 1* O f □ 

A 1 T n 1 


DATA 


> 5 8 7 8 


, >809F , >D999 




A n n A T T 


DATA 


> 6 5 7 8 


> 8 4 9 1 




P D A T A 


DATA 


> 9 6 9 9 


!>1099,>9999 


. >96g9 




DATA 


> 9 9 B 








TEXT 


' D S K 1 


SCREEN ' 




ZERO 


DATA 


> 9 9 9 9 






D 3 2 


DATA 


> 9 9 2 9 






D 8 


DATA 


> 9 9 9 8 






GRAY 


DATA 


> E E E E 






MAX 


DATA 


> 9 5 F F 






CO L M A X 


DATA 


> 9 1 9 9 






LOAD 


BYTE 


> 9 5 






BLACK 


BYTE 


> 1 1 






ONE 


BYTE 


> 9 1 






TWO 


BYTE 


> 9 2 






r C O L O n 


BYTE 


> 1 9 






O C O L O H 


BYTE 


> 9 E 






H 1 8 


BYTE 


> 1 2 






H 1 4 


BYTE 


>9 E 






H 1 1 


BYTE 


> 9 B 






H 7 


BYTE 


>0 7 






HOG 


BYTE 


>06 






H S 


BYTE 


>9 5 






H 2 


BYTE 


>92 






N K E Y 


BYTE 


> F F 






P A B 


EQU 


>9F89 






U S R W S 


E QU 


> 2 9 B A 






P N T R 


EQU 


> 8 3 5 6 






UNIT 


EQU 


> 8 3 7 4 






FIRE 


EQU 


>837 5 






I Y S T Y 


EQU 


> 8 3 7 6 






I Y S T X 


EQU 


> 8 3 7 7 






S P R I T E 


EQU 


> 8 3 7 A 






STATUS 


EQU 


> 8 3 7 C 






G P L W S 


EQU 


> 8 3 E 9 






* 

• D E F I 


N E S P R 


I TE PATTERNS FOR 


CHRS 128 AND 132 


* 

MARKER 


LWP I 


U S RWS 




LOAD WORKSPACE POINTER / START 




L I 


R 9 . > 4 9 


VDP ADDRESS CH 128 SPRITE DESCRIPTOR TABLE 




L I 


R1 .CURSOR 


CPU ADDRESS OF CHAR PATTERN 




L I 


R 2 , 6 4 




64 BYTES TO MOVE (2 PATERNS) 




B L WP 


@VMBW 




LOAD DATA TO VDP RAM 


* 

• SET 


FOR EGROUND 


AND BACKGROUND TO GRAY 


* 


L I 


R 9 , > 9 1 F 9 


PLACE IN TEXT MODE 




B LWP 


@ VWT H 




WRITE TO VDP R1 




L I 


R 9 . > 9 7 E E 


SET FORE AND BACKGROUND TO GRAY 




B LWP 


@ V W T R 




WRITE TO VDP R7 


* 

• I N I T 


I A L I Z E 


SCREEN IMAGE TABLE FOR MULTICOLOR MODE 


* 


L I 


R9 . SCREEN 


INITIALIZE POINTER 




L I 


R 1 . 6 




INITIALIZE GROUP COUNTER 




C L R 


R 2 




INITIALIZE VALUE 


L OO P 


L I 


R 3 , 4 




INITIALIZE REPETITIONS COUNTER 


LOOP 1 


L I 


R 4 , > 2 9 


INITIALIZE VALUE COUNTER 




MO V B 


R 2 , R 5 




START REPETITION 


L OO P 2 


MO V B 


R 5 . • R 9 + 


STORE VALUE IN ARRAY SCREEN 




A I 


R 5 , > 9 1 9 9 


CHANGE TO NEXT VALUE 




DEC 


R 4 




COUNT DOWN FOR NEXT VALUE 




J N E 


LOOP 2 




DO NEXT VALUE 




DEC 


R 3 




DEC REPETITION COUNTER 
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Listing 1 Magic Crayon continued 



I N E 


LOOP 1 


DO N 


EXT REPETITION 




A I 


R2 , >2e09 


NEXT 


START I NG VALUE 




DEC 


R 1 


DEC 


GROUP COUNTER 




I N E 


LOOP 


DO N 


EXT GROUP 




L I 


R , >oe 


VDP 


ADDRESS FOR SCREEN 


I MAGE 


L I 


R1 , SCREEN 


CPU 


ADDRESS OF DATA BUF 


F E R 


L I 


R 2 , >se9 


768 


BYTES TO WR I TE 




B LWP 


@VMBW 


I N I T 


I AL I Z E VDP SCREEN I 


MAGE 



INITIALIZE COLOR PALETTE SCREEN 



LOOPS 



LOOP 4 
LOOP 5 



L OO P 6 



LOOP 7 



L I 
L I 
MOV 
DEC 
I N E 
C L R 
L I 
L I 

MOV B 
MO V B 
MOV B 
L I 

MOV B 
DEC 
J N E 
MO V B 
DEC 
I N E 
SWP B 
A I 

SWP B 
DEC 
I N E 
L I 

MOV B 
DEC 
I N E 



RO 
R1 



>1 ao 

P A L E T 



R 1 + 



@GR A Y , 
RO 

LOOPS 
RO 

R S , 1 6 
R 4 , 2 
©GRAY , 
®GR A Y , 
©BLACK , 
R 5 , 4 
R , • R 1 + 
R 5 

LOOP 6 
©BLACK 
R 4 

LOOPS 
R 

R , > 1 1 

RO 

R S 

LOOP 4 
RO , >S00 
©GRAY , * R1 + 
RO 

LOOP 7 



• R 1 + 

* R 1 + 
, * R 1 + 



• R 1 + 



INITIALIZE 
INITIALIZE 
STORE GRAY 
DEC WORD COUNTER 
WRITE NEXT WORD 
INITIALIZE 
INITIALIZE 
INITIALIZE 
STORE GRAY 
STORE 
STORE 



WORD COUNTER 

POINTER FOR PALET ARRAY 
COLOR >EEEE 



COLOR VALUE 
COLOR COUNTER 
COLUMN COUNTER 
BYTE 

ANOTHER GRAY BYTE 
BLACK BYTE 



LOAD COUNTER FOR COLOR BYTES 

STORE A COLOR BYTE 

DEC COLOR BYTE COUNTER 

STORE ANOTHER COLOR BYTE 

STORE A BLACK BYTE 

DEC COLUMN COUNTER 

DO SECOND COLUMN 

SHIFT TO LEAST SIG BYTE 

ADD 1 FOR NEXT COLOR NUMBER 

SHIFT BACK TO MOST SIG BYTE 

COUNT DOWN COLOR COUNTER 

DO NEXT TWO COLUMNS 

SET BYTE COUNTER FOR REMAINING 

STORE A GRAY BYTE 

COUNT DOWN 

REPEAT UNTIL DONE 



SCREEN 



* INITIALIZE PATTERN TABLE - TRANSPARENT 

* 

CLEAR 
LOOPS 



L I 
L I 
MOV 
DEC 
I N E 



RO , >300 
R1 , PATRN 
©ZERO, "RH- 
RO 

LOOPS 



INITIALIZE WORD COUNTER 

INITIALIZE POINTER FOR PATTERN ARRAY 
STORE COLOR TRANSPARENT 
COUNT DOWN FOR NEXT WORD 
WRITE NEXT WORD IN ARRAY 



LOAD PATTERN TABLE 

LI RO , >800 

LI R1 , PATRN 

LI R2 , >600 

BLWP ©VMBW 



VDP PATTERN TABLE ADDRESS 
CPU BUFFER ADDRESS 
15S6 BYTES TO WRITE 
WRITE TO VDP RAM 



* SELECT DOUBLE SIZE AND MULTICOLOR MODE 



LI RO,>eiEA 

BLWP @VWTR 

SWPB RO 

MOVB R0,©>S3D4 



R1 



TO WRITE 11101010 TO VDP 
WR I TE TO VDP R1 

MOVE >EA TO MOST SIG BYTE 

STORE COPY (>EA) IN CPU RAM 



DEFINE ATTRIBUTES FOR SPRITE fO 



LI RO , >300 

LI R1 , ATTR I B 

LI R 2 , 6 

BLWP ©VMBW 

DEFINE # OF ACTIVE SPRITES 

MOVB ©ONE, ©SPRITE 

INITIALIZE CURSOR COLOR AND 



VDP SPRITE ATTRIBUTE LIST 
LOCATION OF ATTRIBUTE LIST 
6 BYTES TO MOVE 
WRITE DATA TO VDP RAM 



FOR SPRITE 



L I 
C L R 



R 3 , > F 1 
R 4 



STORE NO. OF ACTIVE SPRITES IN CPU RAM 
COLOR CHANGE COUNTER 



SPRITE COLORS - WHITE/BLACK IN RS 
INITIALIZE COUNTER - COLOR CHANGE 



START MAIN LOOP 

CHECK lOYST FOR MOTION, FIRE BUTTON AND KEYS 



CHECK 



L I M I 
L I M I 



ENABLE INTERRUPTS 
DISABLE INTERRUPTS 
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Listing 1 Magic Crayon continued 




L I 


R , 1 


INDICATE REPETIONS OF CHECKS 




B L 


@CH E C K S 


BRANCH TO SUBROUTINE CHECKS 




MO V B 


@ON E , @U N I T 


SELECT REMOTE UNIT TO SCAN 




B LWP 


@K S C A N 


SCAN LEFT KEYBOARD 




C B 


@F I R E , @H 5 


WAS • Z ■ PRESSED? 




I EQ 


CLEAR 


IF YES GO TO CLEAR SCREEN 




CB 


@F1RE,@H02 


WAS "S" PRESSED? 




I N E 


N E X T 1 


IF NOT, GO ON 




B 


@ S A V E 


IF SO, BRANCH TO SAVE ROUTINE 


N E X T 1 


C B 


@FIRE,@H06 


WA S "R" PRESSED? 




I N E 


N E X T 2 


IF NOT , GO ON 




B 


@R E C A L L 


IF SO, BRANCH TO RECALL ROUTINE 


N E X T 2 


C B 


@F I R E , @H 1 1 


WAS -T- PRESSED? 




I N E 


N E X T 3 


IF NOT , GO ON 




L I M I 


2 


ENABLE INTERRUPTS 




LWP I 


GP LWS 


LOAD GPL WORK SPACE 




B LWP 


@o a 


RETURN TO MASTER TITLE SCREEN 


N E X T 3 


C B 


@F I R E , @H 1 4 


WAS -C- PRESSED? 




I N E 


N E X T 4 


IF NO , GO ON 




B 


©SELECT 


IF YES, GO TO COLOR SELECT ROUTINE 


N E X T 4 


C B 


@ F I R E , @H 1 8 


WAS FIRE BUTTON PRESSED? 




I N E 


SKIP 


IF NO, SKIP DRAW ROUTINE 


• ROUTINE TO PLACE BLOCK ON 


SCREEN 


DRAW 


L I 


RO . >300 


VDP SPRITE ATTRIBUTE ADDRESS 




L I 


R 1 .ROW 


CPU BUFFER TO RECEIVE DATA 




L I 


R 2 , 2 


FETCH 2 BYTES 




B L WP 


@VMB R 


FETCH DOT ROW AND DOT COLUMN 




C L R 


R 7 


INITIALIZE R7 AND R8 




C L R 


R8 


--FOR USE IN DIVIDE OPERATION 




C L R 


R 2 


INITIALIZE OFFSET FOR PATRN ARRAY 




MO V B 


@ROW , R 8 


PUT DOT ROW IN R8 




SWP B 


R8 


MAKE IT LEAST SIG BYTE 




A I 


R8 , 9 


ADD ROW OFFSET FOR COLOR BLOCK +1 




C 


R8 , @COLMAX 


IS THE DOT ROW > 255? 




I L T 


NOCOR R 


IF NOT, DO NOT APPLY CORRECTION 




S 


@COLMAX , R8 


IF SO. SUBTRACT 255 


NOCOR R 


D I V 


@D 3 2 , R 7 


DIVIDE DOT ROW OF BLOCK BY 32 




SLA 


R 7 , 8 


CALCULATE BYTES IN PRECEEDING GROUPS 




A 


R 7 . R 2 


ADD t OF BYTES IN PREVIOUS 32X8 BYTE GROUPS 




S R L 


R8 , 2 


DIVIDE REMAINDER BY 4 




A 


R8 , R2 


ADD f BYTES ABOVE IN CURRENT 8 BYTE SET 




C L R 


R 7 


INITIALIZE R7 AND R8 




C LR 


R8 


--FOR USE IN DIVIDE OPERATION 




MOV B 


@C0 L , R 8 


PUT DOT COLUMN IN R 8 




SWP B 


R8 


MAKE IT LEAST SIG BYTE 




A I 


R 8 , 8 


ADD COLUMN OFFSET FOR COLOR BLOCK 




C 


R8 . @COLMAX 


IS THE DOT COLUMN > 255? 




I L T 


NOCOR C 


IF NOT. DO NOT APPLY CORRECTION 




S 


@CO LMA X , R 8 


IF SO, SUBTRACT 256 


NOCOR C 


D I V 


@D 8 , R 7 


DIVIDE BY 8 




SLA 


R 7 . 3 


CALCULATE BYTES IN PRECEEDING 8 BYTE SETS 




A 


R 7 , R 2 


ADD « BYTES IN PREVIOUS 8 BYTE SETS, THIS GROUP 




MOV 


R 2 , R 2 


CHECK IF INSIDE PATTERN ARRAY N 




I L T 


SKIP 


IF NOT SKIP SCREEN PLACEMENT 




c 


R 2 , @M A X 


CHECK IF INSIDE PATTERN ARRAY EEN 




I GT 


SKIP 


IF NOT SKIP SCREEN PLACEMENT 




L I 


R 9 , > 1 4 


REPEAT SUBROUTINE CHECKS 20 TIMES 




B L 


©CHECKS 


BRANCH TO SUBROUTINE CHECKS 




C L R 


R 1 


INITIALIZE R1 FOR BLOCK COLOR 




MO V B 


©FCOLOR . R 1 


STORE COLOR IN R1 




SWP B 


R 1 


MAKE IT LEAST SIG BYTE 




C L R 


R9 


INITIALIZE RO FOR CURRENT ARRAY ELEMENT 




MOV B 


@PATRN 1 2 ) , R9 


COPY ARRAY ELEMENT AT OFFSET INTO RO 




S R L 


R8 . 2 


CALCULATE WHETHER BLOCK IS LEFT OR RIGHT 




I EQ 


MARK1 


IF LEAVE BLOCK AS LEFT NYBBLE 




S R L 


R 1 , 4 


IF 1 MAKE BLOCK RIGHT NYBBLE 




SWP B 


RO 


MAKE CURRENT ELEMENT LEAST SIG BYTE 




S R L 


RO . 4 


GET RID OF LEAST SIG NYBBLE 




SLA 


RO , 4 


PUT REMAINING NYBBLE BACK 




IMP 


MA R K 2 


SKIP TO LABEL 


MAR S 1 


SLA 


RO . 4 


GET RID OF MOST SIG NYBBLE 




S R L 


R . 4 


PUT BACK REMAINING NYBBLE 




SWP B 


RO 


MAKE IT LEAST SIG BYTE 


MA R K 2 


A 


R 1 , R 


ADD NEW COLOR TO ADJACENT VALUE 




SWP B 


RO 


MAKE IT MOST SIG BYTE 




MO V B 


R0,@PATRN(2) 


MOVE IT TO ARRAY AT OFFSET 




L I 


RO , >0800 


VDP PATTERN TABLE ADDRESS 




L I 


R 1 , P A T R N 


CPU BUFFER 




L I 


R2 , >600 


1536 BYTES TO MOVE 




B LWP 


@VMBW 


WRITE TO REDRAW SCREEN 
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Listing 1 Magic Crayon continued 




SKIP 


C L R 


R 5 


CLEAR R5 AND R6 TO RECEIVE lOYST VALUES 




C L R 


R 6 








M V B 


(gjOYSTY , R5 


PUT Y RETURN IN R5 






N E G 


R 5 


MULTIPLY BY -1 






SLA 


R 5 , 2 


MUtTtPiv nv a 






MO V B 


@IOYS TX . R6 


PUT X RETURN IN R6 






SLA 


R 6 , 2 


MULTIPLY TIMES 4 






S W P B 


R 6 


MAKE XVEL LEAST SIG BYTE 






MO V B 


R 5 , R 6 


MOVE YVEL TO R6 AS MOST SIG BYTE 






L I 


R 1 , U S RWS + 1 2 


CPU ADDRESS OF VELOCITY BYTES (R6) 






L I 


R 9 , > 7 8 


VDP ADDRESS OF MOTION TABLE 






L I 


R 2 , 2 


2 BYTES TO MOVE 






B LWP 


@VMBW 


WRITE DATA TO VDP RAM 






B 


©CHECK 


START LOOP OVER AGAIN 






- END 


OF MAIN PROGRAM 


LOOP 




* COLOR S E L 


ECT ROUTINE 






SELECT 


L I 


R , > 7 E E 


CHANGE BACKGROUND TO GRAY 






B LWP 


@ VWT R 


WRITE TO VDP R7 






L I 


R 9 , > 8 


VDP BUFFER FOR PATTERN TABLE 






L I 


R 1 , P A L E T 


CPU BUFFER FOR PALETTE 






L I 


R 2 , > 6 


15S6 BYTES TO MOVE 






B LWP 


@VMBW 


DISPLAY PALETTE 






L I 


R , > 3 9 


VDP BUFFER FOR ATTRIBUTE LIST 






L I 


R1 .ARRATT 


ARROW ATTRIBUTES 






L I 


R 2 , 4 


4 BYTES TO MOVE 






B LWP 


@VMBW 


WH I TE DATA 






B L 


@D E B N C 


BRANCH TO 'DEBOUNCE' SUBROUTINE 




LOOP 9 


L I M I 


2 


ENABLE VDP INTERRUPT 






L I M I 





DISABLE INTERRUPT 






MOV B 


@0 N E , @U N I T 


IDENTIFY REMOTE UNIT TO SCAN 






B LWP 


@K S C AN 


SCAN LEFT KBD AND REMOTE UNIT «1 






C B 


@F I RE ,@H18 


CHECK FIRE BUTTON 






I EQ 


CM A R K 


IF PRESSED, CHANGE MARK COLOR 






C B 


@FIRE,@H14 


CHECK ' C ' KEY 






I EQ 


C S C R N 


IF PRESSED, CHANGE SCREEN COLOR 






C L R 


R 6 


INITIALIZE R6 






MOV B 


@I0YSTX,R6 


PUT lOYST X IN R6 






SLA 


R 6 , 2 


MP Y BY 4 






SWP B 


R 6 


MAKE LEAST SIG BYTE 






L I 


R1 ,USRWS+12 


LOAD CPU ADDRESS ( R6 ) 






L I 


R , > 9 7 8 9 


LOAD ADDRESS OF MOTION TABLE 






L I 


R 2 , 2 


MOVE 2 BYTES 






B LWP 


@VMBW 


LOAD DATA TO VDP RAM 






IMP 


L 00 P 9 


GOTO L00P9 




C S CR N 


B L 


@D0 TOOL 


DETERMINE COLOR FROM DOT COLUMN OF 


ARROW 




SWP B 


R 1 


MAKE I T MOST SIG BYTE 






MOV B 


H1 ,@BCOLOR 


MOVE IT TO BCOLOR 






I MP 


BACK 


lUMP TO BACK 




CMA R K 


B L 


@D0 T CO L 


DETERMINE COLOR FROM DOT COLUMN OF 


ARROW 




SLA 


R 1 , 1 2 


PUT IN PROPER POSITION FOR ©FCOLOR 






MOV B 


R1 ,@FCOLOR 


MOV E IT TO FCOLOR 




BACK 


B L 


@D E B N C 


DEBOUNCE 






C L R 


R 9 


PREPARE TO RETURN SCREEN COLOR 






MOV B 


©BCOLOR , R9 


PUT BACKGROUND COLOR IN R9 






SWP B 


R 9 


MAKE IT LEAST SIG BYTE 






MOV B 


@H 9 7 , R 9 


INDICATE WRITE TO VDP R7 






B LWP 


@VWT R 


WRITE IT TO R7 






L 1 


R9 , >899 


VDP PATTERN TABLE ADDRESS 






L I 


R1 , PATRN 


PATTERN BUFFER IN CPU RAM 






L I 


R2 , >699 


1556 BYTES TO WRITE 






B LWP 


@VMBW 


LOAD PATTERN SCREEN 






L I 


R9 , >399 


VDP SPRITE ATTRIBUTE TABLE ADDRESS 






L I 


R 1 , A T T R I B 


ADDRESS OF CURSOR ATTRIBUTES 






L I 


R 2 , 4 


4 BYTES TO MOVE 






B LWP 


@VMBW 


LOAD DATA TO GET CURSOR SPRITE 




* 


B 


©SKIP 


BRANCH TO LABLE SKIP 




* D S R 

* 


ROUTINE TO SAVE 'SCREEN' -- PATTERN TABLE 




SAVE 


L I 


R9 , >1 999 


PREPARE TO MOVE PATRN TO VDP BUFFER 






L i 


R1 , PATRN 


CPU BUFFER ADDRESS 






L I 


R 2 , >699 


1556 BYTES TO MOVE 






B L WP 


@VMBW 


WRITE DATA 






L I 


R9 , PAB 


VDP PERIPHERAL ACCESS BLOCK ADDRESS 






L 1 


R1 , PDATA 


CPU BUFFER TO BE WRITTEN TO VDP 






L 1 


R 2 , 2 1 


21 BYTES TO WRITE 






B LWP 


@VMBW 


WR I TE PAB 






L I 


R6 , PAB+g 


SET POINTER TO NAME LENGTH 






MOV 


R6 , @PNTR 


STORE IN >8356 >8357 






B LWP 


@D S R L N K 


EXECUTE SAVE OR LOAD 
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Listing 1 Magic Crayon continued 




DATA 


8 






D 

o 


©CHECK 


IF SO, BRANCH BACK TO BEGINNING 


* D S R 


P IT T f 


NE TO RECALL 


SCREEN' PATTERN TABLE 


n b O A L L 


1 1 


R , P A B 


VDP PERIPHERAL ACCESS BLOCK ADDRE 




T 1 

L 1 


R 1 , P D A T A 


CPU BUFFER TO WRITE 






R 2 , 2 1 


21 BYTES TO WRITE 




B L W P 


@VMBW 


WR I TE PAB 




L 1 


R , P A B 


SUBSTITUTE 'LOAD* I/O OP CODE 




M V B 


@LOAD , R 1 


MOVE OP CODE TO HI 




B L W P 


@ V S BW 


WRITE BYTE TO PAB 




L I 


R 6 , P A B + 9 


SET POINTER TO NAME LENGTH 




MOV 


R 6 , @P N T R 


STORE IN >8356 >8357 




B L W P 


@D S R L N K 


COPY DATA TO VDP BUFFER 




DATA 


8 






L 1 


R9 , >1 090 


PREPARE TO COPY FROM VDP TO PATRN 




r r 


R1 , P ATRN 


CPU BUFFER ADDRESS 




L 1 


R2 , >600 


1536 BYTES TO COPY 




B LWP 


@VMB R 


COPY BUFFER 




L I 


RO , >0800 


NOW COPY TO PATTERN TABLE 




L I 


R1 . PATRN 


ADDRESS OF CPU BUFFER 




L I 


R2 , >600 


1536 BYTES TO COPY 




B LWP 


@VMBW 


COPY TO TABLE 




B 


@CH ECS 


BACK TO THE BEGINNING 


• SOBROUT I N 


E TO PERIODICALLY CHANGE SPRITE COLORS 


CHECKS 


A I 


R 4 , > 1 


ADD 256 TO R4 




I EQ 


CHANGE 


WHEN R4 REACHES 0, CHANGE COLOR 




DEC 


RO 


DEC COUNTER 




I N E 


CHECKS 


IF NOT ADD ANOTHER 256 




IMP 


RETURN 


BACK TO MAIN PROGRAM 


CHANGE 


SWP B 


R3 


SWITCH COLOR BYTES IN R3 




MOV 


R 3 , R 1 


PUT R3 IN R1 




L I 


RO , >303 


ADDRESS OF SPRITE fO COLOR IN VDP 




B LWP 


@V S BW 


WRITE MOST SIG BYTE OF R1 


RETURN 


R T 




BACK TO MAIN PROGRAM 


• DEBOUNCE 


SUBROUTINE 




D E B N C 


MO V B 


©ONE , @UN I T 


KEY UNIT TO CHECK 




B LWP 


@K S C AN 


SCAN KEYBOARD 




C B 


@FIRE,@NOKEY 


IS NO KEY PRESSED? 




I N E 


D E B NC 


IF A KEY IS PRESSED, CHECK AGAIN. 




R T 




GO BACK TO MAIN PROGRAM 


• SUBROUT I N 


E TO DETERMI NE 


COLOR FOR ARROW 


DOTCOL 


C L R 


R 1 


INITIALIZE R1 TO RECEIVE DOT COLUl 




L I 


RO , >301 


VDP ADDRESS OF DOT COLUMN 




B LWP 


@V S B R 


READ BYTE FROM ATTRIBUTE TABLE 




SWP B 


R1 


MAKE IT LEAST SIG BYTE 




A I 


R1 . >07 


ADD OFFSET FOR POINT OF ARROW 




S R L 


R 1 , 4 


DIVIDE BY 16 


* 


R T 




RETURN 


• -END 


STAR 


T ■ 




* 

AUTO 


END 


MARKER 


AUTOSTART 
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MINI M[i 
MEMORY^^ 
CARTRIDGE ^ 

There's More There 
Than Meets the Eye 

You know, looks can be deceiving. Who'd suspect 
that a bespectacled, mild-mannered reporter for 
the Daily Planet could leap over tall buildings with 
a single bound? In the same way, there's more to TI's 
Mini Memory Command Cartridge than meets the eye. 
What appears to be a normal, garden- variety Command 
Cartridge, however, really converts your TI Home Com- 
puter from a good BASIC machine to a trim and effi- 
cient assembly language instrument. 

Even the name is a clever disguise: "Mini" Memory, 
indeed! If you believe that there's just a tiny bit of 
memory in there, you probably believe that the Trojan 
Horse was nothing more than an overgrown hobby-horse! 
This cartridge actually has 14K bytes of memory: 4K of 
RAM, 4K of ROM and 6K of GROM. 

RAM (read/write) memory is used by your computer 
to store your programs. And you know that any program 
you write disappears from the computer's memory when 
you shut the computer off. But Mini Memory has a sur- 
prise for you: When you shut the computer off and 
unplug the cartridge, your programs don't disappear 
from the cartridge's RAM. A battery inside the cartridge 
feeds a trickle of current to the CMOS devices— which 
are real power misers — and keeps them alive. And now 
you can carry your programs around with you, plug them 
in, and instantly load them — no cassettes, no diskettes, 
no messy cables, no long waits. 

But there's more yet. Besides battery-backed RAM, this 
cartridge also has 4K bytes of ROM (Read-Only Memory) 
and 6K bytes of GROM (Graphics Read-Only Memory). 
The ROM and GROM give you seven additional TI 
BASIC subprograms, as well as access to many system 
routines from assembly language programs. The ROM 
also contains a powerful program debugger, EASY BUG, 
which can help you exterminate those pesky "logic ver- 
min" which infest programs. 

At this point, you may be saying to yourself, "What 
good does all this Assembly Language access and debug- 
ging stuff do for me, anyway, without an assembler?" 
Glad you asked. The Mini Memory Command Cartridge 
comes with an assembler on cassette. You can load this 
assembler into memory, enter assembly language 



statements, and have the assembler translate them into 
TMS9900 object code. 
Let's explore this cornucopia one item at a time. 

FILE STORAGE 

Probably most persons will use the Mini Memory car- 
tridge most often for temporary storage of programs and 
data. You can think of the Mini Memory cartridge as a 
very fast-access storage device. [See "Getting Down to 
Business" for a tutorial on random access files.— Ed.] 

When you have the Mini Memory Command cartridge 
plugged in, the 4K-byte RAM has the file name 
MINIMEM for TI BASIC program and data storage. The 
RAM occupies physical addresses 28672 through 32767 
(hexadecimal 7000 through hexadecimal 7FFF). You can 
save programs in this file and load programs from it. (For 
example, to save a TI BASIC program, just enter the 
command SAVE MINIMEM.) You can also store data 
in this file using the file specification available for any 
TI BASIC file. For example, the following statements 
open the Mini Memory file and store data values in the 
file. 

OPEN #3 :"MINIMEM",RELATIVE,FIXED, 

UPDATE,INTERNAL 

PRINT #3: A,B,C,D 

With the Mini Memory cartridge you can also access 
a second new file. EXPMEM2 is the name of a 24K-byte 
memory file located in the 32K Memory Expansion unit. 
EXPMEM2 is available, however, only if you have the 
Memory Expansion unit connected to your computer and 
turned on. 

ADDITIONAL TI BASIC SUBPROGRAMS 

Seven additional TI BASIC subprograms are yours 
with the Mini Memory cartridge. These subprograms are 
PEEK, PEEKV, POKEV, CHARPAT, INIT, LOAD, 
and LINK. 

The PEEK subprogram reads bytes of CPU RAM data 
and copies the data directly into TI BASIC variables. For 
example, the statement: 

CALL PEEK (8192,A,B,C,(8)) 

reads three bytes of data starting at address 8192, and 
assigns the values read to the variables A, B, and C(8). 

The PEEKV subprogram reads bytes from VDP RAM. 
It works exactly like PEEK, except PEEKV accesses VDP 
RAM instead of CPU RAM. 

The POKEV subprogram stores data values into VDP 
RAM. For example, 

CALL POKEV(784.30,30,30) 

writes the value 30 to VDP RAM locations 784, 785, and 
786. 
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The CHARPAT subprogram reads a 16-character pat- 
tern identifier that specifies the pattern of a character 
code. For example, 

CALL CHARPAT(68,D$) 

places the pattern defining character code 68 in the string 
variable D$. 

The three TI BASIC subprograms INIT, LOAD, and 
LINK interface Assembly Language programs and TI 
BASIC programs. 

The INIT subprogram initializes the CPU memory for 
Assembly Language programs. The LOAD subprogram 
loads Assembly Language object files into CPU memory 
and it loads data into the CPU memory. 

There are two forms of the LOAD subprogram. One 
form is used to load an object file from a storage device 
into memory, and the second form is used to load data 
directly into CPU memory. For example, the statement 

CALL LOAD ("DSKl.DEMO") 

loads the file DEMO from the diskette in Disk Drive 1. 

The second form of the LOAD subprogram is a POKE 
function for CPU RAM. For example, the statement 

CALL LOAD (8197,85,40) 

loads the value 85 into memory location 8197 and the 
value 40 into memory location 8198. 

The LINK subprogram passes control and, optional- 
ly, a list of parameters from a TI BASIC program to an 
Assembly Language program. For example, the statement 

CALL LINK ("PROGl",A,E(9)) 

passes control from a TI BASIC program to an Assembly 
Language program named PROGl and passes the 
variables A and E(9) to the program. 

ACCESS TO SYSTEM ROUTINES 

The utility routines resident in the Mini Memory Com- 
mand Cartridge can be called from an Assembly 
Language program to access machine resources and in- 
terface with the TI BASIC interpreter. It's fair to warn 
you that the use of these routines requires a knowledge 
of the routines themselves and the organization of data 
used by the routines. You can get additional information 
about these routines from the Editor/ Assembler owner's 
manual (available separately). 

Two types of access programs are resident in the Mini 
Memory Command Cartridge. One program contains a 
collection of system utilities with which to link to 
ROM/GROM routines, perform a keyboard scan, access 
the VDP, etc. The individual utility programs are 
classified as either Standard Utility programs or Extend- 
ed Utility programs. 

A second program contains TI BASIC interface utilities 
with which an Assembly Language program can access 
variables passed through a CALL LINK statement in a 
TI BASIC program. This program also contains an error- 
handling utility to return exceptions to a TI BASIC 
program. 

STANDARD UTILITY PROGRAMS 

The following standard system utilities become accessi- 
ble with the Mini Memory Command Cartridge: 
— VDP Single Byte Write — Write a single-byte value to 
a specified VDP RAM address. 



—VDP Multiple Byte Write— Write multiple bytes 

from CPU RAM to VDP RAM. 
— VDP Single Byte Read — Read a single byte from a 

specified VDP RAM address. 
— VDP Multiple Byte Read — Read multiple bytes from 

VDP RAM into CPU RAM. 
— VDP Write to Register — Write single-byte value to 

any of the VDP RAM registers. 
—Keyboard Scan — Scan the keyboard and return a 

key-code and status. This routine can also read the 

position of the Wired Remote Controller. 

EXTENDED UTILITY PROGRAMS 

Extended utilities are provided to access routines in the 
console GROMs and ROMs. These utilities are GPLLNK 
(link to GPL routines in GROM), XMLLNK (hnk to 
routines in ROM), and DSRLNK (link to Device Service 
Routines). 

GPLLNK Routines 

The GPLLNK routines are as follows: 

— Load Standard Character Set — Load the standard 

character set into VDP RAM 
— Load Small Character Set — Load the small 

character set (for the 40-column Text Mode) into 

VDP RAM. 

— Execute Power-Up Routine — Initialize the system as 
if the computer had just been turned on. 

— Accept Tone — Issue an accepting tone for input. 

— Bad Response Tone — Issue a bad-response tone 
warning. 

— Bit Reversal Routine — Provide a mirror image of a 

byte of information. 
— Cassette Device Service Routine — Access a cassette 

tape recorder/player as a storage device. 
— Load Lower Case Character Set — Load the 

lower-case character set into VDP RAM. 
The following floating point routines are also available 
through GPLLNK: 
— Convert a floating-point number to an ASCII string. 
— Compute the greatest integer contained in a value. 
— Raise a number to a specified power. 
— Compute the square root of a number. 
— Compute the inverse natural logarithm of a value. 
— Compute the natural log of a number. 
— Compute the cosine of a number. 
— Compute the sine of a number. 
— Compute the tangent of a number. 
— Compute the arctangent of a number. 

XMLLNK Routines 

Routines in the console ROM can be accessed through 
the XMLLNK routine, The following routines can be 
called from an Assembly Language program using 
XMLLNK: 

— Floating-point addition. 

— Floating-point subtraction. 

— Floating-point mutiplication. 

— Floating-point division. 

— Floating-point compare. 

— Floating-point stack addition. 

— Floating-point stack subtraction. 

— Floating-point stack multiplication. 

— Floating-point stack division. 

— Floating-point stack compare. 
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— Convert a string to a number. 

— Convert a floating-point format number to an integer. 

— Push a value onto the value stack. 

— Pop a value from the value stack. 

— Convert an integer number to floating-point format. 

DSRLNK Routines 

DSRLNK links an Assembly Language program to a 
Device Service Routine (DSR) or a subprogram in ROM. 
As with GPLLNK and XMLLNK, TI cautions you to 
make sure you know what you are doing before using 
DSRLNK. [A DSR is a machine language program that 
TI has burned into ROMs found in each of its peripherals. 
Since each peripheral contains its own custom "operating 
system," the TI-99/4A did not have to be designed to 
anticipate future peripheral requirements.— Ed.] 

TI BASIC INTERFACE UTILITIES 

TI BASIC interface utilities allow an Assembly 
Language program to read or assign values to variables 
passed in a parameter list from a CALL LINK statement 
in a TI BASIC program. These utility routines include 
argument-passing utilities and an error-reporting utility. 

The following are the TI BASIC interface utilities: 

— Assign a numeric value to a numeric variable. 

— Assign a string to a string variable. 

— Retrieve the value of a numeric parameter, 

— Retrieve the value of a string parameter. 

— Report an error. (The Assembly Language program 
can report any existing TI BASIC error or warning 
message upon returning to TI BASIC.) 

EASY BUG DEBUGGER 

Also inside the Mini Memory cartridge's ROM is 
EASY BUG. EASY BUG is a versatile program develop- 
ment tool with which you can (1) debug your Assembly 
Language programs, (2) access the input/output ports of 
the computer, (3) load programs, and (4) store programs. 
And it really is easy to use. With EASY BUG, you can 
inspect and (optionally) modify the contents of CPU and 
VDP memory, display the contents of ROM, run 
Assembly Language programs from EASY BUG, directly 
access the peripheral devices which are connected to the 
computer via the 9900 microprocessor's serial I/O port 
(the CRU), and save or load programs on cassette. 

LINE-BY-LINE SYMBOLIC ASSEMBLER 

A line-by-line symbolic assembler on a cassette tape is 
supplied with the Mini Memory cartridge. It assembles 
Assembly Language statements and stores the object code 
directly into the 99/4A's CPU RAM. You can make both 
forward and backward references to one- or two- 
character labels with the Assembler. Each source state- 
ment you enter is immediately assembled into object code 
and stored into memory. Because some source code is re- 
tained in a nine-page text buffer, you can scroll the screen 
to review previously entered lines of source code by press- 
ing the up- and down-arrow keys. The source program 
cannot be saved, however. 

The Line-by-Line Assembler occupies about 2K bytes. 
When it is loaded into the Mini Memory cartridge's 4K 
byte RAM, you still have about 2K bytes of memory for 
your Assembly Language program. 

Assembler Directives 

The Assembler recognizes seven directives: 



— The AORG (Absolute Origin) directive establishes 
the location counter value to set the starting address 
of assembled code. 

—The BSS (Block Starting with Symbol) directive re- 
serves a block of initialized memory. 

—The DATA (Data Initialization) directive initializes 
a word or words of memory to a specific value. 

—The END (End Program) directive terminates the 
assembler and causes a display of the number of 
unresolved references, if any. 

— The EQU (Equate) directive defines a value for a 
symbolic constant. 

— The SYM (Symbol Table Display) causes a display of 
all symbols and their values in the program. 

— The TEXT (String Definition) directive causes a 
string of characters to be translated into their ASCII 
code and stored as a part of a program. 

[Rather than being strictly a part of the internal logic 
of your program, assembler directives are commands 
which direct the Assembler to perform certain operations 
at assembly time. — Ed.] 

DEMONSTRATION PROGRAM 

Along with the Line-by-Line Assembler on the cassette 
is an Assembly Language demonstration program called 
LINES which draws a colorful line design on the screen. 
The LINES program can be run only on the TI-99/4A 
Home Computer, however, because it requires the 
enhanced graphic processor contained on the TI-99/4A. 

OPERATION 

TI has a knack for creating complex and versatile pro- 
grams that are still simple to operate; they've definitely 
done it again with the Mini Memory Command Car- 
tridge. When you plug in the cartridge, turn on the com- 
puter, and pass the opening credits on the Master Title 
Screen, you are presented with a simple, three-choice 
selection screen. You can choose TI BASIC, EASY BUG, 
or MINI MEMORY. 

If you select MINI MEMORY, you are presented with 
a second three-choice selection screen. You can choose 
to load an object program into memory and run it, run 
a previously loaded program already in memory, or re- 
initialize the cartridge to prepare it for loading new pro- 
grams or storing data. Pick a number, pluck a key, and 
you're off and running. It's as easy as eating oatmeal 
cookies! 

CONCLUSION 

This has got to be one of the best deals around. 4K 
bytes of RAM with battery backup assure that all the 
good stuff stored in the RAM is not lost when you turn 
off the console or even when you remove the cartridge. 
lOK bytes of ROM and GROM give you seven additional 
TI BASIC subprograms (including PEEK and POKE), 
access to system routines from Assembly Language, and 
routines to allow you to interface Assembly Language 
programs to TI BASIC. You've got a user-friendly pro- 
gram debugger, a symbolic line-by-line assembler, and 
a captivating graphics demonstration program. All of 
this, plus 84 pages of documentation, for $99.95 (sug- 
gested retail price). With all this to offer, it's really not 
too hard to see why there's definitely more to the Mini 
Memory Command Cartridge than meets the T-eye . 



1 56 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



PART 1: Design Considerations 



One of the best features of the TI-99/4A computer 
is its graphics capability. The programmer can 
create a huge variety of screens by using the sim- 
ple character-definition commands of TI BASIC. 
Wouldn't it be nice to dump those screens to your non- 
thermal printer? This two-part article presents a method 
for doing this on the TI-99/4 impact printer. Part I 
discusses the theory behind the screen dump. Part II will 
provide the Assembly Language subroutine itself. 

I should mention that the 99/4A has an improved video 
processor (TMS9918A) which allows you to define up to 
768 unique characters on the screen. However, this bit- 
map mode requires an extra 12K of memory to hold the 
larger tables needed. We'll limit ourselves to the Graphics 
I, or standard mode, in this discussion. 

Approach — in English 

The video screen contains 768 character positions, ar- 
ranged in 24 rows of 32 characters. Each character is com- 
posed of an 8 X 8 dot matrix, giving you a screen of 192 
X 256 dots. The screen dump program will reproduce 
the screen dot-for-dot on the printer. 

With bit-image mode selected, the TI-99/4A prints 
characters which are one dot wide and 8 dots high. Since 
the screen characters are also 8 dots high, each screen 
character can be represented by 8 TI-99/4A bit-image 
characters, for a total of 64 possible dots per screen 
character. 

Accessing the Screen Image 

The contents of the screen are stored in VDP RAM. 
Since we are not concerned with color here, only two of 
the screen tables in VDP RAM are of interest. The first 
is the Screen Image Table, which starts at default 
address > 0000 and contains 768 bytes. Each byte cor- 
responds to the character position on the screen and con- 



tains the character number occupying that screen posi- 
tion. VDP RAM addresses > 0020 through >003F cor- 
respond to the second screen row, and so on. Since each 
character number is contained in one byte, you can see 
that the character numbers must be between >00 and 
>FF, or decimal through 255. 

The second table we'll need is the Pattern Descriptor 
Table, which starts at VDP RAM address > 0800 by 
default. This table contains the dot patterns for each of 
the 256 characters which can be in use. The BASIC sub- 
program CHAR, which is used to define dot patterns for 
characters, stores patterns in this table. Since a character 
pattern takes 8 bytes to define, and there can be up to 
256 different characters, the Pattern Descriptor Table oc- 
cupies 2084 bytes of VDP RAM. 

Figure 1 shows the relationship between these two 
tables. For a given screen ROW and COLUMN, the VDP 
RAM address of the corresponding character number is 
given by (ROW - 1) * 32 -I- COLUMN - I. Once you 
have obtained this character number, you can use it to 
index to the correct spot in the pattern Descriptor Table. 
The offset in this table is just 1024-h(N-32)*8 in 
decimal, since each pattern description is 8 bytes long. 
Figure I shows an example of finding the pattern for the 
home position (ROW 1 , COLUMN 1) on the screen. The 
character number resides in the Screen Image Table at 
address 0. If the home character on the screen is "A", 
then VDP RAM address contains the value 65 or >41. 
From the offset in the Pattern Descriptor Table, we get 
VDP RAM address > 800 + >200 = >0A00. The eight 
bytes starting at >0A00 in VDP RAM contain the pat- 
tern for the character "A". You can see that for our pur- 
poses, the contents of the Screen Image Table are just 
intermediate, though necessary, data. The character pat- 
tern is what we're really after. 
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The 8-byte character pattern represents the dot pattern 
which appears on the screen in what I'll call row-wise 
form. The top portion of Figure 2 illustrates this for the 
character "A". The first byte of the pattern represents 
the first row of the dots which comprise the character. 
The hexadecimal notation is just a shorthand way to 
group four bits at a time, with bits of value 1 standing 
for dots which are turned on in the character. 

Translating the Characters to 
TI-99/4A Format 

The TI-99/4 printer constructs its bit-image output in 
a different way. It uses what Til call column-wise form. 
It still takes 8 bytes to produce the same character, but 
each byte of data passed to the printer represents a col- 
umn (rather than a row) of dots in the finished character. 
The bottom of Figure 2 illustrates this. If we think of 
the character's dot pattern as an 8 x 8 matrix, then the 
translation from TI internal format to TI-99/4A printer 
bit-image format is equivalent to transposing the matrix. 
We can't really treat each character pattern as a 64-bit 
matrix because 9900 Assembly Language does not have 
a BIT data type, but we can base the logic of the pro- 
gram on this idea. 
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Figure 3. TI-99/4A character in binary form 

BY TE 1 2 7 

IN I 0000 . 0000 I 0011 . 1000 I 0100 . 0100^ 1^0100 . oloo" 



BIT 0123 4567 

I 1 

BIT 0123 4567 } 
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D0 | 0000 0000 I 0011 . 1111 I 0100 . 1000 | > I 0000 . 0000 
BYTE 12 7 

TI-99/4A printer bit-image data 



Program Outline 

The screen dump program reads the Screen Image 
Table one byte at a time starting at the top (VDP RAM 
address 0). The value of each byte is used to calculate 
the position of the character pattern, and the 8-byte pat- 
tern is obtained from the Pattern Descriptor Table. These 
8 bytes will be manipulated to produce 8 bytes of infor- 
mation encoded for the TI-99/4 printer. Figure 3 shows 
how the bits of the TI-99/4A character pattern are 
rearranged to form bit-image data for the printer. Notice 
that the data at byte M, bit N is moved to byte N bit M— 
or transposed. The program will also have to send cer- 
tain control characters for bit-image mode to the printer. 



PART 2: Screen Dump 



The Assembly Language subroutine for dumping 
99/4 screens to the TI-99/4 impact printer is 
designed to be called from console BASIC, and can 
be entered into your system using either the 
Editor/ Assembler or the Line-by-Line Assembler in the 
Mini Memory Command Cartridge. 

VDP RAM Under Console BASIC 

When the TI-99/4A is under control of the BASIC in- 
terpreter, VDP RAM contains two areas of interest here. 
VDP RAM addresses >0000 - >02FF (0 - 767 in 
decimal) contain the character numbers associated with 
each screen position. The character patterns for character 
numbers 32 - 159 start at VDP RAM address >0400 
(1024). In the Pattern Descriptor Table address the 8-byte 



character pattern corresponding to a character number 
N is 1024 + (N-32) * 8 in decimal. 

The dump subroutine (called DUMP) uses these facts. 
Starting with VDP RAM address 0, DUMP gets the 
screen character number and uses it to calculate the VDP 
RAM address of the associated character pattern. It then 
reads the 8-byte character pattern, transposes the matrix, 
and writes the resulting 8 bytes to the printer. DUMP per- 
forms this process on each successive byte of screen 
RAM, up to and including VDP RAM address >02FF 
(767). 

DSRLNK and Printer Output 

The actual output to the printer is done by means of 
a built-in Extended Utility Routine called DSRLNK. 
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Before calling DSRLNK, the Assembly Language 
subroutine must set up a Peripheral Access Block (PAB) 
in VDP RAM. Here is the format of the PAB we'll use 
for the printer: 

BYTE# CONTENTS 

I/O opcode: >00 = open 

>01 = close 
>03 = write 

1 Flag/status byte. > 12 is the code for se- 
quential file, output operation, 
DISPLAY type data and variable length 
records. 

2, 3 Data buffer address in VDP RAM. We'll 
use >1E00. 

4 Logical record length. 

5 Number of characters to write. 
6, 7, 8 Not used here. 

9 Length of file descriptor which follows. 
10-35 File descriptor. We'll use RS232.PA = O. 
DA = 8.BA = 9600.CR 
We'll put the PAB in VDP RAM starting at address 
> IDOO (hereafter called VIDOO), and we'll put the data 
area containing the actual data for output to the printer 
at VIEOO. These addresses could have been elsewhere in 
VDP RAM, as long as the locations chosen were not used 
by something else. 

To perform a printer operation, the program must do 
the following: 

1. Build the PAB in VDP RAM. 

2. Put the address of the length of the file descriptor 
(byte 9 of the PAB) into CPU RAM address >8356. 

3. Call DSRLNK. 

You'll notice that the call to DSRLNK must be 
followed by a word (two bytes) containing the value 8, 
which means that you want to link to a Device Service 
Routine (DSR). 

RS232 Considerations 

Since the DUMP subroutine uses the RS232 interface 
to communicate with the printer, some additional code 
is needed to save and restore the address of the GROM. 
This is because the GROM address is changed when the 
RS232 DSR is used. At the beginning of the DUMP 
subroutine, the GROM address is obtained one byte at 
a time from the GROM Read Address at location >9802. 
The GROM address increments itself when the first byte 
is read (actually moved) from the GROM Read Address. 
This makes the second byte of the GROM address one 
too big, so it must be decremented by DUMP. Just before 
returning to BASIC, the DUMP subroutine restores the 
GROM address by moving it to the GROM Write Ad- 
dress at location >9C02, again one byte at a time. 

Linkage to Console BASIC 

A console BASIC program invokes the DUMP 
subroutine by the statement CALL LINK("DUMP"). 
DUMP returns to the BASIC program by branching to 
the contents of register 11 (Rll). Just before returning 
to BASIC, the DUMP subroutine clears the error byte 
at @>837C (sets it to 0). Failure to clear this byte can 
result in an undeserved INCORRECT STATEMENT er- 
ror when you return to BASIC. 



Transposing the 8x8 Character Matrix 

Once a screen character's 8-byte pattern has been read 
into CPU RAM (at label IN), the DUMP subroutine uses 
the following technique to build the 8 bytes of output at 
label DO. 

The first byte of DO is composed of the first bit of 
each of the 8 bytes starting at IN, the second byte of DO 
is composed of each second bit of the bytes at IN, and 
so on. Figure 2 of Part One shows the bit movements 
for the pattern character of an "A". 

DO is built from left to right, and R4 is used to hold 
each byte of DO as it is built. R4 is cleared before each 
byte is built, so DUMP has to turn on any bits necessary. 

To tell if a certain bit of IN is on, DUMP compares 
the value of the byte containing the bit in question to a 
power of 2. To see how this works, consider the byte con- 
taining >82 (130 in decimal, 1000 0010 in binary). The 
leftmost bit of the byte is on; in fact, the leftmost bit 
would be on in any byte containing >80 (128) through 
>FF (255). In other words, we could test for the left- 
most bit's being on by comparing the value of the byte 
to decimal 128 (2 to the 7th power); if the value is less 
than 128, we wouldn't have to turn on the corresponding 
output bit. 

This technique can be used to test any bit of a byte for 
our purposes, using the appropriate power of 2. The 
second-to-leftmost bit can be tested against 64, its 
neighbor to the right against 32, and so on down to 1 
for the rightmost bit. This works because we'll be con- 
sidering the bits from left to right in each byte. After each 
bit is tested, it must be turned off (in CPU RAM, not 
on the screen) so that it doesn't interfere with the test 
of the following bit. To see this, consider the byte con- 
taining >82 (130) again. If we want to determine if the 
second-to-leftmosi bit is on, we would compare the byte 
to 64. You can see that it would pass the test, even though 
the bit in question is not on! However, if we had reset 
the leftmost bit to after testing it previously, the byte 
would now contain >02 instead of >82, and the test 
would fail, as it should. 

Once we have decided that an input bit is on, we must 
set on the corresponding bit in R4. This is done by add- 
ing the appropriate power of 2 to R4. To turn on the left- 
most bit, add 128; to turn on the rightmost bit, add 1. 
Remember that the byte being built is in the right half 
(LSB, or least significant byte) of R4. 

DUMP uses R5 to contain the power of 2 for testing 
whether the input bit is on, and R6 to contain the power 
of 2 for setting the bit on for output. The LSB of R7 con- 
tains the input byte being tested, and the most signifi- 
cant byte of R7 is filled with zeros. This allows DUMP 
to use the simpler and more plentiful register instructions, 
and to completely avoid having the leftmost bit of a byte 
interpreted as a sign bit. 

Printer Consideration 

DUMP writes one full screen line to the printer at a 
time. Before each line, the program must write a 4-byte 
control sequence to put the printer in graphics mode and 
tell it how many graphics characters are coming next. This 
sequence is >1B, >4B, >FF, and >00. The last two 
bytes mean 255 characters will be written, with the order 
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of the bytes being reversed for evaluation (>OOFF, or 
255). 

The program issues a carriage return and line feed on- 
ly after each of these writes, that is, at the end of each 
screen line. DUMP uses the CZC (Compare Zeros Corre- 
sponding) instruction to accomplish this. R9 contains the 
position in VDP RAM of the next screen character 
number. Positions - 31 (> 00 - > IF) of VDP RAM 
correspond to the characters on line 1 of the screen; posi- 
tions 32 - 63 (> 20 - > 3F) correspond to characters on 
line 2, etc. The CZC instruction occurs right after R9 is 
incremented and before the corresponding screen 
character is decoded. Therefore, the carriage return and 
line feed should be written whenever R9 is an even multi- 
ple of 32. The CZC instruction uses a mask of > IF (0000 
0000 0001 nil binary). If R9 is a multiple of 32, then 
its last five bits will all be zero. Notice that the mask has 
only the last five bits turned on. Under these cir- 
cumstances, the CZC instruction sets the equal status bit 
on if and only if the last 5 bits of R9 are all zero, that 
is, if and only if R9 contains an even multiple of 32. The 
JNE instruction which follows the CZC instruction causes 
the program to skip outputting the carriage return and 
line feed when R9 does not contain a multiple of 32. 

Left to its own devices, the printer will respond to a 
line feed by spacing down 1/8" or 1/6". This would leave 
blank stripes in the screen dump. The sequence ESCAPE 
A 8 is written by DUMP to tell the printer to space down 
only 8/72" on each line feed. This produces a continuous 
image. 

Mini Memory Considerations 

To enter the DUMP subroutine via the Line-by-Line 
Assembler, do the following: 

1. Select MINI MEMORY and then RUN from the 
first two menus. 

2. Enter NEW as the program name. 



3. When the Line-by-Line Assembler screen appears, 
type a space, then AORG, another space, >7D14, and 
then press [ENTER.] (From now on the spaces will be 
assumed.) This sequence lets you start the program at 
>7D14 instead of the traditional >7D00. 

4. Enter the program as shown in Listing #1 . Enter only 
the label (if any), opcode, and operands. Don't enter 
END yet. 

5. Put the entry point for DUMP into the DEF/REF 
table by entering the following lines: 

AORG >7FE8(CR) 
TEXT 'DUMP '(CR) 
DATA >7D14(CR) 

6. Set the last used address in Mini Memory by 
entering: 

AORG >701C(CR) 
DATA >7F02(CR) 

7. Indicate that you are finished by entering: 
END(CR). 

The system should show that you have no unresolved 
references. Press enter twice, and then QUIT the Line- 
by-Line Assembler. 

8. Enter EASY BUG from the master menu. 

9. Press any key to bypass the instruction screen. 

10. Enter S7000 when the system prompts with ? and 
then 7FFF when the system prompts TO? This tells the 
system to save the contents of the Mini Memory to 
cassette tape. Just follow the instructions presented by 
the computer after this, and then QUIT EASY BUG 
when you have saved and checked your tape. 

You are now ready to use the DUMP subroutine. The 
sample BASIC program in Listing #2 just draws a screen 
and then waits for you to press the P key, at which point 
DUMP is called to print out the screen. You can incor- 
porate DUMP into your own programs in any way you 
choose. Happy dumping! oBm 
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Listing 1 Dump 




AORG 


> 7 D 1 4 




MOV B 


@>9892,@S1 


GET MSB OF GROM ADDR INTO SI 


SWP B 


@S 1 




MO V B 


@>9802 ,@S1 


GET LSB OF GROM ADDR 


S WP B 


@ S 1 




DEC 


@ S 1 


CORRECT FOR A U T O - I N C H E M E N T 


L I 


9 , > 1 D 9 9 




L I 


1 , P D 




L I 


2,36 




B LWP 


@> 6 9 2 8 


WRITE PAB TO VDP RAM 


L I 


6 , >1 D99 




MOV 


6 , @> 8 3 5 6 


POINT TO DEVICE NAME LENGTH 


B L WP 


@> 6 9 3 8 


DSRLNK TO OPEN PRINTER 


DATA 


8 




L I 


1 9 , >9499 




MOV 


19 ,@>7DEA 




L I 


9 , > 1 D 9 9 




L I 


1 , >9399 




B LWP 


@> 6 9 2 4 


PUT WRITE OP CODE IN PAB 


L I 


9 , > 1 D9 5 




L I 


1 , > 9 4 9 9 




B LWP 


@> 6 9 2 4 


PUT L ENGTH OF 4 IN PAB 


L I 


9 , > 1 E 9 9 




L I 


1 , E 2 


PUT CODE FOR CARRIAGE RTN & 


L I 


2 , 4 


8/72- VERTICAL LINE SPACING 


B LWP 


@> 6 9 2 8 


I N DATA BUFFER . 


MOV 


6 , @> 8 3 5 6 


POINT TO DEVICE NAME LENGTH 


B LWP 


@> 6 9 3 8 


DSR LNK-CHANGE VERT SPACING 


DATA 


8 




L I 


19,59 


DELAY 


DEC 


1 9 




I N E 


$-2 




C L R 


9 


R9->NEXT SCREEN POSITION 


L MOV 


9 , 9 




B LWP 


@ > 6 9 2 C 


PUT BYTE OF SCREEN RAM IN R1 


S R L 


1 , 8 


SHIFT TO LSB OF R1 


A I 


1 ,-128 


AD I UST FOR BASIC 


SLA 


1 . 3 


* 8 


A I 


1 ,19 2 4 


PTRN ADDR = 1 9 2 4+ ( CHAR I -3 2 ) * 8 


MOV 


1 . 9 


L I 


1 , I N 




L I 


2 , 8 




B L WP 


@>6939 


PUT PATTERN INTO IN 


L I 


5,128 


H 5 = B I T 1 


C L R 


8 


R8 = OFFSET FOR DO 


L 3 LI 


6,128 


R6 = BYTE# 


C L R 


3 


R3 = OFFSET FOR IN 


C L R 


4 


R4 IS FOR BUILDING NEXT CHAR 


L 2 C L R 


7 




MO V B 


@ I N I 3 ) .7 


R7 HOLDS BYTE BEING DECODED 


SWP B 


7 


PUT BYTE IN LSB OF R7 


C 


7 . 5 


IS BIT ON 7 


I L T 


L 1 


NO 


A 


6 , 4 


YES, TURN OUTPUT BIT ON 


S 


5 , 7 


TURN OFF INPUT BIT 


SWP B 


7 


PUT BYTE IN MSB OF R7 


MO V B 


7 , @ I N ( 3 ) 


R EWR I T E TO IN 


LI INC 


3 


POINT TO NEXT INPUT BYTE 


S R A 


6 , 1 


/ 2 


I G T 


L 2 


DO NEXT BYTE , IF MORE 


S WP B 


4 


PUT OUTPUT BYTE IN MSB OF R4 


MO V B 


4 , @D0 ( 8 ) 


STORE AT DO 


I NC 


8 


POINT TO NEXT BYTE OF DO 


S R A 


5 , 1 


/ 2 


I GT 


L 3 


CONSTRUCT NEXT OUTPUT BYTE 


L I 


9 . > 1 D 9 5 




L I 


1 , > 9 9 9 9 




B L WP 


@> 6 9 2 4 


PUT LENGTH OF 4 IN PAB 


L I 


9 , > 1 E 9 9 




L I 


1 , E 1 




L I 


2 , 4 




B LWP 


@ > 6 9 2 8 


PUT ESC K SEQ. IN DATA BUFF 


L I 


6 , >1 D99 




MOV 


6 , @> 8 3 5 6 


POINT TO DEVICE NAME LENGTH 


B LWP 


@>6938 


DSRLNK TO WRITE ESC K SEQ. 


DATA 


8 


L I 


1 9 , >9999 




MOV 


19 , @> 7 D E A 




L I 


9 , > 1 D9 5 




L I 


1 , >9899 




B LWP 


@> 6 9 2 4 


PUT LENGTH OF 8 IN PAB 


L I 


9 , >1 E99 




L I 


1 . DO 
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Listing 1 Dump continued 




L I 


2 8 






B L W P 


@ > 6 2 8 


PUT DO INTO DATA BUFFER 




MOV 


Q , @ > 8 3 5 6 


POINT TO DEVICE NAME LENGTH 




B L W P 


fl X & 


DSRLNK TO OUTPUT 8 CHARS 




DATA 


3 






L I 


10 5 


DELAY 




DEC 


1 






I N E 


S — 2 






INC 


g 


POINT TO MFXT SCREEN POSITION 




C I 


9 7 6 7 


nONF WITH ^CRPFN YET? 






L 4 


YES 




C 2 C 




NO ARE WE AT END OF LINE? 




) N E 


L 


NO— DO NEXT SCREEN CHARACTER 




L I 


> 1 D 5 


YF«!— OPIITPIIT CR LF 




L I 


1 > 2 






B L W P 


^ fi 9 d 

(flr ^ w w A *• 


PUT LENGTH OF 2 IN PAB 




L I 


> 1 E 9 






L I 


1 C R 






L I 


2 , 2 






B L W P 


C A 9 fl 

1^ ^ w w * O 


PUT PR IF INTO DATA BUFFER 




MOV 




POINT TO DEVICE NAME LENGTH 




B L W P 


/») ^ C fl s o 
^ V W 9 O 


DQRINir TO OUTPUT CH IF 




DATA 


3 






L I 


10 , > 4 






MOV 








IMP 


L 


no HFYT QTRFFN PHARAPTFR 


L 4 


L I 


> 1 D 


POMF RFRF WHFN PINI<!NFn DUMP 




L I 


1 > 1 






B L W P 




PUT rLO<;F OP CODE IN PAB 




MOV 


6 , @> 8 5 5 6 


POINT TO DEVICE NAME LENGTH 




B L W P 


@> 6 3 8 


DSRLNK TO CLOSE PRINTER 




DATA 


8 






L I 


10,50 


DELAY 




DEC 


1 






J N E 


S-2 






MO V B 


@S1 ,@>9C02 


RESTORE SAVED DATA TO GRMV/A 




S W P B 


@S 1 






MO V B 


@S 1 , ®>9C02 






S B 


@>837C , @>837C CLEAR ERROR BYTE FOR BASIC 




L I 


10,50 


DELAY 




DEC 


1 






J N E 


$-2 








• 1 1 


RETURN TO BAS I C 


I N 


B S S 


8 


AREA FOR SCREEN PATTERN 


DO 


ESS 


8 


AREA FOR PRINTER PATTERN 


MK 


DATA 


>001 F 


MASS FOR EOL TEST 


PD 


DATA 


>0012,>1E00 


>FFOO , >0000 , >001 A 


* 






PAB DEFINITION 




TEXT 


' RS 23 2 . PA = 


DA = 8 . BA = 9600 . CR ' 








DEVICE NAME 


CR 


DATA 


>ODeA 


CR L F 


E 1 


DATA 


>1 B4B , >FFOO 


ESC K GRAPHICS SEQUENCE 


S 1 


B S S 


2 


SAVE AREA 


E 2 


DATA 


>0D1B,>4108 


CR AND ESC A VERT SPACING 




END 







Listing 2 Screen Dump 



100 

110 

120 
130 
140 
150 
160 
170 



CALL 
CALL 
CALL 
CALL 



CALL 
END 



CLEAR 



CHAR 



HCHAR 




KEY 
STAT 



RVALO80 



NK 



1 

RVAL 
THEN 



THEN 
DUMP 



183C7EFFFF7E5C18 



96 



STAT 
130 



768 



130 
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6 

Computer-Assistecf instruction 



6 

Computer-Assisted 



Instruction 

Preschool to college and beyond. . . 
Is the computer a learners' magic wand? 

Preschool Block Letters and Data compaction 165 

Homework Helper: Fractions 168 

Homework Helper: Division 173 

Name Tliat Bone 176 

Computer Techniques for Tutoring 

the Mentally Handicapped 181 

Typing for Accuracy 186 

Civil Engineering Fundamentals 189 

Almost Everything You Ever Wanted to Know 

About Music ... But were Afraid to Ask 196 

Let's Learn Notes 199 

Notes on A computer score: 

Part 1: The Tl-99/aA conducts Music Theory Drill in a 

Traditional Classroom setting 205 

Part 2: The TI-99/4A Assists Gifted Children 

in the Learning Process 212 

A Music Text Editor & File Player for the TI-99/4A 215 

Music Maker 218 




PRESCHOOL 
BLOCK 
LETTERS 
AND 
DATA 
COMPACTION 



Most kids aged 100 weeks to 100 years old are 
fascinated by computers. And small kids are real- 
ly fascinated by a computer's video screen; it's 
like a TV, but they can control it. When mine were just lear- 
ning the alphabet, they would wriggle in between Dad and 
the computer, then push the "A" key so an "A" would 
pop onto the screen. But the popping part was the problem. 
A computer doesn't draw (write) letters on the video 
screen — it "pops" up the whole letter at once. (Or at least 
to our slow eyes it "pops" the whole letter at once.) But 
kids can't just squeeze a crayon and have a letter pop onto 
a piece of paper. They have to learn a series of hand mo- 
tions in order to make a recognizable "A" on a piece of 
paper. 

But just maybe the computer could make large letters by 
popping short line segments in sequence onto the screen 
if. . . . This was the start of my idea. The finished product 
is in the program that follows, Preschool Block Letters. And 
the intervening (gory) details are about data compaction. 

Most home computers don't have point-addressable 
graphics, but they do have character graphics that can pro- 
duce line segments at various angles. Thus, I thought, 1 
would build the letters and numbers from short line 
segments. Easier said than done. What I really needed to 
build the letters and numbers was some help. Fortunately, 
my wife, a teacher, retaught me the correct way to form 
letters; I, in turn, taught the computer. 

Then I had to store about 3500 pieces of information con- 
cerned with which line segments go where to form each let- 
ter and number. Each piece of information as a number 
requires 4 to 8 bytes depending on the computer. But strings 



require only one byte for each stored character. And among 
letters, numbers and punctuation marks, there are enough 
different characters so that over 40 unique values can be 
stored using only one byte per value. 

Furthermore, strings can be very long, so this helps hold 
down the overhead to identify each string. Thus, to change 
the piece of information to the value of a valid ASCII 
character, I just added a constant to each piece of infor- 
mation. The characters were thus grouped into strings, and 
the strings stored in DATA statements. The SEG$ and ASC 
functions retrieve the information as required. And that's 
how computers came to draw rather than pop letters. 
Note: Make sure ALPHA LOCK is DOWN. 



EXPLANATION OF THE PROGRAM 
Preschool Block Letters 

Lines Nos. 

130-230 Program initialization. 
240-330 Scan keyboard looking for a letter or number 
key. 

340-360 Change ASCII code to number between and 
35. 

360-490 Draw line segments of letter or number in an 
array. 

560-590 Store geometry of "W" in array. 

1700-2040 Define line segment characters used to make let- 
ters and numbers. 

2050-2100 Input word from user. 

2110-2320 Have little man hold up letter. 

2330-2430 Get key pushed. If it matches letter that man is 
holding, then draw letter. 



CA 



EM 



EK 

ElM 
L 



60 
60 
CA 
N 



PO 



DUIA 



E 

Dp 
WIG 
E 



YO 



HOG 



WA 



WO 
AN 



2 


3 







P 


R 


I 


N 


T 






P 


R 


E 


S 


S 




A 




L 


E 


T 


T 


E 


R 







2 


4 







Y 
6 





S 


U 


B 




2 


6 

































2 


5 







6 





T 







2 


3 



































2 


6 







C 


A 


L 


L 




K 


E 


Y 


1 







K 


E 


E 


1 


S 


T 


A 


T 


U 


S 


) 




2 


7 







I 


F 




S 


T 


A 


T 


U 


S 









T 


H 


E 


N 




2 


6 











2 


8 







I 


F 




K 


E 


E 


< 


4 


8 




T 


H 


E 


N 




2 


6 















2 


9 







I 


F 




K 


E 


E 


> 


9 







T 


H 


E 


N 




2 


6 















3 










1 


F 






( 


1 


K 


E 


E 


> 




5 


8 


) 


* 


( 


S 


E 


E 


< 




6 


4 


3 


1 







I 


F 




K 


E 


E 


< 


5 


8 




T 


H 


E 


N 




3 


4 















3 


2 







I 


F 




K 


E 


E 


> 


6 


4 




T 


H 


E 


N 




3 


3 















3 


3 







K 


E 


E 




K 


E 


E 




7 






























3 


4 







S 


1 




K 


E 


E 




4 


8 






























3 


5 







C 


A 


L 


L 




C 


L 


E 


A 


R 




























3 


6 







F 





R 




D 


E 


L 


A 


Y 




1 




T 







1 

















3 


7 







N 


E 


X 


T 




D 


E 


L 


A 


Y 
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380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 

610 

620 



630 
640 
650 
660 
670 
680 
690 



710 

720 
730 
740 
750 



760 



770 

7 80 
790 
800 
810 
820 
830 
840 

850 

860 

870 
880 
890 
900 

910 

920 

930 

940 



950 



960 
970 
980 



FOR 
REMI 
COL 
ROW|= 



CALL 
CALL 
FOR 
NEXT 
NEXT 
RETURN 
REM 
REM 
RESTORE 
S1 



FOR 
READ 
NEXT 



ASC 



DATA 



DATA 



DATA 
DATA 
DATA 



ASC 
ASC 



SE6$ 
SIOUND 
HCHAR 
DELAY 



W2$&W2$&W2$&W2$ 



RRRRFGB 



S1 

|WXY|W|XY|W|X YlWlXY 



32 



666666789 



DELAY 
I 





AR$ 



3210000000012345677777777654 



00123456789 



DECI 



0123456789 
TTTTTTTTTTTT 
012345678876543210012345678 
2100000123456789 



ICEDRFGB 



SCCCCCCCCRRRRRRRRR 
0123456 788 765567 888765432100 



0000000001234556789 



PPPPPPPPPCCCCFGB 



HI 



TO 



&CHR$ 



SEGS 
SEGS 



600 

TO 
SI 



W1 



pppppp 



KSSSS 



LEN 



AR$ 
100 

RpWi, 
TO 



VVVVVEDRFGB 



0123456789 



0123456789 

IKIKIKJKI 



0123456789 



$&W3$&Wn&W3$ 



KCDEPPPP 



AR$ 
AR$ 



91 



12345555556789 



AR$ 



01234555443322110 
000000123456789 



32100000123456789 



SI 
300 
COL 
10 



AR$ 



IHBF6EDCKI VVVVHI 



100000123455666789 



VVVVVVVVVVVVHRRRFGB 



bCHRS 



92 



98765432100 



BGF 



98 



UKCDEPGFBHI 



00000012 345 67 8 966 66 666 66 66 6 
0123455555555550123456789 
VVVVVVPPPPPPPPPVVVVVMVVVVVV 
0000012345677765432101234567 



W1 
W2$ 
W3$ 
AR$ 

RETURN 
DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
2345677 
DATA 
6655432 

DATA ' B|GFRDECIHBF|GRF|GB 
EDEDCK I 
DATA 
DATA 
DATA 
DATA 
78 

DATA 
66 

DATA 
R R 

DATA '0000000000001234567887654321 
1234567887654321 



55443322110066778899 



IKIKI 



SI 



44332211001234567887654321 



7654321001234567887654321001 



76543210012345678888888888 
100000123444443223456789 

BGFRDECIHFGPEDCCSSSSSSSSSS 



88 7 65 43 210000000012 3456788 



B|GFRDECIESSSSIHBF|GPEDCKI 



IKJKVVBF6PEDCKIGFRRDEC 



0123456789 



AR$ 



IKIHIHIHIHIHIHRRRR 



+ 63 



UKCDEPGFBPPPPPPP 



0000001234555555 



987777778 



KCDEPGFBHI C 



SI 



0000000 



KCDEPPPP 



98 



987 



3456 
6666 



990 

1000 

1010 

1020 

1030 

1040 

1050 
1060 
1070 
1080 

1090 

1100 

1110 

1120 

1130 

1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 

1270 

280 

1290 

300 

1310 

1320 

1330 

1340 

1350 
1360 
1370 
1380 

1390 

1400 

1410 

1420 

1430 

1440 
1450 
1460 
1470 
1480 
1490 
1500 



DATA 
4321 

DATA 

« I I > 

DATA 

EPPP 

DATA 

567 
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hDDIEKIQHK HELPER 



FRACTIONS 



y.ta) 



Homework Helper: Students do 
their class assignments on paper 
in the usual way. . . . and then 
can use the Homework Helper to 
quickly correct their assignments. 



The Homework Helper series is designed to quickly 
give answers to students checking their 
assignments. It is not meant to be a tutorial; it does 
not teach concepts nor quiz the student. Rather, it gives 
the answers to the problems without showing all the in- 
termediate steps. 

The students are encouraged to do their class 
assignments on paper in the usual way, writing the pro- 
blems down and working the problems step-by-step. 
Then, they can use the Homework Helper to correct their 
assignments quickly. 

Fractions 

This program, involving fractions, is for correcting the 
homework problems of elementary school math students 
(4th, 5th, and 6th graders). Written in TI BASIC, it 
employs color graphics and sound, and is interactive. 
There are seven sections, each introduced with a simple 
color representation of what that section is doing with 
fractions. Musical phrases from Mendelssohn, Handel, 
and Beethoven are played at the same time. 

1. Equivalence. Two fractions are of the form 

A = ^ 
B D 

Any one of the four positions can be the unknown. The 
user designates the unknown, and inputs the three given 
values. The computer finds the unknown and prints the 
equivalent fractions. A student can also use this section 
to find equivalent ratios. 

2. Simplification. The user inputs a numerator and a 
denominator. The computer simplifies (reduces) the frac- 
tion or tells if it cannot be simplified. 

3. Multiplication. The user designates the number of 
fractions to be multiplied, then enters the numerator and 
denominator for each one. The computer multiplies them 
and simplifies the final fraction. 

4. Division. Two fraction are entered; the first is then 
divided by the second, and the answer is simplified. 

5. Addition — Like Denominators. The user specifies 
the number of fractions to be added, the common 
denominator and then enters the numerators. The com- 
puter adds the numbers and simplifies the result. 

6. Addition — Unlike Denominators. This section may 
be used to add fractions with like or unlike denominators. 
The user specifies the number of fractions up to five 
(which should be sufficient for elementary school 
mathematics), and then inputs the numerator and 
denominator of each. The computer adds the fractions 
and simplifies the result. A student can also use either 
Section 5 or 6 for subtraction problems by entering a 
negative numerator. 



7. Comparisons. As many as ten fractions may be com- 
pared on a number line. The user enters the number of 
fractions to be compared (up to ten), and then enters the 
numerator and denominator of each. The computer then 
arranges the fractions from the smallest to the largest and 
prints them. 

To stop any section of the program press SHIFT C. 
To restart, enter RUN. 

Simplifying Fractions 

One basic technique of simplifying fractions is to start 
with the numerator as the first factor and see if it can 
be divided evenly into the denominator. If it can, both 
numerator and denominator are divided by that factor 
immediately to yield the simplified fraction. If the 
denominator cannot be evenly divided, the factor is 
reduced by one, and the numerator and denominator are 
tested to see if they are divisible by the new factor. 

In each successive test, the factor is reduced by one. 
When both numerator and denominator can finally be 
evenly divided by the factor, that factor is the greatest 
common factor. The numerator and denominator are 
then divided by this factor to yield the reduced fraction 

For larger numbers, the technique can take a lot of 
time. In this program, the algorithm has been made more 
efficient by first checking to see which is smaller, the 
numerator or the denominator. In improper fractions the 
denominator will be smaller. The starting factor, PLIM, 
is set equal to the smaller number (Statements 1380 to 
1410). 

Another efficiency technique is not to test all even fac- 
tors if either numerator or denominator is an odd 
number. This technique cuts the search time in half. In 
Statements 1420 to 1450 the step size, S, is set equal to 
-2 if either the numerator or the denominator is odd; 
S is set equal to - 1 if both numerator and denominator 
are even numbers. 

The simplifying algorithm is implemented with a FOR- 
NEXT loop. The starting trial factor is reduced by the 
step size, S, to a lower limit of 2 in line 1460. 

Within the loop. Statements 1460 to 1510set A = NS/P 
(where NS is the numerator) and set B = DS/P (where DS 
is the denominator). Then they check to see if 
A = INT(A); if equal, then B = INT(B) is checked. If both 
statements are true, the simplified fraction is A/B. Other- 
wise, P is incremented by S, and the loop continues. If 
the lower limit is reached without finding a successful fac- 
tor, the user is notified that the fraction cannot be 
simplified (Statements 1520-1540). 

When combining several fractions in multiplication or 
addition, another efficiency technique sets the starting 
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factor equal to the largest denominator of the orginal 
fractions (Statements 2250-2340). The common denom- 
inator may be much larger than the original 
denominators, but the largest factor will always be the 
largest original denominator. 
Comparisons 

The schoolroom technique for comparing fractions is 
to find the common denominator and then compare the 
adjusted numerators. This technique is far too slow for 
computers, especially when comparing many fractions 
and/or fractions with large numbers. A very fast techni- 
que which achieves the same result is to compute and 
compare the decimal equivalents of the fractions. 



As the fractions are read in, the numerator NNN (1) 
is divided by the denominator DD (I) and stored as a 
decimal fraction in two identical arrays, FRC (1) and FRD 
(1) (Statements 5170-5230). A standard sort routine sorts 
the first array FRC from the smallest to the largest. The 
subscripts are changed as the decimal fractions are ar- 
ranged in order (Statements 5250-5330). 

The first element of FRC is compared with each ele- 
ment of the second array, FRD. When a match is made, 
the subscript value J is used to retrieve the numerator and 
denominator of the corresponding fraction for printing. 
The process is repeated in order for each element in the 
FRC array (Statements 5340-5390). @ 



EXPLANATION OF THE PROGRAM 
Homework Helper: Fractions 

Line Nos. 

160-170 Sets T and T2 for the time in the music 
statements. 

180-250 Defines characters and colors in four different 
character sets for use in graphics. 

260-390 Prints title screen, "HOMEWORK 
HELPER". 

410-550 Prints "Fractions" and blinks an outline of 

asterisks around it. 
580-640 Prints the menu screen for the seven sections 

of the program. 
670-730 The user presses a key to choose which of the 

7 sections is wanted, and the computer 

branches to that section. 
749-890 Prints the screen for Equivalence. 
900-960 Asks for the unknown, A,B,C, or D. 
970-1190 Depending on which is the unknown, asks for 

the given values and calculates the unknown. 

If the unknown is not a whole number, it will 

be rounded to two decimal places. 
1200-1230 Prims the equivalent fractions. 
1240-1310 Asks if there is another problem or to stop. If 

"2" is pressed, the menu screen is returned. 
1320-1350 Prims screen for Simplifying. 
1360-1370 Asks for the fraction. 
1460-1540 Simplifies and prints the result. 
1550-1620 Continue, or go to menu screen. 
1530-1650 Prints screen for Multiplying. 
1660-1710 Asks for the fractions. 
1720-1770 Multiplies the fractions. 
1780-1800 Prints the problem and the simplified answer. 
1810-1880 Continue, or go to menu screen. 
1890-1930 Subroutine for printing the problem. 



1940-2150 Subroutine for simplifying and printing. 

2160-2360 Subroutine for sorting and simplifying. These 
three subroutines are used for simplifying and 
printing in other sections of the program also. 

2370-2340 Prints screen for Dividing. 

2440-2470 Asks for the two fractions. 

2480-2490 Performs division. 

2500-2540 Prints problem and simplified solution. 

2550-2620 Continue, or go to menu screen. 

2630-2680 Prints screen for Adding with like 
denominators. 

2690-2760 Asks for fractions and adds the numerators. 
2770-2820 Prints the problem and the simplified sum. 
2830-2990 Continue, or go to menu screen. 
2910-2960 Prints screen for Adding with unlike 
denominators. 

2970-3090 Asks for the fractions and calculates a com- 
mon denominator. 

3100-3150 Adds the adjusted numerators and prints the 
problem and the simplified result. 

3160-3230 Continue, or go to menu screen. 

3240-4090 Sound subroutines musical phrases. 

4100-5020 Draws color graphics for each title screen. 

5030-5120 Prints screen for Comparisons. 

5130-5230 Asks for fractions and converts fractions to 
decimals. 

5240-5330 Sorts fractions from the smallest to the 
largest. 

5340-5390 Prints fractions in order. 
5400-5470 Continue, or go to menu screen. 
5480-5670 Music and graphics for Comparisons. 

To stop the program, press SHIFT C (BREAK). For the stu- 
dent's convenience, at the end of each problem he can choose 
to do another problem of the same type or go to the menu screen 
and do a problem of a different type. 
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XS 



68 



67 



15 



1330 I 
13 40 GOTiO 
1350 PR 



1 7 1 P R I N T 
1720 INPUT 



1730 
1740 



1750 TN 
1760 TD 



FOR 



1770 
1 780 ITN 



1 7 90 TD 
1 8 0| N E X T 



1 8 1 P R I N T 

1820 GOSUB 

1830 GOSUB 

1840 PRINT 



1360 
1370 
1380 
1390 
1400 
1410 

14 20 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 

15 20 
1530 
1540 
1550 

1560 
1570 



1670 
1680 
1690 
1700 



GOSUB 



PR 



GOSUB 
NPUT 



NPUT 



I 
I 

|l 

PL 
IGOTO 

PL i|m 

S 



S 

FOR 



1580 PR 



1590 
1600 
16101 |l 
1620 1 



6 30 CALL 
1635 GOTO 
1640| |l 
1650 
1 6 6 01 |P R 



NEXT 
PR 



GOTO 
PR 



PRINT 
CALL 



K 

lOTlO 



FOR 
I 



1850 
1860 
1870 
1880 
1890 
1895 
1900 
1910 
19 20 
1930 
1940[ 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 



PRI 



CALL 



A 
I F 

B=: 



IM 



PL 
GOTO 



PL 
FOR 



INT 



NT 



NS 



DS>NS 
DS 



I M 



DS 



INT 



NT 



INT 



GOSUB 
GOSUB 
I NPUT 



I NPUT 
NEXT 



CALL 

[gIotIo 
I 

GjOTiO 
FOR 
PR 



I 

INT 
■NEXT 
|P R I N T 
RETURN 



A<> 



50 
1290 



4230 
3650 



1450 

NS 



KEY 



STATUS< 



K<>49 



CLEAR 
1350 



50 



1600 



1 = 



NT 



KEY 
STATUS 
K<>49 



IM = 



TN/P 
AO 
TD/ 



TN<TD 
TD 



PL 



NT 



NS 



580 

NS 



NUMERATOR? 



DENOMI 
THEN 



NT 



PRESS 
PRESS 




CLEAR 
1660 
50 



1860 



NN 



2010 

TN 



PL 



THEN 



INT 
INT 



I M 



4430 
3750 

HOW 
TO 
FRACT 



IMPL 



TO 



THEN 



THEN 



THEN 



MULT 



MANY 



TO 



1920 
2190 



PRESS 



NT 



0.K 

< 

THEN 



TO 



IM 



THEN 



THEN 



2 

THEN 



PRESS 



590 



NATOR? 
1440 



DS 

DS 

FlOR 
TO 
AT 
THEN 
1640 



STATUS 



ION 



590 



NUMERATOR 



DENOMI 



TO 



THEN 



PLYI 



THEN 
1900 



590 



FYI 



THEN 
THEN 



STEP 



1540 



570 



TO 



STATUS 



MULT 



DD 



FRACT 



NG 



NS 



CANNOT 



NEXT 
STOP 



1600 



NG 



NATOR 



FOR 



STOP 



1860 



STEP 
2060 



DS 



PLY 



FRACT 



1480 
1490 



PROBLEM 



FRACT 



IONS? 



NEXT 



I ONS 



BE 



NN 



I MPL 



I ONS 



DD 



PROBLEM 
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2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 

2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2635 
2640 
2650 
2660 
2670 
2 680 
2690 
2 7 00 
2710 
2720 
2730 

2740 
2750 
2760 
2770 
2780 
2790 
2800 



I F 



NEXT 



A 
B 
I 

PR 



GOTO 



I 

C 
R 

PR 



RETURN 



PR 



RETURN 
FOR 



F 
TN 
TD 



NEXT 
SW = 
FOR 



DD 
DD 
SWll 
NEXT 



I F 
PL 



IM 
GlOSUB 
RETURN 
PRINT 



GOSUB 



B = 
INT 
A- 
INT 



DD 



TN 

TD 

PRI 

PRI 

PRI 



PR 
GO 
PR 



PR 
PR 
PR 



INT 



AO I 



DD 



INT 
INT 
INT 
INT 



PR 
PR 
PR 
PR 



GOSUB 
INPUT 
INPUT 
INPUT 
INPUT 



INT 
GlOSUB 
INT 



PRINT 



CALL 



CALL 
GOTO 



GOTO 



GOSUB 



GOSUB 
INPUT 
I NPUT 
D 

PR 
TN 
FOR 



1+1 



SW= 



NT 
INT 
NT 



2160 



K< 



NT 



NPUT 
TN = TN+|NN 
NEXT 
FOR 



NT 



THEN 



NT 



NT 



DD 



DD 



2010 



4520 

THE 
DI 



D2 
^2 



KEY 
STATUS< 



>49 



THEN 



TO 



N2 



CLEAR 
2400 
50 



2600 
' * * 

4590 



TO 



THEN 



THE 
3910 



DD 



1+1 



DI 



N1 
3830 

ENTER 
ENTER 
ENTER 
ENTER 



EQUALS 
1970 
PRESS 
PRESS 
E 




TH 
FRACT 



HOW 
IWHAT 



ENTER 



TO 



TO 



THEN 



DI 



SECOND 



THEN 



2120 

• ; B 

2170 



THEN 



THEN 



1+1 



THEN 



DED 



N1 



2280 



IDI 



RST 



ADDING 



SAME 



MANY 



D2 



590 



SECT 
IONS 



S 

THE 



2090 



THEN 
2640 



2270 
2270 



THEN 



NG 



BY 



FRACT 



TO 



STATUS 



THE 



FOR 



I ON 



FRACT 



FRACT 
THE 



N2 



DI 



FRACT 



THAT 
DENOMlI 



FRACT 



NUMERATORS 



I ON 



STOP 



2600 



2350 



ION 



D2 



NEXT 



ADDS 



I ONS 
DENOMI 



ALL 



I ONS 



I ONS 



NATOR 



PROBLEM 



HAVE 



NATOR? 



2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2 910 
2915 
2920 
2930 
2940 
2950 
2960 

2 970 
2980 
2990 
3000 
3010 
3020 

3030 
3040 
3050 
3060 
3070 
3080 
30901 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
32 20 

32 30 
3240 
3245 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 

3 3 30 
3340 
3 3 50 
3360 

33 70 
3380 
3 3 90 
3400 
3410 
3420 
343 
3440 
3450 
3460 
3 470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3 5 50 
3 5 60 



DENOMI NATORS 



NUMERATOR 
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3578 
3588 
3598 
3688 
3618 
3628 
3638 
3648 
3658 
3668 
3678 
3688 
3698 
3788 
3718 
3728 
3738 
3748 
3758 

3768 

3778 

3788 

3798 

3888 

3818 

3828 

3838 

3848 

3858 

3868 

3876 

3888 

3898 

3988 

3918 

3928 

3938 

3948 

3958 

3968 

3978 

3988 

3998 

4888 

4818 

4828 

4838 

4848 

4858 

4868 

4878 

4888 

4898 

4188 

4118 

4128 

4138 

4148 

4158 

4168 

4178 

4188 

4198 

4288 

4218 

4228 

4238 

4248 

4258 

4268 

4278 

4288 

4290 

4388 

4318 

4328 

4338 

4348 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



RETURN 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



RETURN 



DATA 



49 , 392 

RESTORE 



FOR 

READ 

CALL 

NEXT 

CALL 



RETURN 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



RETURN 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



RETURN 



SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 



SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 



262 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
CALL 
CALL 
FOR 
CALL 
NEXT 
CALL 
CALL 
CALL 
CALL 
RETURN 
FOR 
FOR 
CALL 
CALL 
NEXT 
NEXT 
FOR 
FOR 
CALL 
CALL 
NEXT 
NEXT 



SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 



SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 



1 TO 

M 
SOUND 
I 

SIOUND 



SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 



HCHAR 
HCHAR 
TO 
VCHAR 
Y 

VCHlAR 
VCHAR 
VCHAR 
VCHAR 



3758 



349 



HCHAR 
HCHIAR 

y 

X 



HCHAR 
HCHAR 



TP 

TIO 



TO 
TlO 



T2 
T2 
T2 
T2 
588 



T2 

588 

688 
688 
458 
158 
388 
380 
588 



784 
888 



523 
448 
698 
784 



392 



932 
888 
784 
888 



659 
587 



698 



698 
659 



698 



288 



488 
288 
288 
488 
288 
288 
588 

12 
13 
6 

14 

11 
11 
4 
14 

14 
13 



440 

262 
311 
392 
349 
311 
294 
262 



13 



440 



523 
440 
448 
494 
523 
494 
523 
494 . 2 
392 , 2 
448 

440 
392 
448 
587 
523 
587 
494 
448 
494 
392 

128 
128 



144 



STEP 
STEP 



144 



STEP 
STEP 
144 

Y|+1 



448 
587 
392 



10 



136 
136 
152 
152 



136 



136 



523 



440 



440 



392 



4358 
4368 
4370 
4380 
4390 
4488 
4418 
4428 
4430 
4440 
4458 
4468 
4478 
4488 
4498 
4588 
4518 
4520 
4530 
4548 
4558 
4568 
4578 
4588 
4598 
4688 
4610 
4620 
4630 
4648 
4658 
4668 
4678 
4688 
4698 
4788 
4710 
4728 
4738 
4748 
4758 
4768 
4778 
4780 
4790 



4810 
4828 
4838 
4840 
4858 
4868 
4878 
4888 
4898 
4988 
4918 
4928 
4938 
4948 
4950 
4960 
4970 
4980 
4990 
5088 
5818 
5828 
5838 
5848 
5858 
5868 

5878 
5888 
5898 
5188 
5118 
5120 



CALL 
FOR 
CALL 
NEXT 
FOR 
CALL 
NEXT 
RETURN 

Y = 6 
FOR 
CALL 
CALL 
CALL 
CALL 

Y = Y + 5 
NEXT 
RETURN 
CALL 
CALL 
FOR 
CALL 
NEXT 
CALL 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
DATA 

83, 
RESTIORE 
FOR 
READ 
CALL 
NEXT 

gIosub 



HCHAR 



VCHAR 



VCHAR 



TO 
VCHlAR 
VCHAR 
VCHAR 
VCHAR 



HCHAR 
HCHAR 



32 



12 



HCHAR 
X 

VCHAR 
N 

HCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
HCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
N 

VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



67 



TO 



TO 



12 

21 
10 

24 
10 



61 
136 

144 



10 
10 



Y 
Yl+1 



136 



136 



TO 



11 



HCHAR 



79 



5510 



12 



18 
11 



Y 
Yl+1 



128 



128 



11 
11 



136 
36 



3 
13 



14 



144 



18 
11 
11 
18 
18 
14 
18 
18 
12 

2 
18 
18 
13 

3 

18 
14 
18 
18 
12 
12 
18 
11 
12 
13 
10 
10 
12 
12 



17 

8 
8 
9 
1 

14 
1 

18 
19 
18 
19 
23 
24 
23 
24 

8 
8 

12 
13 
12 
13 
17 
17 
17 
17 
23 
24 
23 
24 



11 



93 

128 
152 
152 
128 
128 
52 
128 
128 
152 
52 
128 
128 
152 
152 



7 
4 
5 
6 
7 
8 
9 

10 
11 
11 
10 
9 



15 
14 
13 
13 
17 
1 7 
17 
17 
17 



7 

17 
17 
15 
14 
13 



13 



128 
136 
144 
144 
128 
128 
136 
152 
152 
52 
152 
152 
144 
144 

128 
128 
128 
28 
136 
136 
136 
136 
152 
152 
152 
152 
144 
144 
144 
144 



77 



80 



65 



4 
4 

82 



73 



5860 
TO 



22 



14 



83 



79 



78 
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5130 

5140 
5150 

5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 



DIM 



INPUT 

NF<11 



I 

PRINT 
GOTO 
FOR I 
PRINT 
INPUT 



NPUT 



PR 



PR 



INT 
NT 



PRC 
FRD 
NEXT 



SW = 
FOR 
I F 
FF 
FRC 
FRC 
SW = 
NEXT 



I 

FlOR 
FIOR 
I 

NEXT 



NNN 



INT 



NT 


I 

FRC 
FRC 

( 



I 

S|W1= 



I 

FRC 



5160 
1 



I 

iN-l 



HOW 



10 ) 

THI S 
FROM] 



SORRY 



TO 



NNN 
FRC 



TO 



FRC 



THEN 



MANY 



NF 
FRACT 



NUMERATOR 
DENOMINATIOR 



THEN 



DDD 



ARRANGES 
SMALLEST 



NF 
NF 
FRD 



NF 
FRC 

1+1 



UP 



DDD 



5200 



ION 



5280 



NNN 



10 



FRACT 



1+1 



TO 



THEN 



FRC 



TO 



10 



FRACT 



IONS? 



THEN 



ONLY 



NNN 



10 



5410 



LARGEST 



I 

DDD 



IONS 



5350 



DDD 



FRD 



NF 



10 



5420 
5430 

5440 
5450 
5460 
5470 
5480 
5485 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5 650 
^660 
5670 
5680 
5690 
5700 



CALL 
GOTO 



NEXT 



CALL 



GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



NT 



NT 



STATUS 
K<>49 



RETURN 



KEY 



CLEAR 
5070 



50 



VC 



PRESS 



5450 

SOUND 
VCHAR 
VCHAR 
SOUND 
HCHAR 
SOUND 
SOUND 



VCHAR 
SOUND 
SOUND 
SOUND 
VCHAR 
VCHAR 
SOUND 
VCHAR 
SOUND 
VCHAR 
SOUND 



THEN 



THEN 



AR 



PRESS 



TO 



FOR 



STOP 



NEXT 



PROBL 



STATUS 



THEN 
5490 



5450 



590 



400 



100 
7.8 
100 
400 



100 
100 
400 



330 

36 

36 
330 
144 
262 
330 

128 

152 
330 
262 



330 



23 
24 



200 



23 



392 



52 
152 

2.1 
36 



262 



200 



24 



400 



524 

136 
660 



DIVISION 



Homework Helper: Students do 
their class assignments on paper 
in the usual way. . . . and then 
use the Homework Helper to 
quickly correct their assignments. 



Division gives the answers to three types of homework 
problems an elementary school student may en- 
counter: division with a remainder, division with a 
decimal in the quotient, and division to convert a fraction 
to a decimal. 

Only the answers are given, not the step-by-step process 
of long division. The student is* encouraged to do the 
homework — writing each step in the division process and 
then using this program to check the answers. Music and 
graphics enhance the interaction. 
1. Division with Remainder. Most math problems can sim- 
ply be corrected with a calculator. However if there is a re- 
mainder, a calculator converts it to a decimal equivalent. 
This program keeps the answer in quotient-plus-remainder 
form. The student enters the divisor and dividend; the quo- 
tient and remainder are printed. 



2. Division with Decimal. Usually after students master the 
idea of a remainder, they are taught how to place a decimal 
and keep dividing. In this section, a student enters the divisor 
and dividend; the quotient with a decimal fraction is printed. 

3. Convert Fraction to Decimal. A fraction is converted to 
a decimal by dividing the numerator by the denominator. 
The student enters the numerator then the denominator; the 
equivalent decimal fraction is returned. 

After each problem, a student may enter another pro- 
blem of the same type. If there are no more problems of 
the same kind or the student wishes to stop, he enters zero 
and the menu screen will return. 



EXPLANATION OF THE PROGRAM 
Homework Helper: Division 



Line Nos. 
130-770 

780-1680 

1690-1810 
1820-1940 
1950-2050 
2060-2320 



Prints title screen and blinks color while special 
graphics characters are defined. 
Plays music; prints menu screen and branches 
appropriately for student's response. 
Subroutine to print labels of division problem. 
Routine for division with remainder. 
Routine for division with decimal. 
Routine for converting fraction to decimal. 



100 
110 



20 
30 
140 
50 



REM 
REM 
REM 
T = 300 
CALL 
CALL 



HOMEWORK 



DI 



CLEAR 
ChIaR ( 96 . 



HELPER 
I ON 



0000784444444478 



180 
90 
200 
210 
220 



CALL 
CALL 



PR 



PR 



CALL 



CALL 
CALL 



NT 



NT 



CHAR 

cIhar 

TAB 
CHAR 



CHAR 
CHAR 



TAB 



100 
101 



0000381010101038 
0000444444442810 



M 



0000384430084438 

H 

00007C444444447C 
0000784444784844 
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PRINT 

N- 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
JCALL 
jCALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



CHAR 

CHAR 

COLOR 

HCHAR 

VCHAR 

VCHAR 

HCHAR 

COLOR 



CHAR 

CHAR 

COLOR 

CHAR 

CHAR 

COLOR 



CHAR 
CHAR 
COLOR 



CHAR 
CHAR 
COLOR 
CHAR 
CHAR 
COLOR 
CHAR 
CHAR 
COLOR 
CHAR 
CHAR 
COLOR 
CHAR 
CHAR 
COLOR 
CHAR ( 
CHAR 
COLOR 
CHAR 
COLOR 
CHAR 
CHAR 
COLOR 



CHAR 
CHAR 
COLOR 
CHAR 
CHAR 
COLOR 
CHAR 
CHAR 
COLOR 
CHAR 
CHAR 



( 
I 

CpLOR 
CHAR 
COLO 
CLEA 
CHAR 



COLOR 
COLOR 
SOUND 
VCHAR 
SOUND 
HCHAR 
SOUND 
HCHAR 
HCHAR 
HCHAR 
SOUND 
HCHAR 
HCHAR 
HCHAR 
SOUND 
IHCHAR 
SOUND 
HCHAR 
SOUND 
HCHAR 



HCHAR 



102 
103 



2 

ia 

1 

1 

18 
2 

104 
105 
( 2 
106 
107 
( 2 
108 
112 
(2 
113 
114 
2 

115 
116 
(2 
117 
118 
( 2 
119 
109 
( 

110 
111 

I 

36 
37 



2 

121 
(2 
122 
123 
2 



27 



( 

124 
25 
(2 
126 
1 

128 
129 
(2 
130 

31 

2 

132 

( 2 

120 
12 
3 

/ 



TAB ( 7 ) ; -D I V I S I |0 

3F101O08O81O102 
FF0O784444444478 



16 

t 

7 

> 

1 
7 

16 

) 
» 

7 

16 

I 

7 

f 

16 

7 , 
16 

I 
I 

7, 
16 

I 
t 

7 

16 

7 
2 



16 ) 
42 



330 



330 



19 



19 



) 

444444444438 
7C444444447C 



FOF0EOC 

) 



FFFFFFFFFFFFFFFF 
1 
1 

262 



349 



330 



392 



120 
294 
121 



122 
123 
124 
.4, 
125 
120 
26 
. 
20 



127 



120 
128 



196 

) 

1 

4 

4 

) 

147 



31 



42 

42 
42 
7 

FF003810101011038 
FF0044444444281 
16 ) 

FF0O7C407840407C 
FF00446454544C44 

7) 

01 72FCFEFEFE7E3|C 
384444544C3C 
16 
4 
C 
7 

7C101010101 
381010101038 
16 

7C4O78404O7C 
446454544C44 

) 

00784444784844 
0OO004eciC3870E 
16 

ei03O70E1C387 
8OC0E07O381C0E07 

) 

80CeE0F0F8FCFEFF 
7F3F1 F0r0703O1 
16 

O00O00O003O70F0F 

) 

030F3FFFrFFFFrFr 
C0FOFCFFFFFFFFFF 
16 

OOOOOOOOCOEOFOF 
1FlF3F3F7r7FFFFF 

) 

F8F8FCFCFEFEFFFF 
FFFF7F7F3F3F1F1F 
16) 

FFFFFEFEFCFCF8F8 
OF0F07O3 
7) 

FFFFFrFFFF3F0r03 
FFFFFFFFFFFCF0C 
16 



10 



10 



10101 
1020 
1030 
1040 
1050 
10601 
1070 



1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
12 00 
1210 
1220 
1230 
1240 
12 50 

260 
12 70 
12 80 
12 90 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 

3 90 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
15 701 
1580 
1590 
1600 
1610 
1620 

1630 
640 
16501 
1660 
1670 
16801 
1690 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
|P R I N T 



PRINT 
PR 
|PR 
IA 
CALL 



PR I 
CALL 
I F 

CALL 
ON K 
DATA 
3,104 
7001 DATA 



1710 
1720 
1730[ 
740 
17501 
1760 



15 



CALL 



FOR 
READ 
CALL 
NEXT 



HCHAR 
HCHAR 
SOUND 
HCHAR 
HCHAR 
COLOR 
COLOR 
SOUND 
COLOR 
COLOR 
SOUND 
HCHAR 
HCHAR 
SOUND 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
SOUND 
HCHAR 
HCHAR 
SOUND 
HCHAR 
SOUND 
HCHAR 
SOUND 
HCHAR 
SOUND 
COLOR 
HCHAR 
HCHAR 
HCHAR 
SOUND 
HCHAR 
COLOR 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
CHAR ( 
SOUND 
SOUND 
SOUND 
[HCHAR 
SOUND 
SOUND 
SOUND 
HCHAR 
SOUND 
HCHAR 
HCHAR 
SOUND 
HCHAR 
HCHAR 
SOUND 
HCHAR 
IHCHAR 
oloSE 
1 
2 
3 



NT 



32 



RESTORE 



HCHAR 
4 



I = 



11 



T 

14 
9 
T 
1 

14 

T 

14 
15 
15 
16 

T 

16 
17 
T 
1 

T/ 
18 
T 

18 

T 

10 
18 
19 
19 
T 

20 
11 

T 
T 
T 
T 
T 

120 

/ 



KEY 
K<49)+( 
CLEAR 



GOTO 
98 



97 
105 



COLOR 



HCHlAR 
I 



CONVERT 



1690 

TO 



15 



(23 
END 



104 
113 



349 



9 
9 

294 
10 
10 
11 
11 



294 



14 
392 
7 , 
15 
14 
15 
392 
16 



523 
523 



1 
1 
1 

349 



330 
36 
137 
3 



330 



349 



370 



494 
784 



10 



K 

K>52 



18 
587 
523 




494 
22 

880 
22 
22 

494 
22 
22 



129 
130 
3 

131 



32 



175 
36 



1 

137 
36 
137 



137 



136 



440 
494 



109 
110 
111 
1 



111 



523 
67 
72 

llON 
I ON 



31 



PROGRAM 



1820 

97 

103 
114 



.G 



196 



196 



165 



196 



587 

7FBFDFEFF7FBFDFE 
523 
1 



108 




108 


108 
108 



76 



THEN 



165 
96 



175 
196 
) 
1 
1 

175 
7 



196 
7 



165 



WI 
WI 

FHACT IION 



1950 
100 



99 

106 
11 



1650 



107 
116 



131 



REMAINDER 
DECI MAL 



2060 
101 



TO 



103 
117 



DECI 



2320 
102 



32 
118 



10 
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1770 
1780 
1790 
1800 
1810 
820 

1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1 
1 



910 
920 
1930 



940 



1950 

1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 



GOSUB 
CALL 
CALL 
INPUT 
I 
I 

C 



FOR 
READ 
CALL 
NEXT 



RETURN 



PR 



NPUT 
NT 



I 

PRI 



PR 



PR 



NT 



GOTO 



GiOSUB 
CALL 
CALL 
INPUT 
I 

INPlUT 
NT 



HCHAR 
1 



1710 

HCHAR 
HCHAR 
I 



NT 



( 
( 
I 

THEN 



OR 
1830 

I 

71 

HCHAR 
HCHAR 
I V I 
THEN 



OR 



TO 



23 
18 



SlOR 

780 
DEND 



QUOT 



QUOT 



I ON 



ENTER 




ENTER 




ION 



SlOR 

780 
DEND 



ENT 



ENT 



WI 



TO 



TO 



WI 



TH 



NEXT 



46 
35 

D 
N 

NEXT 
STOP 



STOP 



TH 



REMA 



PROBLEM 



DECIMAL 



PROBLEM 



NDER 



2050 
2060 

2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 

2270 
2280 
2290 
2300 
2310 
2320 



GlOTlO 



PR 



INPUT 



F 
N 
F 
PRI 



NT 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



I 
P 


GOTb 



GOTjO 
END 



NPUT 



1960 

CONVERT 



NT 



D<>0 
NT 



CHAR 

CHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

COLOR 

HCHAR 

HCHAR 

HCHAR 



2240 

N 



OR 
2210 



THEN 
tDENOlHI 

THEN 
SlORRY 



120 
138 
16 
17 
18 
19 
20 
21 
18 
18 
10 
18 
18 
18 



NlUlMERlATOR 
780 



ENTER 
ENTER 



FRACT 



FFFFFFFFFFFFFFFF 
0O0O00FFFF 



120 
120 
138 
120 
120 
120 
61 
46 



NATOR 
2280 

CANlNlOT 



13 
108 
108 
108 



[NEXT 




I ON 



N/D 



TO 



TO 



PROBLEM 



STOP 



DECIMAL 



DE 



BY 



ZER 
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Time to review Ezekiel's "Dry Bones" song: "Leg 
bone connected to the hip bone. . Or was it the 
ankle bone? Or what bone is where?? This program 
is designed to teach the names of the major bones of the 
human body and where they are located, and then turn what 
could be a dry, repetitious drill into an enjoyable game of 
Name That Bone. 

The menu screen of the program gives the choice of ma- 
jor parts of the body, head, arms, torso, and legs, or end 
the program. Each section will label the main bones of the 
part of the body chosen: 

1. HEAD: frontal, parietal, zygomatic, temporal, max- 
illa, mandible. 

2. ARMS: humerus, ulna, radius, carpus, metacarpus, 
phalanges. 

3. TORSO: spine, ribs, clavicle, scapula, sternum, ilium, 
ischium, sacrum, coccyx. 

4. LEGS: femur, tibia, fibula, patella, tarsus, metatarsus, 
phalanges. 

You may study the labeled diagram of the bones as long 
as you wish, then press ENTER. The labels will be erased 
and it will be your turn to Name That Bone. The bones are 
listed in a random order at the left of the screen for your 
choice of answers. A bone will be chosen randomly and will 
blink red and white until you press a number correspond- 
ing to the name of the bone. If you are correct, an arpeg- 
gio is played; if you are incorrect, a noise is sounded. You 
must press the correct answer to continue, and it won't take 
long for you to learn the names of your bones. 

After each bone is chosen once, you will be asked TRY 
AGAIN? (Y/N). If the response is N, the program returns 
to the menu screen. If the response is Y, the names of the 
bones will be rearranged and the bones will be chosen in 
a different order. 

Programming Techniques 

There are four main parts of the body from which to 
choose, and each part uses the same program logic, so 
subroutines are used. The subroutines are located at the 
beginning program. For some microcomputers, execution 
is faster for subroutines called closer to the beginning; 
however, the speed in TI BASIC does not seem to depend 
upon the location of the subroutine. 



For each part of the body, different characters are de- 
fined. The appropriate DATA statement is RESTOREd, 
then the subroutine to define characters (lines 160-210) is 
called. After the labels for the bones are printed, the bones 
are drawn, again RESTOREing the corresponding DATA 
statement and calling a subroutine (lines 320-360). 

The main procedure is in Lines 370-980. The program 
will read from DATA the names of the bones and the 
character set number, then randomly print the bones and 
choose the bones for the quiz. 

The graphics characters were designed so that a specific 
bone could be blinked by using CALL COLOR statements. 
The characters of one bone must be in one character set, 
and another bone in another character set. When the main 
part of the body is first drawn, all the characters are yellow, 
but as the bone is chosen, the characters in that set will blink. 
An example is shown with the skull bones. 

(NOTE: The wrist and hand bones are known either as 
the carpus and metacarpus or carpals and metacarpals. The 
carpals are the elements of the carpus (wrist bone). You may 
wish to relabel these parts to be consistent with the way you 
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EXPLANATION OF THE PROGRAM 
Name That Bone 

Line Nos. 

150 Branches to title screen. 

160-210 Subroutine reads C and C$ from DATA to 

define graphics characters. 
220-310 Subroutine prints PRESS ENTER and waits for 

the user to respond. 
320-360 Subroutine reads DATA to draw graphics. 
370-980 Subroutine for main program logic. 
370-390 For the number of bones R, reads the name of 

the bone and the corresponding character set 

number. 

400-520 Randomly prints the names of the bones for the 
multiple-choice answers and arranges the cor- 
responding character set number and answer 
number. 

530-580 Prints NAME THAT BONE at the top of the 
screen. 

590-660 Randomly chooses a bone and blinks it red and 
white while waiting for the user to press the 
answer. 

670-780 If the answer is correct, plays an arpeggio and 
goes to the next bone; if the answer is incorrect, 
sounds a noise and awaits another key press. 
790-980 Prints TRY AGAIN? (Y/N) and branches ap- 
propriately after Y or N is pressed. 

990-1100 Defines graphic characters for head. 

1 1 1 0- 11 20 Labels head bones. 

1130-1260 Draws skull and waits for user to press ENTER. 



1270-1300 Clears labels. 
1310-1350 Main procedure for head. 
1360-1440 Defines character for arm. 
1450-1510 Labels arm bones. 

1520-1590 Draws arm bones and waits for user to press 
enter. 

1600-1630 Clears labels. 

1640-1680 Main procedure for arm. 

1690-1830 Defines characters and colors for torso. 

1840-1860 Labels torso bones. 

1870-2030 Draws torso bones and waits for user to press 

ENTER. 
2040-2090 Clears labels. 
2100-2170 Main procedure for torso. 
2180-2250 Defines characters for leg. 
2260-2270 Labels leg bones. 

2280-2380 Draws leg bones and waits for user to press 

ENTER. 
2390-2420 Clears labels. 
2430-2470 Main prodecure for leg. 
2500-2610 Prints title screen and draws stick figure. 
2620-2710 First time through the program defines the first 

character in each character set as a solid block. 

It then asks if instructions are desired. 
2720-2800 Prints instructions and waits for user to press 

ENTER. 

2810-2900 Prints choices of head, arms, torso, legs, or end 
program. 

2910-3000 Waits for user's choice and branches 
appropriately. 



100 
110 
120 
30 
140 
150 
160 
170 
180 
190 
200 
210 
220 



230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 

500 
510 
520 



REM 
REM 
REM 
REM 
REM 
GOTO 
FOR 
READ 
CALL 
NEXT 
CALL 
RETURN 
DATA 



RESTORE 



FOR 
READ 
CALL 
NEXT 
ClALL 
I 

ClALL 



69 



FOR 
RR 
I F 
BS 
BB 



( 

AINS 
CALL 
FOR 
CALL 



NEXT 

BONES 

NEXT 



80 
82 



Kol 3 



RETURN 



FOR 
REAlD 
CALL 
NEXT 
RETURN 



FOR I 
READ 
NEXT 
RANDlOlMI 



ClHAR 
I 

ICLEAR 



HiClHlAR 
Y 

KEY 



HCHAR 



NAME 



2490 



BOiNES 
RR 



C$ 



19 



62 



TO 
X, Y.G 

hIchIar 
I 



TO 
BIOINES 



HCHAR 



HCHAR 



RR 



TO 



82 



220 

TO 



ZE 

TlO 
RND 





THEN 



BONES 



THAT 



32 



RR 



RR 



CS 



69 



24 



32 



R + 1 



LEN 



15 + 1 



15 + 1 



83 

Y 

) 

280 
19 



RR 



BONE 



83 



BS 



32 



1+3 



THEN 



32 



481+1 
RR 



ASC 



420 




60 



69 



SEGS 



78 



BS 



84 



RR 



5 30 

540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 

800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 



DATA 
66 



RESTORE 
FOR 
READ 



CALL 
NEXT 
FOR 
RR 
I F 



CALL 
CALL 
CALL 
CALL 



BS 



BS 



CALL 
GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



FOR 

READ 

CALL 

NEXT 

CALL 

CALL 

CAL 

CALL 

CALL 

CALL 

F 

F 

FlOR 

CALL 

NEXT 



79 



NEXT 
DATA 
32 

RESTORE 



HCHAR 



HCHAR 



KEY 



RR 



78 



RND 



65 



530 

TO 



( 
{ 

THEN 
ANS 



COLOR 

cIolIor 

1 

48 

SOUND 
6 30 

HCHlAR 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
cjOLIOR 
) 
I 

84 



22 



HCHAR 



6 
H 
Y 

HClHlAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
KEY 
78 



HCHAR 



77 
69 



82 

790 

TO 



23 



R + 1 



(0 

THEN 
THEN 
TO 



RR 



6 9 
32 



THEN 



630 



500 



1 

150 
150 
150 
150 
200 
BB 



89 



32 



24 



63 



THEN 



RR 



32 



2490 
900 



32 



32 
262 
330 
392 
330 
262 



32 



600 



65 



84 



700 



71 



72 



65 



6 5 



73 



84 



78 



32 



6 3 
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960 
970 
980 
990 
1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 
1100 
1110 

1120 



1130 
1140 



1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

1230 

1240 
1250 
1260 
1270 
1280 

1290 
1300 
1310 



CALL 
CALL 
RETURN 
RESTORE 



DATA 



E0F8FCFEFF 



E0E0F0F0F8F8FCFC 



DATA 



FFFFFEF8F0C 



09 

DATA 



0F0F1F1F3F7F 



108 

DATA 



7F7F3F1E0C 
303030303 



DATA 



C0C0E0E0F0F8 



158 

DATA 



FFFFFFFFFFFF 



116 

DATA 



FFFFFF3F1 F07 



122 

DATA 
125 
0F8 
DATA 



GOSUB 
PRINT 
AL 



14 

DATA 
12 



21 

DATA 



DATA 
1 
9 

DIATA 
1 
1 

DATA 
158 



20 



DATA 
120 



0F7FFFFFFFFFFFFF 



OFOFOFOFOFOFOFOF 



00000001 030FFFFF 



FFFFFFFFFEEOCOC 



0F8F8F8 



FFFF77777777 



FFFFFFFFFFDB1BC 



37 



INT 



RESTORE 
DATA 

17 
1 
4 



21 



20 

DATIA 
126 
16 



20 



16 



DATA 
20 
17,1 
DATA 
124 
66 
GIOSUB 
GOSUB 
RESTORE 
DATA 
22 
6 

GIOSUB 



7F1F0701 



FFFFFFFFOF 
CFCF878703030101 



TAB 

IMIAXI 



11 



115 



147 



HCHAR 
HCHAR 



97 



101 
EF8 
7FF 
105 



137 
F1E 
030 
154 



113 

FFF 
FFF 
117 



123 
FCF 
F8 
127 



99 



12 



10 



160 



104 



15 
106 



12 



101 
12 
18 
,1 
,1 
20 



12 



32 



320 
230 



320 



1000 

FOFCFFFFFFFFFFFF 



PAR 



14 



12 



108 
13 



13 



10 



11 



12 



14 



16 



FCFCFEFE3F1 FOF07 



OO00OOO31F3F7FFF 



0FOFeFOFO30301O1 



99 



155 



15 9 

0303e3O303O3O70F 



7C7E7F7F3F3F1F1F 



20 

LLA 



1140 



97 



104 
1 



103 



156 



17 



TEMPORAL 



105 



96 



104 



107 



136 



13 



12 80 
32 
13 



103 



107 



O08OCeC0EOE0E0E 



157 
30F 
7F7 
115 



121 



FFFEFCF 
F0C0808 



146 



ETAL 



1 

112 



136 



18 



21 
137 



16 



17 



21 



21 
138 



17 
145 



122 



157 



118 



144 



32 



21 



102 

FFFF7F1F1F0F0707 



ZYGOMAT 



27 



7F7F3F3F3F3F3F1F 



0F3FFFFFFFFFFFFE 



1F1F0FOF0FOF1F1F 



O0O0OO8OE0FCFFFF 



FF7F3F1F1 



OOBBBBBBFFFFFFFF 



145 

FFFF7B7B7B7B 



15 



1 

114 



1 

116 



5 

146 



15 
98 

19 
104 



19 



18 



21 



10 



11 



12 



14 



16 



10 



124 



TAB 



96 



13 



32 



126 



109 



97 



96 
,5 

136 



96 



154 



153 



16 



13 



14 



15 



18 



IC 



16 



153 



98 



106 
F3F 

138 



FEFCFOC08 
0080EOF0F 



20 



MANDI 



117 



136 



125 



121 



121 
123 



156 

FFF 

114 



118 



F0F0701 



159 



144 



120 



O0O0CO 

100 



0303030 



20 



20 



21 



10 



3 2 



FFFF 
147 



FRONT 



16 
106 



96 



21 



32 



FFFF 
07 , 1 

0107 



FFFF 



TAB 
BLE 



98 



102 



16 



10 



11 



12 



14 



16 



FFFF 



0080 

FFE , 

OFOF 



100 



153 



15 
10 

17 
10 

14 
11 

,1 
13 



15 



20 



1320 



330 
1340 

350 
1360 

370 



1380 



1390 



1400 



1410 



1420 

1430 
1440 
1450 

1460 
1470 
1480 

1490 
1500 

1510 
1520 
1530 



1540 



1550 



1560 



1570 
1580 
1590 
1600 
1610 
1620 



1630 
1640 
1650 

1660 
1670 
1680 
1690 
1700 



1710 
1720 
1730 



DATA 



IC 
LLA 



RESTORE 



GOSUB 
GOTO 



RESTORE 



DATA 



OFOF0FOF0F 



1C3C7EFFFFFFFFF 



DATA 



FFFFF7F7E3C1 



121 

DATiA 
FEF 
137 
DATA 



FEFEFEOOeOFE 



COCO8OOO0OFE 



141 

DATA 



8FOEOC08 



DATA 



01010101 



GOSUB 
PRINT 
RADIUS 



CALL 
CALL 



PRINT 
RPU 
CALL 
PRINT 
S 

ClALL 



RESTORE 



DATA 



145 



23 





DATA 
04.8 
21 

DATiA 
29 
46 
DATA 
1 

143 



GOSUB 
GOSUB 



N 

RESTlORE 



DATA 



DATA 
11 
14 

iGlOSlUB 
6 

DIATIA 
lARPUS 



GOSUB 
GOTO 



DATA 



DATA 



DATIA 
FFF 
109 



11 



27 



RESTORE 



RESTORE 



105 



15 



7E7E7E7EO07E7E7E 



FFFFFFFE00OO80C 



FFFFFF0O0OFFFFFF 



HCHAR 
HCHAR 



96 



frIontal 

MANDI 



370 
1330 



97 



101 



129 



142 



64 



HCHAR 



VCHAR 



10 



FF1F1F1F0F 
FFFFFFFF 



FFF8F8F8F8 



F3F7FFFFFFF 



38 



0O0OO1070F1F7FFF 



160 

TAB 



10 



43 



36 



98 



106 



FFFFF8F8FFFF 



10 

320 
230 



23 
.3 
.3 
320 



12 



370 
1660 



1320 



1370 

0001030307070707 



0O00O01F1O1O101 



HUMERUS 



1530 
97 



22 



HUMERUS 



E0EOEOEOE0EOE0E 



F7F3FOF0F0F3F7FF 



FEFEFEFEFEO0O0O0 



FFFFFFFFFFO00OFF 



FFFFFFOOOOlCOEOEO 
146 



95 



20 



BLE 



99 



21 



101 

113 

121 
121 
30 

138 

140 

141 



29 



1620 



32 



101010101 



22 
22 

TAB 



23 



12 



E0E0E0FFFFFF808 



11 



131 



140 



96 



32 



MET|AC|A|RP[US 
1650 



99 



9 8 

07070707030301 



PAR 
12 



@PHALANG 



12 



10 



12 



3FFFFFFF1F1FFFFF 



108 



O00000OOOOFFFFFF 



FEFEFEO000FEFEFE 



FFFFFFFFOOOOFFFF 



10 
10 



10 



1700 

FFFFOOFFFFFFFFFF 



FFFFFFFF071F3F7F 



OeCOFOFCFEFFFFFF 



TEMPORAL 



ETAL 



98 



RiAlDIlUS 
13 



FFF7E7F7F7F7F7FF 



24 



14 
32 



FF1 F0701 



ULNA 
TAB 



23 



139 



18 



10 
96 

102 
112 

145 
131 



142 



32 



19 



FFFFFFFFE0F8FCFE 



0707070707070707 



10 



10 



94 



143 



102 



130 



139 



TAB 



ZYGOMAT 



14 



ULNA 



101 
102 



O707O7FFFFFFOiei 



OFOFOF 
100 



1878F8F 
1010101 



PHLANGES 



107 



MAXI 



FFFF 



FEFE 



80C0 



C0C0 



12 



METACA 



CARPU 



99 



11 



24 



10 



11 



FFFFFF 



35 

FFFFFF 



. 00030 

FFF8E0 



10 



14 



FCFF 
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1740 

1759 

1 76B 

177 3 

17 3 3 

17 9 3 

1333 
13 13 
1 3 Z 3 
1333 
1313 

1353 

1353 

1373 
1333 
13 93 

1933 

1913 

1929 

1 9S9 

1949 

1950 

1960 

1979 

1980 

1990 
2000 

2010 
2020 
2030 
2040 
2050 

2060 



2070 
2080 



DATA 



COC0FFFF 



O000ICOE18F1 
16 



DATIA 
F9F 



9E9F9FBFCFE 



DUr A 



F9EBCB3 
7E7:S31 



SF5P3F3P37B1 



53 



F F F 7 F 7 E 5 :l 



3 7 E F E F E F E 



1 515 

» = 



42 

: ^ L L 
s I !i|r 



p a I d r 



1 5 

P R 



» E 5 r }[{ E 



4 



r \ 3 



F F F F F F : 1 F 5 F 5 E 



S6 

5 

5 ,|1|3 

dIaf ^ 

. B 
6,16 



7 

tDAlrlA 



1 

tDlATlA 
113 



21 



1 9 1 

0b0[10[10|1|:l7 F F 



» r 



1 5 



1 1 



11 



29 

DATIA 
116 



DATA 
134 



DATA 
120 



DATA 



120 



DATA 
120 
DATA 



DATA 



10 

7 

data! 



= 13 



121 



F 7 F 7 F 7 F 7 F 7 F 7 F 7 F 7 



r \ i 

$t \ P JLIA 



1 5 



38 



8 4 

GlOlSUB 
GOSUB 
RESTORE 



11 



123 



1 Z Z 



1 43 



1 5 3 



5 3 

:0L }ti 



1 3 



121 



120 



151 



2 

127 



1 

141 



24 



qOiSUB 3 20 



r \ 3 



35 



119 

4 

3 

12 



32 



I i E 



3 \ i 



1 1 



1 37 
5 , 
1 1 
1 3$ 



16 



17 



18 



20 



20 



0991 93979F1 F3F7F 



. 1 



SS,EFF7E7E7[;5 31 
, [1 4 5 , 7 D 4 1 S E 5 B 1 : 8 3 
3 3 3 3 8 3 F F F F F F F F F 



13 9 3 



21 

1 113 
1 7 
117 

h B 



11 



13 
1 

i 

3 



18 
1 

1 
1 



320 
230 



17 



06O60CF8F8F 



7FSF1 FBF97B591 



3 3 3 3 3 3 3 3 E 5 F F 



3 3 : 1 E 1 



F E F 



r \ 3 



2 S 



16 



19 



21 



OOOOeOFFFFFF 



117 

F 



1 3 



2 3 



96 



20 



1 1 9 



16 



17 



18 



20 



24 



2050 
32 



128 



2 9 



$03 I 
1 7 



IB 

137 



5 

BH 
1 

11914 
6 
9 

]e|4 

H 94 



20 



19 



17 



17 



14 
32 



COF0F8|C0e303FFFF 
119 



1 5 



2 Z 



1 
5 



113 



130 



1 
16 
129 



18 
120 



14 
120 



127 



F F 



1 F 5 

r|7f 7f !7f |7t|7 

F E F 



J 4 



1 2 



116 
10 



119 
14 



120 
1 



3 

145 



139 
30 



LAVIIpLE 
5 r E S U 4 



L I J 4 



1 1 7 



11 



20 



5 E 7 E F : F : F 3 F 8 E 3 3 



: 1 3 5 F 9 F 5 E 7 : F : I 



E F 



1 Z 



1 Z 
1 8$ 



120 



131 



32 



1 9 



E F E 



$|VPP I'M 
5 



I 4 



1 B 



16 



17 



19 



20 



21 



32 



11 



16 
1 

1 
1 



F F F 



95 



1 9B 



18 



19 



21 



19 



17 



114 



189 



192 
1 13 

1113 

1 9 



18 



32 
128 



1215 
.[127 



19 



21 



21 



16 



19 



18 



6969391F1 



E F E 



1 

7 

1 

4 

4 

11 1|3 



122 



137 



06OF1F03 



?2 



1 57 



. 1 



1 59 



5 5 



113 
11 



128 
125 



123 
120 



9 3 



5 

119 



140 



24 
22 



, 99B9C 

FEFCFB 
, F7EFE 



8 3 i9 

FE F E F 



ITK^ ( 



1 5 



5 

1|9$ 

25 
1 113 



112 

B 
9 



18 



115 



|7Cl7 E 
, 1 



F|F F F 
1 5 



1 9 



16 
1 

17 
1 

1 
2 

20 

21 
1 



32 
32 



17 



99 



17 



h 319 
2 

in 



1 1 

14 
16 

18 
17 

19 
18 

14 
19 

19 

16 
21 



104 



2090 
2100 



2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 



2200 
2210 
2220 

2230 

2240 
2250 
2260 

2270 



2280 
2290 
2300 
2310 
2320 
2330 



2340 



2350 



2360 
2370 
2380 
2390 
2400 



2410 
2420 
2430 
2440 



2450 
2460 
2470 
2480 
2490 
2500 

2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 



CALL 
DATA 



STERNUM 



RESTIORE 

370 



GOSUB 
CALL 
CALL 
CALL 
GOTO 



RESTIORE 
97 

F7F7F7F7F 



FFFFFFFFFFFEFC 



DATA 



105 

FFFF7F7F7F7F 



11 

DATA 



0F0FOF0FOF0F 



37 

DATA 



8F0FO707O7 



DATA 



OFOFEFFFFFFFFFE 



GOSUB 



PR 



TAB 
A 
P 
B 



PR 



PHALANGES 
VCHAR 



CALL 
CALL 
CALL 
CALL 



14 



PR 



FCFEFFO3F8FE07E 



19 



14 



DATA 
10 



DATA 
115 



DATA 
145 



23 
7 

SI 
7 



GOSUB 



GOSUB 
GOTO 
STOP 
CALL 



AS 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



NT 



16 



16 



20 

GlOSUB 
GOSUB 
RESTORE 
DATA 4 
5 

t 

N 
G 
R 
D 
I 



COCCYX 



FFFFFFFFFFFFFE8 



1C3F1F0FO7030F0F 



14 



32 



DATA 

BULA 
HALANlGES 
RESTORE 



NT 



CHAR 



CLAVICLE 



VCHAR 
VCHAR 
VCHAR 
2120 



146 



VCHAR 
VCHAR 



VCHAR 
RESTIORE 



137 
23 



19 



22 



38 



60 

T|AB 
) 



TAB 



TARSUS 



320 
230 



320 



FEMUR 



370 
2450 

CLEAR 



TAB 



CHAR 



COLOR 
HCHAR 
HCHAR 
HCHAR 
VCHAR 
^CHAR 
VCHAR 



10 



2100 



2190 



F0F8F8F8F0EOCe8 



100 
1 
5 



15 
24 



16 

32 
32 



7E7F7F7F7F7F7F3E 



FFCF8F8F0F0FOFOF 



38BEBFBF00F8FEFF 



F80EF678 



PATELLA 



145 



99 



2330 
98 



2400 



2440 



140 



14 



32 



114 
1 
5 

139 



TARSUS 



FFFFFFFFFFFFFFFF 



3F1FOFO707030301 



114 
FFF 
8F8 
129 



14 



11 



1 

29 
1 
1 

146 



21 



7F7F3E3E1C08 



SPINE 
I 

SCHIUlM 



FFFF01FEFFO1 



FEMUR 



11 
16 



PATELLA 



NAME 



121 
120 
123 



00C0FFFFFFFFFFFF 



3E7FFFFFFFFFFF7F 



112 
21 



16 
14 

1 
1 

38 
23 



96 

96 

96 
96 
96 
96 



147 



BULA 



METATARSUS 



97 
100 



21 



24 



32 



UM 
14 



16 



THAT 



TAB 



10 



FOF03 



METATARSUS 



SCAPULA 



98 



122 



140 



12 



11 



121 

FFF 

139 



130 



147 



BONE 



071F7F7 



FEFF 



SACRUM 



I A 



7FFF 
FFF , 

OFOF 



FFFF 
14 



30 



99 



14 



TA 



105 

14 
22 

18 
24 



32 
10 
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2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 

2740 
2750 

2760 

2770 

2780 
2790 



CALL 
CALL 



I 

FOR 
CALL 
CALL 
NEXT 
FLAGh 



FLAG 



PR 



NT 



CALL 



I 

KEY 
78 
K<>89 



CALL 



PR 



PR 
PR 
HEN 
I 



INT 



PR 



PR 



INT 



GOSUB 
FLAG = 



VCHAR 

cIolIor 

2 



NT 



NT 



NT 



CORRECT 



TO 
ClOLpR 
CHAR 
I 
2 



THE 



CLEAR 
YOU 
BO 
WI 



230 



NSTRUCTIONS? 



CORRECTLY 



15 
2 , 
H 
7 

9 + 1 
96 + 8 



{ 
( 

THElN 



THEN 
THEN 



BlONES 
SH 
THE 
I 



I 

THlAT 



YOO 



MAY 



17 



) 

2830 
2690 



YOUR 
BONE 
NUlMlBER 

MUST 



1 

2830 



AS 



TO 



THEN 



96 



STUDY 



LABELS 



LONG 



CONT 



( Y/N) 



PRESS 



WI 



NAME 



THE 
AS 



TURN 
CHOOSE 



NUE 



LL 
TIO 



THE 



OF 



NAMES 
YOU 
<ENTER> 
CLEAR 



NAME 
TlHE 

BOlNES 



2800 
2810 



2820 

2830 
2840 
2850 
2860 
2870 
2880 
2890 
290O 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 



GOTO 

d|at|a 

69 
51 



DATA 
83 



RESTORE 



ON 
CA 
END 



CALL 

FOR 

FOR 

READ 

CALL 

NEXT 

NEXT 

CALL 



CALL 



CALL 



K 

CALL 



32 



67 
65 



84 
32 



HCIHAR 
TO 



S<1 



NT 



2490 



23 



KEY 



HCHAR 
Y 
X 



53 

K>52 )|+( 
CLEAR 



ONE 

ciolIor 

48 



CLEAR 



72 



79 



2810 



TO 



THEN 
THEN 



GOTO 



32 



32 



79 



82 



29 



50 



69 



K<49 



MiOMENT 
12 
990 



78 

32 

STEP 

,G 



) 

2910 
2990 



83 



32 



79 



65 



68 



21 



) 

1360 



PLEASE 



THEN 



58 



32 



1690 



49 
77 

76 
32 



2910 



32 
83 

69 



2180 



32 



72 



71 
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Computer 

Techniques 
for Tutoring the 
Mentally 
Handicapped 



Huzzah, the revolution has just started! And the fact 
that you're reading The Best of 99'er signifies that 
you are very much a part of it — a revolution fueled 
by the availability and affordability of computer power to 
millions of consumers. As more and more software — 
computer programs that can meet a large number of every- 
day needs, as well as solve problems encountered in special 
areas — is developed, the computer will become as common 
in our homes as the telephone. 

Our task in this generation is to learn to take advantage 
of this tool in a variety of areas, disciplines and endeavors. 
In this article, we would like to focus the application of com- 
puter technology on what may seem at first to be a most 
unlikely area— tutoring the developmentally disabled. 

Retardation is defined as "below average intellectual func- 
tioning that originates during the developmental stages with 
associated maladaptive behavior." In the search for tools 
to combat retardation, the microcomputer has shown itself 
to be extremely valuable by assisting the retarded popula- 
tion to develop skills, abilities, concepts, and even behaviors. 
Preliminary testing demonstrates that not only can these in- 
dividuals use a keyboard, but they can learn it very 
quickly — finding it attractive, novel and magnetic. Options 
such as the light pen, joystick, and voice synthesizer pro- 
vide capabilities that can be used to adapt numerous pro- 
grams for this special population. 
Help for the Schools 

Of more than eight million handicapped children in the 
U.S., reportedly only half are receiving appropriate educa- 
tional services. School districts under ever-tightening budgets 
struggle to meet the needs of these children. It therefore ap- 
pears highly probable that using microcomputers to assist 
in meeting the needs of these children will be both an 
economic boon to schools, and a valuable enhancement to 
the learning process of these youngsters. 

Despite traditional controversies regarding the learning 
process, there are some areas of general agreement. These 
areas have provided us with a basis for software geared to 
the special learning needs of the retarded — programs utiliz- 
ing the unique qualities of the computer to further stimulate 
learning. 

Fascination With the Medium 

Retarded and non-retarded alike are able to learn more, 
as well as more easily, from teaching aids that effectively 
focus their attention on the content. Attention management 
for the retarded youngster is especially critical. In this regard, 




the computer, keyboard, and CRT have a fascination that 
commands attention with an immediacy that is unparalleled. 
When a youngster is seated before a console, the attraction 
of the mechanism coupled with the allure of a good inter- 
active program provides an incredible amount of motiva- 
tion and drive. If you have children who play computer 
games or other electronic games using a microprocessor, you 
already know just how difficult it is to distract them and 
draw their attention to something else — like homework, 
eating, or cleaning their room. 
Nothing Succeeds Like Success 

As human beings, we tend to strive toward success or try 
to avoid failure. In the search for success, the "locus of con- 
trol" is usually internal. This is to say that in the process 
of maturing, a person begins to realize a power or ability 
to control events, and begins to set goals. We begin to 
become efficient in attaining goals. Actually attaining them 
brings a sense of success which is its own reward and 
prompts one to continue to strive for success. 

Avoiding failure, on the other hand, means maintaining 
a mere minimum of effort so as not to incur some type of 
punishment. Consequently, the locus of control is external. 
For a majority of developmentally disabled, avoiding 
punishment becomes the usual way of behaving. They are 
not given to setting goals since they have not come to ex- 
perience the internal locus of control and the possibility of 
success. 

With the use of computers, a learning environment can 
be created which can provide a retarded child or adult with 
the experience of success. As the experience is repeated, the 
locus of control begins to shift from without to within. This 
is a natural reward process which has more lasting effects 
than punishment or negative reinforcement. As the reper- 
toire is gradually expanded, the retarded individual begins 
to realize a potential: a power for success. 
A Multisensory Lens 

Another important element in the learning process of the 
retarded person is the ability to focus in on significant cues. 
Once again, the hardware's attractiveness (or novelty, if you 
will) is so engaging and attention-riveting (thereby limiting 
external or irrelevant stimuli or signals) that the person learns 
to be attentive to only the important and discriminating cues. 
Furthermore, the multisensory impact of the computer pro- 
vides an additional quality which is extremely valuable in 
the learning process of the retarded person: The more you 
can use, engage, and impact many sensory modalities — 
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and do it repeatedly in an interesting manner— the greater 
the likelihood of retention and learning. 
An Example Program 

The following is a simple program designed for teaching 
retarded persons the extremely abstract concepts of number 
recognition, counting and subtraction. We feel that the pro- 
gram demonstrates the principles stated in this article, as 
well as the uniqueness of the computer as a tool especially 
well-suited to meeting the learning needs of the develop- 
mentally disabled. We wish to emphasize that the computer 
does not totally substitute for a teacher. The retarded in- 
dividuals on whom we tested the program required personal 
assistance and encouragement at the beginning of the lesson. 
Reaction to the computer ranged from reluctance to eager 
enthusiasm. In some cases, we first used another program 
(a keyboard trainer) to familiarize the student with the key 
locations on the console. The TI-99/4 keyboard is highly 
suited for use by those unfamiliar with typewriters. We 
found it helpful, however, to cover the letter keys with mask- 
ing tape to reduce distractions. Also, we noted some con- 
fusion created by the shift characters above each number— a 
small problem we hope to overcome by trying a number 
of key covers. Based on field testing of this program, we 
are convinced that this approach can be extended to many 
areas of work with this group, a group whose needs are so 
unique that conventional methods have been only moderate- 
ly successful. Using this technology, we have a potential for 
far greater success and the possibility of doing things that 
were unthought-of for this segment of the population. 
The Program 

The program opens with several options which must be 
selected. The instructor is informed that a performance 
rating of the student's progress is available by pressing the 
AID key. This rating gives the number of trials, correct 
answers, and percent correct. If you wish to reset the op- 
tions later, simply press the BACK command and re-enter. 
The AID and BACK commands can be entered during the 
main lesson, thus giving the instructor flexibility in choos- 
ing the set of options most appropriate to the student's level 
of ability. The program also has a speech selection option 
that permits its use without the Speech Synthesizer and 
Speech Editor Command Cartridge. [The extensive use of 
graphics in this program precludes the use of the speech 
editor resident in the Extended BASIC Command Cartridge 
with its fewer available character sets.— Ed.] Although the 
actual lesson is designed for non-readers, the initial option 
selection must be performed by an instructor or someone 
who can read. These options can be selected in any com- 
bination from the following list: 
Select: 

1 = Random presentation 

2 = Serial presentation 

3 = End lesson 

—Display the number above the gulls (Y/N) 
—Pronounce each number as it is printed (Y/N) 
—Computer says press_(number) after a row of gulls 
is put on the screen (Y/N) 

Select format for placing of gulls on the ocean: 

1 = Horizontal Row 

2 = Diagonal Pattern 

3 = Random row placement 

After the options are selected, the screen clears and a 
seascape is painted on the screen. A picture of a deep blue 



ocean and a steamship liner on the horizon moving toward 
a tropical island focuses the student's attention immediate- 
ly. The gulls appear on the water from left to right, and 
a shark's fin begins to circle the gulls while waiting for the 
student to press the key representing the number of gulls. 
If the response is correct, a musical fanfare is played, 
followed by the computer saying "Right (number)," and 
the ship moves one column to the left, emitting smoke puffs 
from the stacks (the number of puffs equal to the number 
of gulls). However, if the student's response is incorrect, 
the computer says, "Uh oh," and the shark stops circling 
the gulls, emerges from the water and devours the last gull 
(with sound effects)! Then the computer asks the student, 
"What number is left?" and waits for the student to press 
the key representing the number of remaining gulls. If in- 
correct again, the computer says, "That is incorrect," gives 
a short laugh, and then engulfs the next gull! This can con- 
tinue until no gulls remain; the program then recycles and 
another trial begins. On a correct response the computer 
says "Right (number)" and the ship is advanced one col- 
umn to the left with the appropriate number of smoke puffs. 
Each correct response advances the ship toward the island 
until it is "docked" and the computers says, "You win." 
It then recycles the program, placing the ship back at the 
right side of the screen, and continues the lesson. 

We recommend that students start with the Serial option 
rather that the Random. This starts with the number 1 and 
adds a number on each correct trial, but will not add a 
number on an error. In this way, a student cannot be 
challenged by the larger numbers until he has displayed 
mastery of the smaller ones. In general, we also recommend 
the strategy of starting a student with all prompt options 
operating, then removing them as the student demonstrates 
competence. 



EXPLANATION OF THE PROGRAM 
Computer Techniques for 
Tutoring the Mentally Handicapped 

Line Nos. 

160-280 Sets all variables to zero. 
290-820 Instructor selects program options. 
830-1310 Defines characters and color codes. 
1320-1450 Constructs seascape, boat, and island. 
1460-1550 Calculates the appropriate number of gulls to 

place on screen. 
1560-1590 Clears screen from row 10 to 24. 
1600-1820 Places gulls in the water. 
1830-1890 Controls movement of shark fin from left to 

right. 

1900-1960 Evaluates key response while shark circles gulls. 
1970-2120 Musical fanfare on correct response. 
2130-2220 Controls movement of shark fin from right to 

left background. 
2130-2290 Evaluates key response. 
2300-2530 Controls animation of shark eating gulls. 
2540-2620 Evaluates key response and clears screen to right 

of last gull after shark "eats" it. 
2630-2660 Controls loop to eat next gull. 
2670-2740 Verbal response to correct key press; increments 

number of trials and right responses. 
2750-2810 Moves ship, controls puffs of smoke and sound 

effects from ship stacks. 
2920-2950 Prompts to press a number if a letter was 
pressed. 

2960-3060 Routine when boat reaches island. 
3070-3100 Calculates performance scores. 
3110-3170 Prints option to end and branches appropriately. 
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100 
110 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 

320 



330 



340 



350 
360 
370 
380 
390 
400 
410 
420 
430 
440 



450 



470 
480 
490 
500 
510 
520 
530 



540 
550 
560 
570 
580 
590 
600 



610 
620 
630 
640 
650 
660 



670 
680 
690 
700 
710 



REM 

REM 

REM 

REM 

REM 

REM 

CALL 

CALL 

REM 

FOR 



NEXT 



L 
N 
CT 
NMj= 
REM 



PR 



PRESS 



PERCENT 



PR 

AM] 

PR 
ND 



CALL 
S 



INT 
lOPT 



PR 



TAT 



PR 



) 

CALL 
I 
I 
I 

DN 



I 
I 
I 

PN 
PR 



I 
I 
I 

CT 



LOOP 



INT 
INT 



NT 



NT 



SYNTHES 



K = 



I 
I 
I 

SP 
PN 
CT 

GOTIO 
SP 
PRINT 
OWI NG 



CALL 



EACH 



CALL 



CALL 



INT 



INT 



S 
K 



Y/N 



PRESS 



COUNT 



CLEAR 
SCREEN 
VAR 



SET 
LbOP 



MENUS 



OPT 



KEY 



89 



I ON 



LOOP 



ION? 



K<>78 

= 1 
= 1 



440 



K<>49 



K<>78 



K<>78 



NT 
TELL 



K<>78 



DUR 

<AI 



THEN 
THEN 



2- 



KEY 



NT :"D|0 
NUMBERS 



KEY 



89 



KEY 



KEY 



DO 



TAB 



TAB 



lOF 
F 



I ONS 



THEN 



DO 

nuImber 



DO 



FOR 



n|g 

D> 



THEN 



THEN 



THEN 



THE 



THEN 



NSTRUCTOR 



YOU 



YOU 



SEQUENT 



THEN 
THEN 
THEN 



TIHEN 
THEN 



TH|EN 
YOU 



Tin EN 
THEN 



THEN 



8 

I ables 



TO 



ZER 



N 
R 
S 

350 



YOU 



THEN 



YOU 



NG 



TO 



CORRECT 



PRESS 



S 

470 



ABOVE 



S 

540 



AS 



S 

610 



EACH 



) 

670 



THE 



WI 



WANT 
( SP 
REQUI 



GET 



I AL 



530 
3070 
470 



590 
540 



720 

WANT 



660 
610 

WANT 



STUDENT 



720 
670 



LESS 



SH 



430 
350 



SELECT 



SPEECH 



END 



WANT 



LESSON 



THE 



TRIAL 



TO 



TO 
THE 



TO 
EC 
RED 



RANDOM 



PLEASE 



TAB 



RESPlONSES 

PRIOIGR 



TO 



THE 
WHI 



RESET 
<BACK> 



USE 
EDI 



PR 



YOU 
READOUT 



FROM 



LESSON 



GULLS? 



iGRpUPS 
10 



NT 



SPEECH 
TOR 



PRONOUNCE 



NOTE 



THE 



SPLAY 



COMlPUTER 
CH 



KEY 
Y/N ) 



ZERO 



KEY 



CAN 
OF 



TAB 
PRESEN 



ED? 



FOLL 



THE 



720 



730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 



230 
240 
250 

1260 

1270 

1280 

1 

1 

1 

1 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
11 
1140 
11 
1160 

170 
1180 
1190 

200 
1210 
1220 



290 
300 
310 
320 



1330 



340 
350 
360 
370 
380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 



PR 
BE 

M 

CALL 



LN 

GOTiO 
LN 

GOTiO 
LN 
RElM 



RANDOMI 



CAL 
CALL 
AS 
BS 
C$ 
D$ 
E$ 
F$ 
GS 
H$ 
$ 
I S 
KS 
L 

MS 
N$ 
0$ 
PS 
QS 
RS 
SS 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAL 
CALL 
CALL 
CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



CAL 

CAL 

CAL 

CAL 

CALL 

REM 



NT 



NE 



50 

K<>51 



CLEAR 

SCREEN 
E0F0F8FCFEFFFFFB 
7F3F1 FOF07OFFFFF 



E0FOF8FCFEFFFFFF 
01O307OF1 F3F7FFF 

000iei0iei03e70F 

8O808OF0F8FCFEFF 
FFF7FFBAFFBFEBFF 
3337F7FF5FFAFFFF 
00O000O03F1FeF07 
FFAAFFFFFFFFFFFF 
O00O0OFFFFFFFEFC 
0OOeO00eC3C3C3C3 
0000000000081422 
000E0F0C86FE7E3C 

41820eC3O0C3C3C3 



PRESENTED 



KEY 



840 
840 



DEF 



<>0 



THEN 
THEN 



CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

COLOR 

COLOR 

COLOR 

COLOR 

COLOR 

COLOR 

COLOR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 



THEN 



DO 



THEN 



NE 



CALCULATE 



THEN 



96 
97 
98 
99 
104 
100 
101 
2 

113 
114 
20 
121 
1 
1 
1 
1 
1 



144 
145 

14 

9 

1 

10 
12 



1 

10 

9 

9 

8 

8 

7 

7 

6 

6 

9 

9 

9 

8 



YOU 



730 



CHARACTERS 



S 
3 

820 



730 



ES 
FS 
GS 
HS 
S 

s 

KS 
LS 
MS 
NS 
OS 
PS 
QS 
RS 
SS 



10 
1 
9 
1 
8 
1 
7 
1 
27 
2 81- 
31- 
29- 



WANT 



AGONAL 



1540 



104 



11 
11 
11 
112 



11 



140 
112 



11 



3 
2 
14 

X 
X 
X 

X , 128 } 
NUMBER 



6 
120 
121 
122 
128 



288 



THE 



480 



GULLS 



-ALL 



ON 
3 



TO 
SAME 
RlANDO 



OF 



GULLS 
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1480 
1490 
500 
1510 
520 
530 
540 
1550 
1560 
570 
580 
590 
600 
1610 
1620 
630 
1640 
650 
660 
1670 
1680 
1690 
1700 
710 

720 
730 
740 
1750 
1760 
1770 
780 
790 
1800 
1810 
1820 
1830 

1840 
1850 
1860 
1870 
880 
890 
900 
1910 
1920 
930 
1940 
950 
1960 
1970 
1980 
1990 

2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 



21 



30 



2140 
2150 
2160 



21 



70 



2180 
2190 
2200 
2210 
2220 



T = 
N|+1 
F N> 
GlOTO 
1 

GOTIO 



I 
1 

REM 
FOR 
CALL 
NEXT 
REM 
FOR 
NM 
REM 



LN 
IN 
N|M) 
GlOTO 
( NM 
CALL 



CALL 
NM 
CALL 
F 



CALL 
NEXT 
C 

CALL 
FS 
CALL 



F 

CALL 
CAL 
REIM 
N 
CAL 
CALL 
CALL 



NT 



NM+1 



DN 



C + 1 



C 

FB 
F 

CAL 

F 

F 

F 

F 

F 
NN 
I F 
NM 
REM 
ECT 
CALL 
CALL 
CALL 
CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOTO 

re[m 
I 

F$ 
CALL 
CAL 
CALL 
CALL 
CALL 



FB 



CLEAR 
ERASE 
HCHAR 
ERASE 
LOloP 
TO 



PN 



CT 



1 THEN 1540 



HCHAR 



80C0E0F0F8FCFEFF 



FOREGROUND 



570 



570 

RND 



CALCULATE 
THEN 



1690 



HCHAR 



HCHAR 



SAY 



HCHAR 



CHAR 



SAY 
SAY 



START 



K<48 
57 



THEN 



32 

KEY 
STATUS 



48 

NNoNlM 

PLAY 



RND 



HCHAR 
SOUND 
HCHAR 



THEN 



THEN 



THEN 
STR$ 



THEN 



HCHAR 
CHAR 
HCHAR 
SOUND 
HCHAR 



10 



STRS 





THEN 
THEN 
THEN 
THEN 



( 

THEN 



ERASE 



PLACES 



100 



PRESS 



THEN 
K 



540 



+ 1 

WlATER 
TO 



12 + P 



11+P 



10 



NM 
SHARK 



1690 
680 
+ 1 



2 + P 



THEN 



MUS 



523 
523 
523 
440 



RESPONSE 
SOUND (100, 349 
SOUND ( 100 
SOUND ( 100 
SOUND( 100 
SOUND( 100 
SOUND (100 
SOUND ( 1 00 
SOUND ( 100 , 440 
SOUND ( 100 , 349 
SOUND ( 100 , 440 
SOUND ( 100,349 
SOUND ( 100,262 
2690 

START SHARK 
BACKGROUND 
0OO0Oie3O7eF1F3F 



22 
100 
10 
25 



10 



1750 

( n|m 



1840 



720 



FS 



THEN 
3080 
160 
2920 
2920 



24 



STEP 



POS 



NM ) 



NM 



NM) 



140 



100 



110 



2140 

STATUS 



CAL 



11 



760 



GULLS 



2330 



AREA 



140 



100 



36 



1840 



1+9 
1+10 



+ 10 



32 



FLOUR 



ON 



ACROSS 



32 



32 



OF 



ACROSS 



36 ) 
ASC 
02 



SH 



WATER 



GULLS 



SCREEN 



ON 



STRS 



CORR 



SCREEN 



2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 

2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 

2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 

2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 

2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 



CALL 



NN 



GOTO 

REM 

WER 



CAL 
TR 
FS 
CALL 
FOR 
FOR 
BS 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
B$ 
CALL 
NEXT 



NM 



REM 



ORRECT 



10 



TR 



TR I 

NM 

REM 



TR 



F 

REtM 
AND 



KEY 
STATUS 



K = 

K<48 
K>57 
48 

NNoN 



CALL 
CALL 
S 

FOR 

CALL 

NEXT 



CALL 
1+A1 
NEXT 
NM 



CALL 
CALL 
IGHT 



X 
I 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

FOR 

CALL 

CALL 

FOR 

NEXT 

CALL 

NEXT 

GOTO 



CALL 



FF7E3C18OOOO0OO0 



7F3F3F3F1F0FO7O3 



SP 



CHAR 



CHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

HCHAR 

SOUND 



7F3F1 FOF07OFFFFF 



1 

SAY 
KEY 
T 
LOOP 



N<1 
SP 



COLUlMiN 
X + 1 



SP 



980 

SHARK 



SAY 
TR 



CHAR 
I 



AFTER 



THEN 
THEN 
THEN 
THEN 



9 + 



ANSWER 



ASC 
TR 
1 

SAY 



1 

SAY 
SAY 

R 

TR 



THEN 



THEN 



HCHAR 
LOOP 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
TO 
HCHAR 
SIOUND 
TO 



HCHAR 



470 



1 

SAY 
TR 
1 

RlOUT 



THEN 



UHOH 
I AL + 1 



THEN 



MOVES 



100 
N 
2 



WHAT+NUMBER+1 



THEN 



97 



97 



THEN 



THEN 



CHRS 
IGHT+1 



THEN 



THEN 



THEN 



THEN 
3080 
160 
2920 
2920 



2330 

EATS 



11+P 
11+P 
12 + P 

12 + P 

13 + P 
50 



EAT 



STRS 
AL + 1 



AL + 1 



NE 



STATUS 



2360 



FS 
TO 



2570 



200 
50 



BS 



BS 



NG 
FbR 
2570 



TO 
LOOP 



THAT 



SH 



1470 
2720 

GHT 
K 



29 



) 

(NM) 
NM 



NM) 
NM) 

n!m 





N 

2660 



2970 



29 



2940 



2170 

WHEN 



2170 



GULL 



GULL 



NUMBER 



145 
145 

X 
X 



STEP 



THEN 



20 
121 
122 
128 



44 



45 



1+1 



1+1 
1+3 



ACROSS 



PRE SS + A|+NU|MBER + P LEASE 
AL + 1 



ELSE 
BOAT 



ON 



/WAI 



S+LEFT 



WRONG 



) 

98 

) 

99 
100 



32-1 
2690 



NCORRECT« 



TS 
LEFT 



1840 

REACHES 



SCREEN 



ANS 



FOR 



A1+A 



ONE 



SL 
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2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 



X = 
IF SP 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOTO 
REM 
CALL 



SAY 



THEN 



50 



SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
CLEAR 
1320 

CALCULATE 
CLEAR 



# YOU 



2000 



50 
500 



3000 



mm 

220 



220 



220 
2 20 



30 



220 
30 



SCORES 



3090 
3100 



3110 

3120 
3130 
3140 
3150 
3160 
3170 



NM|= 
PR 



I 

GHT 
IGHT 



PR 



I 
I 
I 

PR I 
END 



CALL 



TO 



NT 



TRIAL 
TO 



KoSO 



PERCENT 



KEY 



49 



TR 



END 



SO 



I ALS 



THEN 



TlHEN 
THEN 



LONG 



CORRECT= 



31 



RETURN 
LESSbN 
) 

20 
850 



TR 



3120 

FOR 



AL 



I GHT = 



NT 



100 



TO 



LESSON 



PRESS 



PRESS 



NOW ! 



SIS 
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Typing 
for 

Accu^ii^cy 



Typing for Accuracy provides practice for students 
who are somewhat familiar with the keyboard. 
Seven finger-placement categories using different 
typewriter keys are offered: home keys; home row; top row, 
middle finger; top row, pointer finger; ring finger; little 
finger; and bottom row. A typist may choose one of the 
categories for each drill. 

The program uses graphics and sound effects to liven up 
the drill: A rocket appears on the screen, and a word is 
printed on the rocket while a 1 .5-second tone sounds. A stu- 
dent then types and ENTERs the word. If it has been typed 
incorrectly, the rocket blasts; if it has been typed correctly, 
a second tone sounds and the score goes up. The rocket then 
takes off twith gases trailing behind), and a different word 
appears. 

At the end of ten words the student's score is tabulated 
and displayed as a percent accuracy rating. The student may 
then choose from the seven drills or may exit the program. 

This drill is not meant to be a speed drill because begin- 
ning typing students must gain accuracy and familiarity with 
the keyboard before working on speed. However, if the stu- 
dent wants a timed test, an approximate words-per-minute 
rate can be estimated using the tones — i.e., if the student 
presses ENTER as the tone ends, the rate is 40 wpm. 



mmcsciimmciKi]®©® 

[q)(w)(T][r)[t][y)(u](T|(o](T](7] 
0(DCD][7](G)[H](T)(K](T)(T)e 



EXPLANATION OF THE PROGRAM 
Typing for Accuracy 



Line Nos. 
120 

130 

140-200 
210 
220 
230 

240-400 



410-440 
450-480 

490 

500-530 

540 
550 

560-580 
590 

600-640 



650-700 

710-730 

740-780 

790 

800 

810-890 



910 

Subroutines: 

920-1530 

1540-1680 

1690-1780 

1700-2110 



Dimensions the array A$ to allow for twenty 
words. 

Sets the y-coordinate for drawing the rocket. 
Words used in the drills. 
Prints the title screen. 
Prints instructions. 

Prints the menu screen of the seven categories. 
Awaits the student's choice. Depending on the 
category chosen, a certain DATA statement is 
RESTOREd which contains the words for that 
particular category. 
Draws the rocket. 

Reads the number of words in the category and 
stores the words in the A$ array. 
Initializes the score. 

Randomly chooses a word. Once a word is 
chosen it is not used again in the drill. 
Calculates the coordinate for printing the word. 
Sounds the tone for 1.5 seconds. 
Prints the word to be typed on the rocket. 
Awaits the student's typed word. 
Compares the student's word with the given 
word. If it is incorrect, a white noise is sound- 
ed; if it is correct, a tone sounds and the score 
is incremented. 

If it is the first word, draws the bottom of the 
rocket. 

If it is the second word, completes the fins of 
the rocket. 

The rocket moves up and has a trail under it. 

The words are cleared. 

A$ set to zero so the word cannot be used 

again. 

Returns for the next word. 

Prints score and waits until student is ready to 

continue. 

END. 

Prints title screen with music. 
Prints instructions. 

Prints menu screen of seven categories. 
Draws the rocket. 
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100 
110 

120 
130 
140 

150 
60 
70 

180 

190 
200 



210 
220 
230 
240 
250 
260 
270 

280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 

580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 



REM 
REM 

diIm 

20 

DATA 
LL 
LS 



DIATA 
LADS 
S ASIH 

DlATA 



DATA 



AY 



DATA 



DATA 

i|que 

PR 



DATA 



EXAM 



CK 



GOSUB 
GOSDB 
GOSUB 
CALL 



ON 



KE 



GAlY 
TRY , 



RESTORE 
GOTO 410 
RESTORE 
GOTO 41 
RESTORE 
GOTO 410 
RESTORE 
GOTO 410 
RESTORE 
GOTO 410 
RESTORE 
GOTO 410 
RESTORE 



FOR 
|W 



XC 



CALL 
CALL 
CALL 
CALL 



GOTO 



KEY 



KEY>56 
KEY 



380 



CALL 
FOR 
CAL 
I ,1 
NEXT 
NPUT 
BS 
CALL 
GOTO 
CALL 
SCORE 



ALFALFA 
FADS 



AS 



15 



SOW 
SOD 



MI 
BIOMB 



CALL 
CALL 
CALL 
GOSUB 
READ 
FOR 
READ 
NEXT 
SCORE 
RANDjO^I 
1 



SAY 
20 



PLAQUE 



AS 
I 



TYP 
20 ) 



HAD 



6 

SAIGS 
DASH 



FL 



IDEIAF 
I 

ES 
TlAG 



LAY 



920 

1540 

1690 



KEY 



400 



N 

(|w|) 

K 

sjolUlND 
TO 
IHCIHIAR 



Kol 



740 

Kkl>2 
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CIVIL 
ENGINEERING 

SIMPLE 
BEAMS 



Tl 
BASIC 




OM16 



The purpose of this program is to tutor civil engineer- 
ing students who are studying statics or structures. 
It is limited to a simple determinate beam supported 
at the ends and loaded with a concentrated load, a uniform 
load, or a combination of a concentrated load and a uniform 
load. Basic knowledge of elementary statics is a prerequisite. 

1. Concentrated load at the center 

Newton's laws of force and moments are reviewed. The 
general solution of a load P applied at the center of a beam 
of length L is developed for the reaction forces A and B 
at each end of the beam. The student then does two prob- 
lems. The load P and the length L are chosen randomly for 
the problems. If the student enters an incorrect solution, 
the correct one is given, and he is given another problem, 

2. Concentrated load anywhere 

The general solution of a load P applied a distance D from 
end A on a beam of length L is derived for the reaction 
forces A and B at each end. An example problem is given 
and solved. Then a problem is given for which the student 
enters his answers. The program prints the method of solu- 
tion. For the next problem the student enters his solution. 
If he is incorrect, the program shows him how to solve the 
problem, and he is given another problem to solve. 

3. Uniform load 

The uniform load is considered as an equivalent concen- 
trated load acting at the centroid of the loading pattern. The 
first example is a uniform load for the length of the beam 
and is solved in general terms. The student is then given a 
problem. If he enters an incorrect answer, he is shown the 
correct solution and given another problem. 

4. Combination loads 

Instructions are provided for placing a beam with one 
concentrated load and one uniform load. The student is then 
given a problem with combination loads chosen randomly. 



The program draws and labels the beam for each problem. 
If the student enters an incorrect solution, the correct solu- 
tion is printed and he is given another problem. 

5. Problems 

No instruction is given. The program randomly chooses 
a beam length and loading pattern, and prints the problem. 
It then draws and labels the beam. The student enters his 
answers; if he is incorrect, the correct answers are given and 
another problem is printed. 

6. Your own problem 

The student enters the beam length and loading specifica- 
tions. The program computes the reaction forces A and B 
at the ends. 

After each section has been completed with correct solu- 
tions, the student is given the choice of having more of the 
same kind of problems, entering his own problems, or 
returning to the menu screen. 

Programming Techniques 

This program is a teaching aid or tutor, so it incorporates 
pauses, allowing the student to work on the problem before 
continuing. The student must enter a correct solution to the 
problem before he or she can go on to a different kind of 
problem. If the student enters an incorrect solution, the cor- 
rect answers are printed and another problem of the same 
type is presented. 

The numbers for each problem are chosen randomly (yet 
appropriately) for each beam. The length of the beam is 
between 10 and 20 feet. The concentrated load is 100 times 
a random number from one to twenty (i.e., 100 to 2000 
pounds), and is placed at a distance D from end A (ran- 
domly chosen within the bounds of the length of the beam). 

The uniform load is 10 times a random number from one 
to ten (i.e., to 100 pounds per foot). For some of the prob- 
lems, the uniform load is acting over the length of the beam. 
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For more advanced problems, it acts between two endpoints, 
LI and L2, given as distances from end A. LI must be equal 
to or greater than zero and less than the total length of the 
beam. L2 must be greater than LI and less than or equal 
to the total length of the beam. 

The problems are written in "story problem" form by 
using PRINT statements in subroutines, with the program 
using only the statements that are necessary for each loading 
condition. 

After the student has had time to draw and label the prob- 
lem on his own paper, the computer will ask him to "PRESS 
ENTER TO CONTINUE", and the beam will be drawn 
on the screen with approximate proportions. 

The general beam is drawn with a pin at end A and a 
roller at end B. 

The distances are approximated by using a variable y- 
coordinate — an integer value of the fraction of the distance 
(D or LI) divided by the total beam length multiplied by 
the number of characters printed in the general beam. For 
example. Statement 6750 is: 

Y = INT(LI/LL*22) + 6 
Y is the y-coordinate used in CALL HCHAR or CALL 
VCHAR statements. And 6 is the displacement of the end 
of the beam from the left side of the screen. 

In statement 6760: 

Z = INT(D2/LL*22)-1 
Z is the number of characters to be printed horizontally for 
the uniform load. D2 is the distance L2-L1. 



Figure 1. 

Converts PP to a string variable. 
LEN finds the length of LBS. 
Calculation for y-coordinate. 



Prints each digit in order. 



LB$ = STRS(PP) 
For 11 = 1 TO LEN(LB$) 
JJ = lI + J-4 

CALL HCHAR(1-5,JJ,ASC 

(SEG$(LB$,!1,1))) 
NEXT II 

CALL HCHARd -5,JJ + 1, 32) Prints a space after last digit 
CALL HCHAR(1-5,JJ + 2,76) Prints L. 
CALL-HCHAR(I-5,JJ + 3,66) Prints B. 
CALL HCHARd -5,JJ + 4,83) Prints S. 



The labels for the values on the beam are variable and 
are printed using string variables. For example, the concen- 
trated load P may be three or four digits long (100 pounds 
to 2000 pounds) in the written problems, but the student 
may input an even longer number. This label printed by us- 
ing Statements 5850-5930 (see Figure 1). 
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EXPLANATION OF THE PROGRAM 
Civil Engineering Fundamentals 



Line Nos. 
100-250 
250-330 
340 

350-540 



550-680 

690 
700 

710-810 
820-900 
910 

920-1000 

1010-1070 

1080-1180 

1190-1270 

1280-1330 
1340-1370 
1380-1400 
1410-1440 
1450 

1460-1540 

1550-1580 
1590-1610 

1620-1700 

1720-1790 

1800-1870 
1880-1970 
1980-2050 
2060-2160 
2170-2190 
2210-2240 

2250-2270 

2280-2290 
2300-2330 

2340-2360 

2370-2530 
2540-2600 



Prints the title screen. 
Blinks a blue border. 
Clears the screen. 

Defines special graphics characters for draw- 
ing the beam and loading, and sets the color 
for them. 

Prints second screen, diagram of simple 
beam. 

Goes to menu screen for choice of problems. 
Choices 1 and 2, concentrated loads, branch 
to here. 

Prints instruction screen. 
Prints second instruction screen. 
For choice 2, branches to 1720. 
Prints problem. 

Draws and labels general beam. 

Shows solution of reaction forces in general 

terms. 

Draws and labels beam with centrally-applied 
load. 

General statement for central load. 

Chooses random numbers for problem. 

Writes the problem. 

Draws and labels the beam. 

Asks for A and B from student. 

Compares student's answers with calculated 

solution and prints appropriate remark. 

Has another problem. 

Asks if student wants more problems and 

branches accordingly. 

Draws and labels a beam for student's 

problem. 

Prints instructions for second type of beam, 

concentrated load anywhere. 

Draws and labels beam. 

Solves the problem. 

Chooses a problem and prints it. 

Draws and labels the beam. 

Solves the problem. 

Compares input answers with calculated 
solution. 

If student is incorrect, solves the problem in 
detail. 

Returns for another problem. 
Solution was correct. If it is the second pro- 
blem, another problem is chosen. 
Offers the student the choice for more 
problems. 

Solves a problem the student enters. 
Prints the general problem for a uniform 
load. 
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PRINT 
GOSUB 
GOTO 



GOSUB 
GOTO 



NT 



6 

5630 
5690 
5810 
5370 
5560 
5850 
5950 
6250 
AoPP 



EX 
GOTIO 
GIOSUB 
F 



16 
6 

GOSUB 
GOSUB 
CALL 
CALL 



GOSUB 
INPUT 
GOTO 
CALL 



GOSUB 
I 



5 

GpSUB 
GOSUB 
CALL 
CALL 
CALL 
GlOSUB 
I 



PR 
GOSUB 



Y = 



EX>2 



EX + 1 



NPUT 



HCHAR 



HCHAR 
HCHAR 
HCHAR 
Y 

F 
I S 
A 

F|OR 



5590 
1560 



B 

5590 
1570 



KEY 
KEY 



5590 

ZE 



PP 



TO 



THEN 



1360 
6290 



5370 
5560 
HCHAR 
HCHAR 



1410 

CLEAR 



GI 



D 
THE 

5810 



5370 
5560 
HCHAR 
HCHAR 
HCHAR 
6040 



P 

TAB 
TAB 



SORRY 



5590 

A 



NT 



RND 



LENIGTH 
5310 
LOAD 



TAK 



1 

26 
22 
22 
22 

THE 
N 
B 



VEN 



NEXT 



EXAMPLE 



THEN 
THEN 



SUPPORTED 



FEET 



500 



+ 10 



PP 



THEN 
THEN 



POUNDS 



WE 



STEP 
8 

Y + 1 

Y + 2 



CjONCENTRATED 
CENTER 



THE 



CORRECT 



PP 



+ 1 



+ 1 



NG 



16 



RND 



590 



B 
B 
B 

SUM 



T|HE 
/ 
2 



OF 



CONCENTRATED 



I GHT 



80 



LBS 



16 



FROM 



510 
510 



1360 
5000 



BEAM 
AT 



22 



+ 1 



MOMENTS 



REACT 



BEAM 



PP 



A 

lOF 



76 



AND 



FORCES 



APPL 



OF 
ENDS 



THE 



IONS 



FORCE 



AT 



1000 



ED 



I GNORE 



LL 



LENGTH 



LOAD 



LBS 



500 



LBS 



ARE 



AND 
OF 



BEAM 
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1970 
1980 
1990 



2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 

2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 

2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 

2670 
2680 
2690 
2700 
2710 
2720 



GOSUB 



I 

GjOSUB 
GOSUB 
GOSUB 



RANDIOIMI 
EX 
PP 



LL 
D 

GOSUB 
GOSUB 
GOSUB 
GOSUB 
INT 



DDS 
FOR 
EE 
CALL 



NEXT 
CALL 



I 

GIOSUB 



PR 



GOSUB 
GOSUB 

gIosub 

3 



NT 



GOTO 



GOSUB 



F 
F 
PR 



CAL 
I 



100 

NT 
INT ( 



GOSUB 



CALL 



GOSUB 

GOSUB 

CALL 

CALL 

CALL 

INPUT 

GOSUB 



GOTO 
GOTO 



GOSUB 
CALL 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



AAoA 

bb|=b 

NT 



EX + 1 
EX<4 



NPUT 
NPUT 



STRS ( 
TIO 

5 

HCHAR 
E 

HCHAR 



KEY 
KEY 



OUR 

6040 
6110 
6190 

2000 



D>LL 

b> 

NT 



5590 

ZE 



6 
10 
5630 
5690 
5810 
5370 



5560 
5850 
5950 



6250 



5590 



6290 
49 
51 

CLEAR 



5370 
5560 
HCHAR 
HCHAR 
HCHAR 



2480 
2060 

CLEAR 
GI 



5810 

CLEAR 
A 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



LL 



LL + 
I 



THEN 



THEN 



THEN 



EQU 



NT 
RND 
RND 



THEN 

ANSIWIERS 



LENIGTH 
5310 
LOAD 



I 

THERE 
OF 



LOAD 



THEN 
THEN 
SORRY 



UNI 



THOUGHT 



CENTROI 



21 



LEN 



VEN 
SUPPORTED 



20 



+ 10 

)+1 



1 

005 



THEN 
THEN 



BB 
2250 



2240 
2300 



2000 



+ 1 



STANCE 

2510 



ACT 



+ 5 



FORM 



OF 
VALENT 



RND 



DDS 
EE + E 

EE + E 
1E2 



YOU 



OF 



2530 




I 

POUNDS 



AT 
LENGTH 



2000 
5000 



NG 
OF 



112 
87) 
47 
76 
76 
61 



ARE 



PP 

FRIO Ml 



I MPLE 



+ 1 



ASC 

39 

) 



DON 



76 



BEAM 



UNI 



LOAD 
AS 



PER 



AT 
THE 



THE 
L 



CORRECT 



RESULTANT 
THE 



FORM 



CAN 
AN 



SEGS 



AGREE 



BEAM 
ENDS 



FOOT 



LOAD 



LL 



BE 



LOAD 



DDS 



NG 



2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 

3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 



|WW|= 
LL 



CALL 
1=22 
22 
GOSUB 
CALL 
CALL 
CALL 
CALL 
GOSUB 
GOSUB 
I 



PR 

GOSUB 
EX 
RANDjOlMI 



GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
AA 



GOSUB 
GOTO 



GOSUB 
EX 



GIOTIO 
I 



|=WW 
AA 



AAoA 
BBoB 



NT 
INT 



EX 
GOSUB 



PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
GOSUB 
GOSUB 
1=19 
GOSUB 
LL = 1 6 



PP 
GOSUB 
GOSUB 
CALL 
CALL 
CALL 



GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 



10 



NT 



EX + 1 



NT 
INT 
NT 
NT 
NT 
NT 
NT 
NT 
NT 



LBS 
PR I NT 
GOSUB 
PRINT 
PRINT 
GOSUB 
E X 

RANDObfljl 



NT 



320 



HCHAR (22 



5560 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
5590 
6420 
EQU 



5590 
3100 



2890 



EX + 1 



EX + 1 



SOLV 
5590 



NT 
10 
5630 
5780 
5810 
6420 
5950 
6500 
6250 



LL 



5590 



ZE 



5850 
5950 

HCHAR 
HCHAR 
HCHAR 
320 
TAB 



6450 

L 

IWI 



EQU 
80 



APPL 

su|m] 

5590 
5370 

5560 



NOW 
5590 
320 

A 

5590 



ZE 
6660 
6610 
6730 
5590 
5370 
6370 
6500 



THEN 
THEN 



10 

RND 



CORRECT 



VALENT 



ACT 
NG 



I 

LBS 



AA 



16 
80 

ACT 
TO 



SUM 



RND 
+ 10 



ED 



19 



3050 
3050 



12 

VALENT 



FT 
320 



MOMENTS 



120 



FEET 
LBS / 
NG 



10 



115 



LOAD 
AT 

B=|W 



+ 1 



POUNDS 



200» 



FT 



LBS 



3200 



FORCES 



FT 



LBS 



FjORCE 

( 



I 

CENTER 

/ 



FT 



FROM 



FRlOlM 
ABlOUT 



16 
16 



FRPIM 
A 



LBS 



FT 



200 
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3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 

3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 

3940 

3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 



GOSUB 
GOSUB 



BB: 
BB: 
AA: 

F 
F 
PR 



LOAD 



LOAD 
AAoA 



GOSUB 
GOTO 



PR 
PR 
PR 



GOSUB 

GOTO 

GOSUB 



I 
I 

CALL 



KEY 



KEY 



I 

Y: 

Z 

GOSUB 



16 
16 



NPUT 



GOSUB 



NPUT 



WW<>0 



INT 



GOTO 



NPUT 
LI 
F 



PR 



GOTO 



NPUT 



F 
F 
PR 



L2 
L2 
NT 



I 

GjOTlO 
GOSUB 
GOTO 
CALL 



PR 

PR 

PR 
PR 
PR 



NT 

NT 

NT 
NT 
NT 



I 

GlOSlUB 
CALL 
RANDOIMI 



GOSUB 

gIosub 

,100 



PP 
D 



GOSUB 



^OSUB 



UB 
LI 



GOSUB 
I 

GOSUB 
GOSUB 



GOSUB 
GOSUB 



I 



WW 



GOSUB 
GOSUB 



I 



PP 



GOSUB 
GOSUB 
GOSUB 



BB: 

BB 

AA: 



<> 



5590 
3660 



5590 
3420 
6290 
49 
51 
CLEAR 



I F 
3760 



3800 

TO 
LI 



PP 



5950 
6250 



6450 

LENGTH 
5310 
LOADI 



LL 



ACT 



SORRY 



SORRY 



3850 

6730 
3480 

CLEAR 



TAB 



5590 

CLEAR 
ZE 



PP+LOAD- 



BB 



SORRY 



THEN 
THEN 



6660 
6730 



5650 



5710 



5780 



LL 
6630 
5810 



LL 
5370 



5950 



6370 
6500 



D2 
INT 



THEN 
THEN 



NG 
THEN 
W 



TO 



5 5 60 
5850 
6250 

D + LlOlAD 



THEN 
THEN 



DI 
THEN 



THEN 



DRAW 
SUM 



NT 
RND 



THEN 



THEN 



THEN 



THEN 



CORRECT 



NG 



SUM 



THEN 



NT 



2 + L1 
BB 



22 



BB 



OF 



AT 

3830 
3850 



SOLVE 



3610 
3610 



W 



3800 

B 



STANCE 
3880 



LI 



AND 



BB 



3420 
5000 



3900 

< 



MOMENTS 



RND 

4080 
4130 
4120 

)|+5 
4200 
4230 



1E2 



COMB 



D2 



BEAM 



LB 



FORCES 



LL + 



THI 



E2 



FT 



STANCE 



LI 



L2 



NAT 



2 + L1 



FROM 



LABEL 

ABIOUT 



005 



I ON 



TYPE 



THE 



FT 



WW 



FROM 



LL + 



BEAlM 
OR 



L2 



LOADS 



PROBLEM 



095 



LL 



4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 

4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 

4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 



PR 
GOSUB 
GOSUB 



PR 
PR 
GOSUB 
GOTO 
CALL 
I 



PR 
PR 
PR 
PR 
PRI 



GIOSUB 
16 



D2 = 



2 




LlOAD 
GOSUB 
GOSUB 
CALL 



PR 



D2 



PR 



6 

GOSUB 
CALL 
CALL 
CAL 
CALL 
CALL 
CAL L 
CAL 
I 

GOSUB 
N 
F 



GOTO 



GOTO 



GOTO 



LOAD 
BB 
BB|= 
AA = 



GOSUB 



CALL 



GOTO 

END 

CALL 

CALL 

FOR 

CALL 



ABS 
ABS 
NT 



KEY 
KEY 
NT 

NT 
NT 



NPUT 



NPUT 
PP 
NPUT 



NPUT 



NPUT 



NPUT 



WW = 



L2 



NT 



NT 



KEY 
KEY 



B 

5590 
3990 

CLEAR 
YOU 



D>LL 



= W|W| 

PP 

E- 



E = 



AA 
BB 

5590 
6290 

49 

51 



5590 



PPH- LlOAD 
NT 



KEY 



5370 
5560 

HCHAR 



6370 

HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 





4690 



DI 



4760 

I 

LI 

LL 



4810 
LI 



COLOR 



PROBLEMS 



ALL 



SHOWN 



B 

5590 



89 
78 
4950 

CLEAR 
SCREEN 



LENIGTH 
5310 

fIorce 

THEN 



LOAD 



SORRY 



SORRY 



TO 



THEN 
THEN 
SORRY 



MAY 



THEN 



THEN 



SORRY 



THEN 



THEN 



D2 

DN- LlOAD 



WI 



THEN 



NT 



ANOTHER 



CORRECT 



VAR 



+ 2 



1+1 
1+1 
1+1 
1+1 
I 



STANCE 



STANCE 



STANCE 
THEN 
THEN 



BB 



KEY 
THEN 
THEN 



AA 
BB 



ION 
LL 



NG 



01 



8 

lOF 



BB 



BB 



3990 
5000 



ENTER 



ABLES 
THE 



Y|+2 
1 
Y 



Y + 1 

Y + Z 

Y + Z 



P 

4740 



4720 
4740 



4790 
4810 



LI 



GI 



4880 

FRjOM 



D2 



ST 



THEN 
THEN 



THE 



80 



76 



FROiM 
4840 
4860 



1E2 



AA 



4480 
5000 



lUST 
AS 



VE 



49 
1 

50 

68 ) 

BE AIM 



PP 



ELSE 



ANSWER 



DIAGRAM 



LI 



L2 



2 + L1 



POUNDS 



PROBLEM? 



YOUR 



76 



: WW 



4340 
4340 



THE 



POUNDS 



ENTER 



LI 



L2 



4390 



OWN 



ANSWERS 



LL 



LL + 



GET 



LL 



LI 



L2 



005 
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5040 
5 50 
5060 
5070 

5080 

5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 

5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 

5710 
5720 
5730 
5740 
5750 
5760 
5770 



NEXT 



INT 
I 
I 
I 



PR 
PR 
PR 
R 

PR 
RE 
PR 
PR 
PR 
PR 
PR 
CALL 
CALL 
CALL 
CALL 
FOR 
CALL 
NEXT 
CALL 
CHOI 



CALL 

CALL 

FOR 

CALL 

NEXT 



ON 
990 



GOTO 



RETURN 



NPUT 



PR 



NT 



CALL 



CALL 



CHOI CE<1 



CHOI 



CHOI 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
FOR 
CALL 
CALL 
CALL 
CALL 
CALL 
NEXT 
CALL 
CALL 
RETURN 



FOR 
NEXT 
RETURN 



CALL 
CALL 
RETURN 



RETURN 



INT 
NT 



RETURN 



INT 



RETURN 



RETURN 



CE 



4390 



NT 



NT 



1 

2 

3 
4 
5 
6 
7 

VCHAR 
VCHAR 
VCHAR 
VCHAR 
TO 
ClOLiOR 
E 

KEY 



CLEAR 
SCREEN 

TO 
ClOLlOR 
E 



5310 



CLEAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



CHlOI 
NT 



KEY 



KEYol 



SELECT 



KEY 



CE 



CE 



1 

HEY 
HAS 
TRY 



TO 
HCHAR 
HCHAR 
HCHAR 
VCHAR 
VCHAR 
K 

HCHAR 
HCHAR 



DELAY 
DELAY 



VCHAR 
VCHAR 



CLEAR 



CHOI CE>2 



CE 



AT 



CONCENTRATED 
CONCENTRATED 



UNI 



COMB 



GOTK) 
4990 



THEN 



PROBLEMS 
OWN 



YOUR 
END 



PRESS 



PROBLEM 



8 

E 

KEY 
48 



VEN 
SUPPORTED 



I SNORE 



FEET 



THE 



31 



THEN 
THEN 



WHAT 



+ 1 
I +1 
26 

+ 2 

+ 2 
1+2 

+ 3 
1+4 

1+1 
I +1 



TO 



KEY 



FORM 



LENGTH 



AGAI 



THEN 



PPUNDS 
THEN 



PROGRAM 



5360 

K 



27 



LL 



THEN 



NAT 



32 

32 
32 

32 



ST 



700 



WE 



CONCENTRATED 



20 
121 
1 



5 
27 

STEP 



K 
K + 1 
K + 2 
K + 1 
K + 1 



ENTER 
ST 



FROM 



5210 
5210 



1000 



CENTER 



LOADS 



I ON 



[ONLY 
PROBLEIMS 



24 

24 
24 

24 



101 



65 



105 
106 



5600 



I MPLE 



AT 



100 
22 



66 



FEET 

5710 

IGHT 



I 

5760 



700 



21 



102 
103 
104 
105 



END 



TO 



THE 



LOADS 



OF 



OF 



LOAD 
LOAD 



2540 



LL 



CONT 



BEAM 



LOAD 



BEAM 
THAT 



ENDS 
LIONG 



THE 



THE 



OF 



CENTE 
ANYWHE 



3920 



NUE 



BEAM 



BEAM 



5780 
5790 
5800 
5810 



5820 

5830 
5840 
5850 
5860 
5870 
5880 

5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 

5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 

6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 

6260 
6270 
6280 
6290 

6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 



RETURN 
NT 



GOSUB 
RETURN 



LBS 
FOR 



CALL 



NEXT 
CALL 
CALL 
CALL 
CALL 
RETURN 



FT$ 
FOR 



CALL 



NEXT 
CALL 
CALL 
CALL 



RETURN 



CALL 
CALL 
CALL 
CALL 



PR 



CALL 



CAL 
CALL 
CALL 
CALL 



16 
6 

21 

GlOSUB 
GOSUB 
CALL 
CALL 



NT 



12+1 



NT 



GOSUB 
RETURN 
NT 
NT 
NT 
NT 

NT 
NT 



GOSUB 
RETURN 



INT 



GOSUB 
RETURN 



NPUT 
NPUT 



RETURN 



RETURN 



RETURN 



STRS 



STR$ 



NT 



NT 



I 

+ 1 
HCHAR 



HCHAR 
HCHAR 
HCHAR 
HCHAR 



HCHAR 
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Almost Everything You Ever Wanted 

to Know 
About Music . 




fr. BUT WERE AFRAID TO ASK 



Is music terminology Greek to you? Do you feel defi- 
cient in certain areas of your musical ability? How are 
your listening skills? If you enjoy music and want to 
test and improve your abilities, TI's Music Skills Trainer 
can be a valuable tool. This program provides practice in 
aural recognition of pitches, intervals, and chords, and 
develops your ability to remember musical phrases. You can 
control the complexity of each drill by selecting various op- 
tions including note range, use of sharps ( *) and flats (t>), 
types of chords and intervals, and the playing of random 
music between examples. 

Since the program is designed to provide drill and does 
not teach the underlying concepts involved, this article will 
first cover relevant aspects of music theory. We'll then 
follow it up with a review of Music Skills Trainer. 




ilili 




Figure 1. Piano Keyboard 
The Scale 

The fundamental concept involved is that of the scale— 
an ordered group of tones within an octave. The C Major 
scale, with which almost everyone is familiar, provides the 
standard pattern for every major scale (Do-Re-Mi-Fa-Sol- 
La-Ti-Do). This pattern originated with the Greeks and is 
based upon the tetrachord. A tetrachord can be thought of 
as half a scale; it consists of four tones arranged so that 
they contain two whole steps followed by a half step. Refer 
to the diagram of a piano keyboard in Figure 1 . Starting 
at middle c, each progression up the keyboard represents 
a half step or semitone. For example, all the following repre- 
sent half steps: c-c *,c *-d, d-d *, d *-e, e-f , etc. The first 
tetrachord for the C Major scale consists of the following 
two whole steps: c-d and d-e followed by the natural half 
step e-f. The second tetrachord begins with g and again con- 
sists of two whole steps followed by a half step, ending with 



c' (an octave above middle c). This tetrachord pattern 
(1 + 1 + '/i) was referred to as a diatonic scale. 

In order to accommodate Oriental and other music, Greek 
theorists modified the two middle tones of the diatonic 
tetrachord in several ways. One of these, called the 
chromatic tetrachord, consisted of the pattern 1 Vz + Vi + Vi 
(e.g., c, d*, e, f,). Various combinations of these two 
tetrachords necessitate the division of an octave into the 
familiar twelve equally spaced intervals referred to as the 
chromatic scale: c, c *, d, d *, e, f , f *, g, g *, a, a b, c'. 

Pitch refers to the location of one of these tones in a scale, 
and is defined by a regular frequency of vibrations. In the 
United States the standard assignment for a above middle 
c is 440 vibrations per second. It happens that a pure oc- 
tave differs from any reference pitch by a factor of exactly 
2, so that a two octaves above middle c = 880 and A below 
middle c = 220. 

Although knowledge of frequencies is not required for 
use of the Music Skills Trainer, you may be interested to 
know how frequencies are assigned to other scale positions. 
Because each octave is divided into twelve equally-spaced 

intervals, the factor 2'2 is used to define the relative fre- 
quencies of successive tones. For example. 

If a = 440; 
a* = 440x2'2, 

b = a*x2'2 = ax2'2x2i2 = ax(2'2)-. 

Given any reference frequency, fo, then the relative pitch 
of any other scale position, f, can be calculated by coun- 
ting the number of half steps to that position, N, and using 
the formula: , 

f=fo(2'r. 

The following program calculates and plays a chromatic 
scale beginning with middle c (262). 
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Scales in Various Keys 

Now let us return to the diatonic (major) scale. A major 
scale can have a starting or root note of any of the twelve 
chromatic pitches. As in the case discussed above, a major 
scale is constructed, starting from the root, with two diatonic 
tetrachords (1 + I 4- 'Z:) separated by a whole step. A more 
convenient way to construct a major scale is simply to 
remember that half steps occur between the third and fourth 
and the seventh and eighth tones. Referring to Figure 1 , a 
major scale with as the root would be constructed using 
the following steps: 



b 



d' e' 



Steps 

This scale is referred to as an Eb Major scale, or a scale 
in the Key of Et>, since eb is the root. Similarly, a major 
scale in the key of G is constructed as follows: 



9 



b c' 

-II— I L. 



d' 

J L. 



ti — I 



1/2 1 1 
Steps 



1 '/2 



Steps 

While there are twelve such different diatonic scales, they 
all sound the same because they are based on the same pat- 
tern of diatonic steps. The following program plays these 
scales beginning with C Major. 
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Intervals 

An interval is the difference in pitch between two notes. 
Interval names indicate the number of included tones of the 
major scale. Starting with middle c in Figure 1 , the basic 
interval names are as follows: c-c, unison (prime); c-d, se- 
cond; c-e, third; c-f, fourth; c-g, fifth; c-a, sixth; c-b, 
seventh; and c-c', octave, c-f is a fourth because it includes 



the following diatonic tones of the C Major scale: c, d, e, 
and f. Similarly in the Eb Major scale, a fourth is eb-ab, 
and in the G Major scale a fourth is g-c'. However, as in 
the case of scales, an interval in one key sounds like that 
interval in another. 

Four of the eight intervals can exist in one of four forms. 
If the upper note of the interval lies within the major scale 
of the lower or root note, the interval may be classified as 
major. If the upper note is lowered a half step, however, 
the interval then becomes minor. For example, c-e is a ma- 
jor third and c-eb a minor third. This rule applies to four 
intervals; the second,third, sixth, and seventh. The remain- 
ing intervals — fourth,fifth, and octave — are classified as 
perfect: They do not exist in major and minor forms. The 
following program plays all of the intervals above in the 
C Major scale, i.e., with middle c as the lower or root note. 

The remaining two categories of intervals— aug/nenfed 
and diminished— are not used in the TI Music Skills Trainer 
and so will not be discussed in detail. They are formed as 
follows: augmented — a major or perfect interval is made 
one half step larger; diminished — a minor or perfect inter- 
val is made one half step smaller. 

Finally, intervals may be classified according to which 
note is played first. If the lower note is played first, the in- 
terval is said to be ascending (c-e), and if the upper note 
is played first, it is descending (e-c). 

Chords 

A chord is several notes played simultaneously, usually 
three or more. When a chord consists of three tones it is 
called a triad. Given any major scale, four triads can be 
formed from the starting note (root) of that scale: major, 
minor, augmented, and diminished. A major triad consists 
of the root, the third, and the fifth. For example, in a C 
Major scale, starting with the root c, the third is c-e, and 
the fifth is c-g. The major chord is then c-e-g. Similarly, 
in the Eb Major scale, given the root eb, the third g, and 
the fifth bb, the major chord is eb-g-bb. 

The major chord is changed to a minor chord by lower- 
ing the second note (i.e., the third) one half step. For ex- 
ample, the C Major chord c-e-g becomes the C minor chord 
c-eb-g and the Eb Major chord becomes the Eb minor chord 
eb.gb-bb. 

A minor chord can further be changed to a diminished 
chord by lowering the third note (i.e., the fifth) one half 
step. For example, the C minor chord c-eb-g becomes the 
c diminished chord c-eb-gb and the Eb minor chord eb-gb. 
bb becomes the Eb diminished chord eb-gb-bbb. (bbb is called 
"b double flat" and is the same note as a.) 

The augmented chord is formed by raising the third note 
of the major chord (i.e., the fifth) one half step. For exam- 
ple, the C Major chord c-e-g becomes the C augmented 
chord c-e-g* and the Eb Major chord becomes the Eb 
augmented chord eb-g-b. 

As in the case of scales and intervals, chords with the same 
name sound alike. All major chords sound alike; all minor 
chords sound alike, etc. 

If the lowest note of the chord is the root, the chord is 
said to be in roof position. All four types of triads (chords), 
however, can be played in inverted form. For example, the 
C Major chord c-e-g may be altered from its root position 
form to one of the following inversions by making the lowest 
note either the third or the fifth: e-g-c' and g-c'-e'. Similar- 
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ly, the inverted forms for the Et> minor— which in root posi- 
tion is written or played eb-gb-bb — are gb-bb-eb' and bb-eb'- 
gb'. 

Chords of more than three notes can be formed, and there 
are several different varieties. One of them, the seventh, is 
used in the Music Skills Trainer. The seventh chord con- 
tains the root, third, fifth, and the seventh lowered by a 
half step. For example, a seventh in the key of C Major 
is c-e-g and b lowered by a half step or bb. Similarly, in 
the key of eb the seventh chord is eb-g-bb-db (d lowered by 
a half step). 

While the seventh chord contains four notes, the 
TI-99/4A can play only three notes simultaneously; 
therefore, following traditional rules of harmony the fifth 
of the chord (third note) may be omitted to give a seventh 
in the form of c-e-bb. As in the case of triads, the seventh 
may appear in inverted forms. 

Tl Music Skills Trainer 

The Music SIdlls Trainer from Texas Instruments is a pro- 
gram written in TI BASIC (it will also run in Extended 
BASIC without modification). The program is available on 
cassette or diskette. 

Four types of drill are provided: Pitch Guess, Interval 
Recognition, Chord Recognition, and Phrase Recall. The 
user selects the type of drill desired from a menu. 

Pitch Guess 

In this drill, you try to identify the pitch of a single note. 
While it might seem that this would require perfect pitch, 
you will find after several examples that you have "tuned 
in" and are able to identify pitches by relating each new 
one to the one that has preceded. The difficulty of this ex- 
ercise can be controlled by specifying the starting note and 
range size in half steps (up to two octaves). In addition, you 
can choose to have notes selected from either the C Major 
diatonic or chromatic scales by answering "No" or "Yes" 
to the option of including sharps and flats. TI has included 
yet another means of increasing the level of difficulty- 
Random Music. If chosen, random music is played between 
examples, making it more difficult to remember the 
preceding note. The program provides up to ten examples 
and keeps score: 10 points for each correct answer. 

We recommend that when first using this drill, you use 
c as the starting note, a range size of 13 (one octave), no 
sharps and flats, and no random music. After a little prac- 
tice, it shouldn't be that difficult to identify notes. 

Interval Recognition 

This drill helps to develop your ability to recognize inter- 
vals. There are three levels, each of which adds more inter- 
vals to those included in the drill. For instance, if you choose 
Level 1 , the examples are composed of major thirds, fourths^ 
and fifths. Level 2 adds half steps, whole steps, and minor 
thirds, and Level 3 sixths, sevenths, and octaves. You can 
choose to have the intervals presented in ascending or 
descending order. For an added difficulty, you can also 
choose to have the lower note be random; it is otherwise 
c each time. You can also choose to have random music 



play between exercises. Up to ten examples are provided, 
and you receive 10 points for each correct answer. 

Chord Recognition 

This drill provides practice in recognizing chords. Again 
there are three levels, with Level 1 consisting of major and 
minor chords, Level 2 adding seventh and diminished, and 
Level 3 adding augmented. If you choose the Random Bass 
option, the root can be any note; otherwise it is a c. If you 
choose the Random Inversions option, inverted chords will 
be played; otherwise, a root-position chord is always played. 
If you choose the Chord Only option, the three notes will 
be played simultaneously. If you don't choose it, the notes 
comprising the chord are first played individually and then 
together. As in the previous drills, you can select the Ran- 
dom Music option. You receive 10 points for each, up to 
10 problems. 

Phrase Recall 

This drill develops your ability to remember a sequence 
of as many as nine random notes. A blank keyboard 
overlay, provided with the program, is used to label the keys 
with their corresponding pitch, covering two octaves much 
like the layout of a piano keyboard. You can select the start- 
ing note and range size, and determine whether sharps and 
flats are to be included in the examples. You can also specify 
the number of notes which constitute the phrase (1-9). After 
a phrase is played, you respond by entering notes from the 
keyboard as if it were a piano. As you play the notes, you 
hear them and they are displayed as well; if you make a 
mistake, you can use SHIFT T to start over again without 
penalty. When you have entered the notes that you think 
correctly represent the phrase, you press ENTER. The cor- 
rect notes are then displayed below your response, and you 
are awarded points based on the number of correct notes 
and the number of notes included in the phrase. Up to ten 
examples are given with a possible total score of up to 100 
points. As in the previous drills, the Random Music option 
can be chosen to make this drill even more difficult. 

We feel that TI's Music Sldlls Trainer will be useful even 
for experienced musicians who want to keep their auditory 
skills sharp. We would also recommend it for novices in- 
terested in further developing their knowledge and abilities 
in areas of music theory covered by the program. 
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Let's 
Learn 
Notes 




Let's Learn Notes was designed for beginning music 
students. A piano or organ teacher can use the pro- 
gram during a lesson to give the student a different 
approach to learning musical notes, or a student can run 
the program before or after the regular lesson. Students can 
also use the program at home for additional practice in 
learning musical notes. Even preschool children can begin 
learning the notes with this program. 

The program is written in Tl BASIC and uses color 
graphics to draw piano keyboards, musical staves, and 
notes. In addition, the program generates musical tones. 

This program provides three options: Keyboard Learn- 
ing, Treble Clef Learning and Bass Clef Learning. Each op- 
tion asks for ten responses. An incorrect response is 
recognized by a slight non-musical noise; the correct 
response must be entered before the program will continue. 

Keyboard Learning randomly selects and displays one of 
two piano keyboards (starting at the left with either two 
black keys or three black keys). It then randomly selects one 
of the 1 1 displayed piano keys and flashes a question mark 
on the key. The student responds by pressing the letter on 
the computer keyboard that corresponds to the letter name 
of the piano key shown. If the response is correct, the cor- 
responding musical tone is played and the letter name is 
printed on the piano key. The program randomly chooses 
Keyboard 1 or Keyboard 2 for each question. If the 



mmm 



Keyboard 1 



mmm 



Keyboard 2 
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keyboard chosen is the same as for the previous question, 
the keyboard is not redrawn. 

Treble Clef Learning displays a staff and treble clef. A 
note is selected randomly from Middle C to high F (top line 
of the stafO and displayed as a red quarter note. The stu- 
dent presses the letter on the computer keyboard that cor- 
responds to the letter name of the note. If the response is 
correct, the corresponding musical tone is played and the 
letter name is printed on the note. 




Bass Clef Learning displays a staff and bass clef. A note 
is selected randomly from low G (bottom line of the stafO 
to Middle C and displayed as a red quarter note. The stu- 
dent presses the letter on the computer keyboard that cor- 
responds to the letter name of the note. If the response is 
correct, a five-note scale is played and the letter name is 
printed on the note. 



Bass Clef Learning 

This program is very easy to use and "student- 
friendly"— even for the youngest piano learners. A student 
can select the three learning options either at the beginning 
of the program or after each option has finished, simply 
by pressing 1 , 2, or 3 on the computer keyboard. If a number 
greater than 3 is pressed, the program ends. 
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This program makes repetitious drill much more fun for 
the piano student and much less boring for the teacher. TI's 
color graphics and sound in this program greatly enhance 
the student's motivation to learn the letter names of piano 
keys and notes. 



EXPLANATION OF THE PROGRAM 
Let's Learn Notes 

Line Nos. 

150 T= 1500 for the CALL SOUND(T,--,-) 

statements. 

170-450 Defines colors and characters for the title 
screen. 

460-1220 Displays the characters for musical notes and a 
treble clef for the title screen. Musical tones of 
the C Major scale and arpeggio are played while 
the title screen is displayed. 

1230 Asks which option the student wants and bran- 

ches to that option. 

1240-1340 Option 1, Keyboard, Defines color and 
characters for drawing the keyboard. 

1360 COUNT set to zero and incremented for each 

question. There are 10 questions in each option. 

1370 Keyboard number is randomly chosen, 1 or 2. 

1380-1440 Prints "NAME THE KEY". 

1450-1550 Draws the white keys. 

1570-1730 Draws the black keys for one of the two piano 
keyboards. 

1740-1750 Chooses one of the 11 keys randomly. 

1760-1810 Blinks a red question mark on the key. 

1820-1830 Reads the student's response. 

1840-2680 Tests the response. If it is incorrect, there is a 
nonmusical sound and another response is re- 
quired. If it is correct, the corresponding 
musical tone is played and the letter name of 
the key is displayed on the key. 

2690-2710 Delays, then erases the letter name. 

2720-2730 Increments COUNT and determines if there 
have been 10 questions. 

2740-2750 Chooses keyboard pattern randomly. If it is the 
same as the previous question, only a new key 
is chosen; if it is different, a new keyboard is 
drawn before the key is chosen. 



2760 

2770-2800 
2810-3270 

3280 

3290-3340 
3360-3450 
3460 

3470-3530 
3540-3550 
3560-4010 



4020-4030 



4040-4160 

4170-4230 
4240 

4250-4310 
4320-4330 
4340-4900 



4910-4920 



4930-4970 
4980-5060 
5070-5210 
5130-5210 

5220-5390 
5230-5240 
5250-5260 
5260-5390 

5400-5430 

5540-5490 

5500 



Treble Clef and Bass Clef option. 

Resets colors for this screen. 

Defines special characters for staff, treble clef, 

and note. 

Draws staff. 

Prints "NAME THE NOTE". 
Treble Clef option. Draws the treble clef. 
Sets COUNT for number of problems. 
Chooses note and draws it. 
Reads the student's response. 
Tests the response. If it is incorrect, there is a 
nonmusical sound and another response is re- 
quired. If it is correct, the corresponding 
musical tone is played and the letter name is 
displayed on the note. 

After a delay, erases the note and chooses a 
new note. If there have been 10 notes, the op- 
tions are listed again. 

Bass Clef option. Defines special characters for 
the bass clef. 
Prints bass clef. 

Sets COUNT = for the number of problems. 
Chooses one of 1 1 notes randomly and draws it. 
Reads the student's response. 
Tests the response. If it is incorrect, there is a 
nonmusical sound and another response is re- 
quired. If it is correct, a five-note scale is played 
starting at frequency J, and the letter name is 
displayed on the note. 

After a delay, erases the note and chooses a 
new note. If there have been 10 notes, the op- 
tions are listed again. 
Subroutine for playing the 5-note scale. 
Subroutine for drawing the staff. 
Subroutine for drawing the note. 
Draws the stem of the note up or down from 
the note, depending on where the note is. 
Subroutine for procedure after each note. 
Delays 

Increments and tests COUNT. 

If COUNT< 10, erases the note and returns. 

If COUNT=10, prints menu screen of options. 

Branches to Option I, 2, or 3. 

If 4 is pressed, the program ends. 
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CALL 
DATA 
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Nbtjes 
on a Com 



Part 1 - 




Recently I returned to my job as elementary music 
teacher is the Rossford (Ohio) School District after 
an exciting and rewarding summer. When reading 
students' responses to the question, "What did you most 
enjoy about music last year?" on a first-day questionnaire, 
I was pleased to see the number of students responding, 
"The computer." At New Horizons Academy for the 
Gifted, a Computer-Assisted Music Program held in the 
summer of 1981 elicited a similar response from students. 
In both of these very different educational contexts, com- 
puter usage has proved to be a strong motivational force 
in students' acquisition of music theory and skills. 

Last year my husband and I purchased a TI-99/4 with 
some rather nebulous ideas about potential applications in 
the general music curriculum. Together we worked on the 
development of programs — trying to incorporate motiva- 
tional strategies which apply in virtually any teaching 
situation — and experimented with various uses of commer- 
cially available software (e.g., the Music Maker Command 
Cartridge and Music Skills Trainer). We tried many techni- 
ques in the classroom to determine the children's responses. 
The result has been the continuing evolution of a computer- 
assisted music curriculum tailored to the needs of my 
teaching situation. It has been a stimulating year— one which 
progressed from ignorance about using the computer and 
apprehensions concerning its effectiveness to one of the most 
exciting experiences of my teaching career. 

Whether you are a teacher planning a Computer-Assisted 
Instruction (CAI) project or a parent considering the poten- 
tial educational value of a computer in your home, it may 
not be necessary to know exactly where you are going before 
you take the first step. Our experience has shown that the 
element of discovery inherent in developing a curriculum 
interactively with children can be as rewarding and exciting 
a learning process for the educator as is the use of the final 
product for the student. 

Glenwood School in the Rossford (Ohio) district is a 
typical elementary school with an enrollment of 400 students 
in grades 1-6. 1 incorporated the computer into my general 
music curriculum for grades 4-6 during the fall semester of 
the 1980-81 school year (my first year in this system). Classes 



The TI-99/4 Conducts 



Music Theory Drill 
in a Traditional 
Classroom Setting. 



were intact groups which met for two 35-minute periods each 
week in the "music room"— a corner of the cafeteria. 
Average class size was 25 students, with pupils from the Ad- 
justed Curriculum Oearning difficulties) as well as Project 
Horizons (gifted) programs mainstreamed into the regular 
classes 

My classes are organized around the belief that music 
should be fun and provide students with an outlet for their 
creativity. Although music class can be a break from routine 
academics, children must be equipped with basic knowledge 
of the fundamentals of music reading and theory upon com- 
pletion of a general music course. A variety of experiences 
—singing, movement, listening and playing instruments- 
should be provided. The computer was employed as an ad- 
ditional enrichment activity— one which turned out to be 
unusually effective for the students, as well as challenging 
for the teacher. 

The general approach I employ involves an initial ex- 
periential emphasis (e.g., singing and movement) followed 
by instruction in the basic theory required to read music. 
In addition to providing knowledge of theory, this approach 
readies students for potential participation in band and 
choir. 

Two computer programs, Rhythm and Mystery Words, 
were used to reinforce two aspects of the curriculum: (1) 
aural recognition of rhythmic patterns, and (2) knowledge 
of musical notation for note names in both treble and bass 
clef. 

In teaching students how to discriminate between various 
note values and rests, I first used "Echo Clapping" in which 
I clapped a rhythmic pattern and the students tried to 
reproduce it. Next, students were taught to associate ap- 
propriate music terms with relative durations (whole, half, 
quarter, eighth and their corresponding rests). 

Then we progressed to an activity called "Rhythmic Dic- 
tation" in which students wrote in musical notation the 
rhythms they heard clapped (e.g. , J J J J , J fJ^J ^, J J tTS J). So 
as not to get too complex at the beginning, only the J , J? 
and ^ were taught. 

Following presentation of the concepts and introduction 
to initial rhythmic dictation exercises, many students reach 
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a plateau when acquiring the skill of describing rhythmic 
patterns in musical notation. Representation of rhythmic 
patterns by clapping is to some extent an abstraction because 
it requires analysis of the relationship between a steady beat 
and intervals between claps. Although most children are 
highly motivated to acquire this skill, many encounter dif- 
ficulties which result, in part, from its abstract nature. 

To address this problem, we tried to incorporate two prin- 
ciples into the Rhythm program: (1) concreteneSs, and (2) 
immediacy of feedback. At the same time, in order to op- 
timize the effect of one computer on 25 children, we decid- 
ed to use a game format— allowing for the possibility of 
up to ten teams within a class. We also put a lot of effort 
into the introductory portion of the program to catch 
students' attention with the color and sound capabilities of 
the TI-99/4. 

I initally introduced this program in my sixth grade classes 
after considerable time had been spent practicing rhythmic 
dictation. Periodic quizzes showed that a fair number of 
students in all three classes had not grasped the concept. 
After three sessions with the Rhythm program, almost every 
student had become competent in clapped rhythmic 
dictation. 

I believe several factors contributed to this remarkable 
improvement: The activity was conceptually more concrete 
than rhythmic dictation, and it provided students with im- 
mediate feedback which included the correct response when 
mistakes were made. Concentration and motivation were 
improved, in part, simply by the uniqueness of the com- 
puter activity. It was not uncommon for several students 
to show up in the music room shortly after their bus arriv- 
ed, in the hope of spending ten minutes working with a com- 
puter music game before school started. When teachers ar- 
rived after a general music class to take their students back 
to their classrooms, we invariably had to pry some of them 
away;, classes sometimes had to be actually extended 10 to 
15 minutes! 

The group dynamics involved also played a significant 
role. During the first session, the sixth graders asked to have 
team scores added together for comparison with the other 
sixth grade classes. Because each class represented an in- 
tact group with some history and cohesiveness, a positive 
atmosphere prevailed in which the student working at the 
computer was supported and encouraged by the cheers and 
comments of fellow classmates. All students had several op- 
portunities to make a contribution to the class total score. 

Next, I used the Rhythm program in the fifth grade. Most 
students were aware through word-of-mouth that the sixth 
graders had been using a computer and naturally were in- 
terested in the top score the sixth graders had achieved. The 
typical score for the first day in the sixth grade had been 
15 to 20. By comparison, the first day scores in the fifth 
grade were as high as 45! Similar enthusiam was observed 
in the fourth grade. 

For the most part, I anticipated these outcomes, although 
the actual impressive results far exceeded my expectations. 
There were also some genuine surprises: First, using the 
computer allowed me to observe and diagnose the problems 
of individual students and, where necessary, to take them 
aside and give special attention to their needs while the class 
was occupied with the computer. Learning the concept was 
important to them in order to make points for their class. 



Another gratifying result was that the students with learn- 
ing difficulties found it easier to master this more concrete 
activity and took a great deal of pride in their contributions 
to the class score. It was indeed rewarding to see their beam- 
ing faces as classmates cheered and patted them on the back 
after their correct responses. 

Following the computer activity, neariy every student had 
achieved competency in the basic rhythms which had been 
presented, and they were able to apply this knowledge in 
the playing of rhythm instruments. I wrote several lines of 
rhythmic patterns on the board in musical notation and 
asked individuals or small groups to play them. Subsequent- 
ly, the patterns were played to accompany class singing or 
listening to records. 

The rhythm unit was followed by the study of musical 
notation for pitch. Students were introduced to this con- 
cept through a discussion of the importance of learning the 
note names on the staff in order to read music when sing- 
ing or playing instruments. I compared note reading to 
reading a foreign language, using symbols and notes instead 
of words to create a musical story. 

Initial instruction presented the familiar phrases "Every 
Good Boy Does Fine" and *T A C E" to facilitate learn- 
ing the position of notes in the treble clef, and this was 
followed by drills to further reinforce note name recogni- 
tion. Students were promised that the computer would be 
brought back to class when they learned these note names 
well enough to play a computer game. Thereafter, the 
Mystery Words game listed at the end of this article was 
introduced. 

Mystery Words is a game that is based upon the use of 
note name letters to spell a variety of words, for exam- 
ple, "cabbage," "bead," and "facade." The program ran- 
domly chooses one of these words and represents it in music 
notation graphics in the treble clef, the bass clef, or both. 
The teacher has the option of excluding words with more 
difficult meanings (such as "facade" or "accede") when 
using the game with younger students. 

The screen is divided in half with a red side and a blue 
side corresponding to the red and blue teams into which the 
class is divided. One member of each team is seated at the 
console. Before the presentation of a Mystery Word each 
player must signal he is ready by pressing the "1" or "0" 
key. As each team member signals readiness, a traffic light 
on each side of the screen changes from red to yellow to 
green, the Mystery Theme is played, and the graphic 
representation of the Mystery Word appears. The first stu- 
dent to decipher the word presses the 1 or key, and the 
graphic representation disappears. He is then instructed to 
enter the answer using the keys 3 through 9 which have been 
labeled A through G on a blank keyboard overlay. As each 
letter is pressed, it appears in the graphics window. If the 
entire word is entered correctly, the graphic representation 
reappears with notes above the letters entered by the stu- 
dent, and the team's score is incremented. In the event an 
incorrect letter is entered, the opposing team member is in- 
structed to try. 

When the game was introduced in class, only the treble 
clef option was selected since previous instruction did not 
include the bass clef. Prior experience suggested that the 
presentation of both treble and bass clefs was too confus- 
ing for the average elementary age student. But using the 
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computer, students quickly mastered treble clef note names 
and requested that they be allowed to try working with the 
bass clef as well. Their ability to learn bass clef note names 
rapidly with minimal prior classroom work and to work with 
both clefs simultaneously was truly amazing. 

Use of Mystery Words was accompanied by the same in- 
tense interest and motivation as Rhythm. Although this 
game was also constructed for intra-class competition, 
students again asked that team scores be added together for 
comparison with other classes. Some students began show- 
ing up before school with younger brothers and sisters to 
explain the computer games to them, and I became a 
popular figure among students in the cafeteria at lunch 
time — the main topic of conversation being the computer. 

Seymour Papert defines three components for learning 
mathematics: the Continuity Principle, the Power Princi- 
ple and the Principle of Cultural Resonance * These prin- 
ciples, of course, may be applied to the acquisition of any 
content domain — not just mathematics. This is to say that 
a concept or skill may be acquired with the least effort if 
it (1) is continuous with what the learner already knows, 
(2) empowers him to achieve personal objectives which could 
not be achieved otherwise, and (3) makes sense within a 
larger social context. Construing the computer-assisted units 
on these principles may help to elucidate some of the 
elements which I believe are critical to the success of this 
application (and for that matter, of any learning 
environment). 

All children are intimately familar with music in their 
everyday environment. The initial emphasis on those aspects 



of music already familar to them, i.e., singing and move- 
ment, helped to give a sense of continuity with respect to 
subsequent course material. Second, the computer activity 
was integrated into a larger social context by the students 
themselves when they asked that team scores be added 
together for comparison with other classes. This 
phenomenon was also apparent when students in lower 
grades expressed interest in the scores obtained by the up- 
per grades and used this information in the setting of per- 
sonal goals. 

But perhaps the most important element is the Power 
Principle. Students perceived that the acquisiton of music 
skills would enable them to make contributions toward 
group achievement in the computer music game. Later they 
found that they were able to play rhythm instruments and 
read musical notation, and at the same time, they realized 
that these skills may be useful to them in the future when 
participating in band and chorus activities, which are 
themselves part of a meaningful social context. 

In summary, use of the computer increased student 
motivation, and at the same time allowed abstract material 
to be represented in a concrete way, leading to more rapid 
acquisition of skills and concepts. The computer also made 
it possible to diagnose individual weaknesses and provide 
individualized remedial work. Discipline problems arising 
from boredom and lack of interest were nonexistent when 
the computer was in the classroom. In general, a positive 
environment, cooperation, and mutual support 
predominated. 

♦Papert, S. Mindstorms: Children, Computers, and Powerful Ideas. New 
York: Basic Books, 1980. 




Line Nos. 

130-200 

210-270 

280-350 

360-420 

430-490 

500-700 

710-840 

850-870 

888-980 

990-1100 

1110-1330 
1340-1390 

1400-1470 



1480-1920 



EXPLANATION OF THE PROGRAM 
Mystery Words 

Clears screen; sets screen color. 
Accepts user input for word list. 
Accepts user choice of type of drill. 
Instruction for keyboard labeling. 
Interrupts program for explanation to class. 
Displays notes of treble clef for review. 
Displays notes of bass clef for review. 
Restores data pointer and dimensions arrays. 
Defines character patterns and sets colors for in- 
itial graphic screen. 

Displays initial graphics screen; plays associated 
sounds. 

Displays Mystery Words title screen. 
Assigns word codes to SETS array; numeric 
digits correspond to letters (1=A, 2=B, etc.). 
Assigns coded print locations (potentially 2 for 
each stafO for each of the 7 letter codes to ar- 
ray LINE. 

Defines character patterns and sets colors used 
in the game screen. 



1930-2090 Displays basic elements of game screen. 

2100-2110 Selects a Mystery Word randomly. 

2120-2530 Determines a representation for word on 

staff(s); when more than 1 possibility for a loca- 
tion exists, choice is random. The word is 
played in invisible characters (white on white). 

2540-3000 Displays READY message, changes traffic light 
colors as player signal ready by pressing keys 1 
and 0; plays Mystery Theme. 

3010-3030 Makes representation of Mystery Word visible. 

3040-3100 Accepts answer signals from players. 

3110-3180 Flashes screen of red team. 

3190-3250 Flashes screen of blue team. 

3260-3280 Removes Mystery Word from view pending 
player's response. 

3290-3300 Instructs team to answer. 

3310-3450 Accepts key 3-9 (A-G) input, checking each let- 
ter against correct spelling. 

3460-3690 If answer is correct, displays Mystery Word 
again with spelling; increments team score; 
returns to line 1930. 

3700-3820 If answer is incorrect, allows opposing team to 
respond. 

Subroutines: 

3830-4330 Displays game screen. 
4340-4470 Draws treble staff. 
4480-4570 Draws bass staff. 
4580-4630 Displays messages, MSGS. 
4640-4700 Displays letters of answer. 
4710-4830 Displays initial graphic screen. 
4840-4900 Plays Mystery Theme. 

4910-5140 Displays treble and/or bass clef notes for initial 
review. 

5160-5180 Erases screens after initial user input. 
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Part 2 





- The TI-99/4 Assists 



Gifted Children in 
he Learning Process 



Although the TI-99/4 proved itself a valuable enrich- 
ment tool in my traditional music classes, I began 
to realize its full potential during a summer program 
for gifted children at New Horizons Academy. It was ex- 
citing to let a curriculum evolve as children enthusiastically 
identified their own interests and pursued ways of express- 
ing them creatively through use of the computer. 

The Educational Setting 

New Horizons Academy is a private school that was 
founded by Nanci Lucas in the belief that children are 
naturally excited about learning and capable of handling 
academic pursuits beyond their years. When an individ- 
ualized curriculum is designed to allow for advancement 
through basic skills and extensive opportunity for enrich- 
ment and acceleration, children find learning to be exciting 
and meaningful. 

In addition to the regular academic curriculum, the 
Academy periodically provides workshops that are open to 
any interested children. Since 1978, "Summer Spectacular" 
has offered courses in computers, creative dramatics, ar- 
chaeology and photography. I became involved with New 
Horizons last summer when I taught two sessions in "Com- 
puter Music" with our TI-99/4. 
The Computer Music classes were intended to familiarize 
students with basic music concepts and provide for in- 
dividualized and accelerated learning in a manner consis- 
tent with the philosophy of the Academy. A typical group 
consisted of eight students ranging in age from 7-13. The 
group was scheduled to meet eight times in a two week 
period with each session lasting one hour. After the first 
day, however, the students "demanded" that I arrive at 8:45 
A.M. and not leave until 2:15 P.M. Several times it was 
even 3:45! To see students asking to cut other classes, skip- 
ping lunch, and having their parents pick them up late— all 
just so they could work on their projects — was tremendously 
rewarding. 

The Educational Mode 

I employed RenzuUi's theoretical framework. The Enrich- 
ment Triad Model. ^ The model contains three constructs 



which convey the types of learning activity believed to be 
best for gifted children. 

In General Exploratory Activities (Type I) students are 
exposed to a broad range of possibilities. None of these is 
presented in detail. The purpose is merely to introduce the 
students to the range of possible alternatives open to them. 
Group Training Activities (Type II) follow, providing the 
students with fundamental information of potential use in 
subsequent development of their interest areas. These ac- 
tivities are oriented toward content. 

During the two preceding phases, students begin to iden- 
tify their interests and develop the skills to create a final 
product. In Individual and Small Group Investigations of 
Real Problems (Type III), each student determines a prob- 
lem or project of particular interest that is based on the in- 
formation obtained in the previous activities, and then pur- 
sues that choice in greater depth. 

This final element of the Enrichment Triad is perhaps the 
most important. Ideally, the students will exemplify the 
"tumed-on professional" and pursue their objectives with 
intense motivation and commitment. 

In many respects, RenzuUi's model parallels Seymour 
Papert's principles of continuity, power, and cultural 
resonance. ^ 

Implementation of the Model 

In the first few days, I exposed the students to a variety 
of musical activities including a TI-99/4 concert of familiar 
children's songs such as "Happy Birthday," "Yankee Doo- 
dle," and "Pop Goes the Weasel"— all complete with 
graphics. We also played rhythm instruments, the autoharp, 
resonator bells and recorders, drew on impressions of music 
while listening to recordings, identified environmental 
sounds, and discussed the commonalities and differences 
of all sounds. 

The Texas Instruments Music Maker Command Car- 
tridge contains two options with which children can write 
music. In the exploratory activities, they utilized the Sound 
Graphs option, in which "the composer" need not have any 
prior knowledge of music notation and theory. In this mode 
the students experimented with duration of notes by con- 
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trolling the length of the line in whatever voice they were 
composing (3 voices or 3-part harmony is possible). Fre- 
quency is determined by the height of the line on the screen, 
and there is a volume choice. From all of our exploratory 
activities, students came to the conclusion that all sounds 
have duration, frequency, and volume in common. These 
concepts were effectively and concretely exemplified by the 
Music Maker's Sound Graphs Mode. 

In summary, I believe that the exploratory activities 
altered the students' experience of music. They began to see 
music in a new way, as part of the continuum of sound and 
noise; the "freshnesss" of this new perspective contributed 
to their desire to move toward the next phases of the model. 

Group Training Activities were concerned with content- 
oriented learning. The objectives were to provide students 
with a basic knowledge of music theory and an understand- 
ing of how a computer program is written — information 
which they could use as tools in developing their interest 
areas. Several computer music games and drills were used 
by the entire group, but as a child's interest waned, he was 
allowed to break away from the group activity and pursue 
individual work in his primary interest area. 

The computer games included (1) Mystery Words, in 
which the players learned the names of treble and bass clef 
notes; (2) Rhythm, which provided ear training in the 
recognition of quarter notes, eighth notes, and quarter rest 
patterns; and (3) TI's Music Skills Trainer, which contains 



quarter, eighth and sixteenth and their corresponding rests 
relate to each other and can be organized into a composi- 
tion that is musically correct. 

In moving into Type III of Renzulli's model, almost all 
students elected to write a computer program to play a 
musical composition; some students selected pieces with 
which they were already familar, and others wrote original 
compositions. Many investigated how to use graphics and 
color to enhance their creations, and designed title screens 
to be displayed during the computer's performances of their 
works. Compositions included "The Entertainer," "Mr. 
Tambourine Man," "Amazing Grace," Beethoven's Ninth 
Symphony (Ode to Joy), and "Jingle Bells." Three students, 
Byron, Allan, and Peggy, exhibited a competitive spirit when 
comparing the number of lines and difficulty of their pro- 
grams. Steve wrote his program to play Beethoven's Ninth 
Symphony in three-part harmony; Bryan wrote his original 
composition to flash a change of screen color to emphasize 
musical contrasts at appropriate points in the music; Peggy 
reworked her original composition many times until she was 
satisfied with the rhythmic structure . 

It is important to note that not every student was equally 
enthusiastic about programming. For example, Adrienne 
seemed to prefer taking Computer Music for enjoyment and 
the personal satisfaction of becoming familiar with it but 
did not have a genuine interest in becoming a creative 
producer. 




Seeing your students 
eagerly asking to cut 
other classes . . . and 
having their parents 
pick them up late — all 
just so they could work 
on their projects — was 
tremendously rewarding. 

99 




four games to improve the player's skills in recognition and 
recall of pitches, intervals, chords, and phrases played by 
the computer. 

We took a look at the program listings for our favorite 
songs and games and "brainstormed" about what all those 
commands could possibly mean. Discovering how chang- 
ing the duration, frequency, and/or volume in a CALL 
SOUND statement affects the tones produced by the com- 
puter was a popular Group Training Activity. The children 
soon started drawing conclusions and generalizations about 
how to program. At this point it was necessary to hand out 
information from the User's Manual for students to take 
home and study over the weekend — homework at their 
request! 

Additional content-oriented learning took place when 
students experimented with the Traditional Mode of the 
computer's Music Maker Command Cartridge. I used the 
traditional mode to help children discover information about 
key signatures, time signatures, tempo, and music 
notation — including how various notes such as whole, half. 



The satisfaction children feel from communicating the 
results of their work to an audience was obvious when three 
ladies from Springfield (Ohio) School District and a banker 
visited our classroom one day. Byron stopped his work to 
take over for Mrs. Lucas and me as we were explaining the 
Computer Music Class. He and two others enthusiastically 
gave a presentation of their music and proudly explained 
what had gone into its composition. In addition, the already 
high level of enthusiam increased when the class found out 
they could present their finished products to their parents 
and others on Visitation Day and possibly have them 
published in 99'er Magazine. 

With this group, I served mainly as a resource person and 
passed the responsibility for learning and investigating on 
to the students. Students were introduced to concepts of pro- 
gramming and music theory as they explored and used this 
knowledge to make their programs more complex. It was 
a good example of making material relevant. The Computer 
Music course allowed for freedom of choice in that no 
course requirements were established ahead of time; instead. 



Copyright © 1983 Emerald Valley Publishing Co. 



The Best of 99' er Volume 1 213 



the class members were allowed to devolop their own 
"courses of study" as their interests developed. Likewise, 
the time allocations were flexible because the entire staff 
allowed students to skip their classes and come to Computer 
Music all day if they wanted. 

By requiring students to play the games described in Type 
II activities only until they no longer were interested, mastery 
of competencies became more streamlined and exciting— 
as RenzuUi suggests. After playing Mystery Words about 
ten minutes, seven-year-old Michael put it this way,"Do we 
have to play it anymore? We know this now!" 

It was interesting to observe how the gifted children 
mastered the basics much more rapidly and efficiently than 
my regular general music students. The need for in- 
dividualization and enrichment for the gifted is obvious 
when one realizes that playing the same games which in- 
trigued my regular classes for several of their thirty minute 
music periods tired the gifted in ten to fifteen minutes; they 
then requested permission to return to programming their 
own creations. This is an example of RenzuUi's differentia- 
tion of "real investigative activities" for the gifted from 
"training exercises." This differentiation prompted the 
development of his Enrichment Triad Model. 

It is important to point out that RenzuUi's model is not 
a fixed, rigid framework; the three activity types often 
overlap. For example, while the actual composing of music 
is Type III (Individual and Small Group Investigations), the 
trial-and-error initial discoveries of the computer's musical 
capabilities might be considered Type I (Exploratory). 
Likewise, there is overlap in some of the students' other 
Type II activities. Since brainstorming provides children with 
the skills needed to explore alternative solutions to problems, 
our discussions about environmental sounds and computer 
language were exercises in developing the processes that 
enable a learner to deal more effectively with content, yet 
took place during an exploratory activity. 



Furthermore, process training (Type II) occurred when 
students wrote their own programs. As Byron observed, 
"The computer really programs you; you don't program 
it." He was referring to the fact that the best programmers 
learn to think like the computer, in that they think out the 
process of writing their programs instead of memorizing 
what to write. Essentially, they must consider how the com- 
puter thinks, then determine what to say to get the com- 
puter to accomplish their goals. Obviously, the program- 
ming required to achieve the final product is a Type III ac- 
tivity, yet the development of thinking processes involved 
in Type II is also present. 

The experience of teaching at New Horizons has given 
me new insights into how children think and how different 
their learning styles can be. It was exciting to allow a cur- 
riculum to evolve as children enthusiastically identified their 
own interests and pursued ways of expressing these interests 
creatively. 

Postscript 

Although the Academy already had four CBM computers 
and a TRS-80, the magical attraction of students to our 
TI-99/4 did not go unrecognized. Soon the Academy pur- 
chased a TI-99/4A, and subsequentiy a second one, together 
with a variety of the high quality educational software of- 
fered by Texas Instruments. 

My husband and I have conducted several other enrich- 
ment sessions at the Academy and have become increas- 
ingly excited about the profound potential of computer- 
facilitated learning. egfH 
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A Music 
Text Editor 
& File Player 
for the TI-99/4A 




For those readers who do not as yet have a Music 
Maker but would like to experiment with music 
writing anyway, we are offering a primitive music text 
editor, which has two of the three voices of the TI99/4A, 
as well as a file player program and the input required to 
play. 

The Music Text Editor program creates a tape file which 
is read and played by the Music File Player that follows it. 
Although the file can be played by the editor, the tempo 
will be somewhat slower than when performed by the 
separate player program. 



Use the following symbols to write note values: 



W-Whole 
Q-Quarter 
S-Sixteenth 



H-Half 
E-Eighth 



For a dotted note value, put a period after the symbols, for 
example, S.,Q., etc. 

Use the following symbols for pitches: 

A A# E 
B F F# 

cat G G# 

D D# R-Rest (a pitch with value 0) 

After each pitch, give the octave (1-4): 
Octave Begins 

1 Bass clef, bottom space (A= 110 cps) 

2 Bass clef, top line (A = 220 cps) 

3 Treble clef, 2nd space from bottom (A = 440 cps) 

4 Treble clef, 1st ledger line above (A = 880 cps) 

(NOTE: SAVE your input periodically! An input of any note 
plus an accidental but without an octave number (e.g., A#) 
may cause your program to crash.] 



The Music Text Editor will first ask you for the com- 
position's and the composer's names. Then the prompt M.M 
will ask you for a tempo in quarter notes per minute — 
corresponding approximately to a metronome beat — 
between 56 and 126 per minute. (NOTE: The program won't 
accept any value larger than 126; the computer will reject 
an overly-funereal beat because the value put in the dura- 
tion parameter of CALL SOUND will be too large.) 

The program then begins requesting input for the com- 
position, line by line for the two voices. After the program 
displays the line number, you enter the duration (W, Q., 
S, . . . ), followed by the pitch values and octave ranges for 
each of the two voices. You must separate these values by 



a slash (/), and end the line with a slash. For instance, to 
play simultaneously the dotted eighth notes F * in octave 
2 and C in octave 1 , followed by a sixteenth rest in the first 
voice and a Bb sixteenth note in the second, after the first 
program line number prompts (1 = ) you would enter: 

1 = E./F#2/C1/ 

2 = S/R/A#l/ 

3 = 

When the program prompts you for the next line of notes 
(in this instance line 3), you may instead enter one of the 
following commands: 

CHANGE, REDO, LIST, PLAY, or SAVE. 
CHANGE, REDO and LIST will ask for a range of lines. 
The SAVE command merges new data with data already 
stored in the tape file. Unless you answer the question, 
"FINISHED?" with a "YES", no end-of-file mark will be 
written on the tape file. Until the file has an end-of-file mark, 
it can't be read. The Music File Player can read and play 
a file consisting of up to 550 lines. 
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TO paraphrase Shakespeare, "The computer that hath 
no music in its chips, nor is not programm'd with 
concord of sweet sound is fit but for business, 
mathematics, and sorts." The TI-99/4A is definitely not one 
of these. 

Outstanding music and sound effects capabilities are 
among the many features which set the TI-99/4A apart from 
other personal computers. A user can generate three 
simultaneous tones and a noise, and can specify their dura- 
tion, pitch, and loudness — all with a single Tl BASIC state- 
ment. The sound is played through the speaker of the color 
monitor or TV display. 

Of course, an assortment of beeps, "ta-daas" and outer 
space sounds can greatly enhance a graphics presentation 
and provide useful auditory feedback during the program 
execution. But when the sophisticated sound capabilities of 
the TI-99/4A become the focus of the programmer's at- 
tention, the Texas Instruments machine becomes a musical 
instrument in its own right. Whether playing a Bach sonata 
or your own composition, a successful TI-99/4A perfor- 
mance is worth the programming effort. 

With the introduction of TI's Music Maker Command 
Cartridge, you can take full advantage of the TI-99/4A's 
sound capabilities without having to write a complex BASIC 
program. The Music Malcer allows you to write a composi- 
tion using either of two methods — Traditional Mode or 
Sound Graphs. While Traditional Mode requires some 
knowledge of fundamental music theory, Sound Graphs 
does not. Both methods are graphics-based, in contrast to 



other music editor formats which require entry of notes us- 
ing ASCII characters. Both also make superb use of the 
TI-99/4A's outstanding color graphics capabilities. Notes 
are entered by manipulating the cursor with either the 
joysticks or the arrow keys. A composer can then print out 
the bass and treble clefs of each measure — complete with 
all notes, sharps, fiats, and rests — with TI's thermal printer 
(using its special graphic character set). It's also possible to 
save the completed musical score on cassette tape or diskette. 

Traditional Mode 

In Traditional Mode, notes are entered directly on the 
music staff using standard notation. The first step involves 
defining the key, meter, and tempo. AH possible key 
signatures (0-7 sharps or fiats) are allowed. The meter or 
time signature options for the denominator are 1 , 2, 4, 8, 
and 16— corresponding to the unit of measure receiving one 
beat (i.e., whole, half, quarter, eighth or sixteenth note). 
The numerator of the time signature indicates the number 
of such units which comprise a measure. Your options here 
are restricted to values equal to, or less than, the 
denominator. Examples of allowable time signatures are: 

4 6 2 and 3 . 
4 8 2 4 
on the other hand, 

1 , 12 , and A 
2 8 4 
are not allowable, because the numerator exceeds the 
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denominator. This limitation is significant, because there 
is a natural accent which falls on the first beat of every 
measure when music is accurately interpreted by a per- 
former. This regular impulse, together with phrasing and 
secondary accents in compound meter, gives a composition 
its underlying rhythmic structure. The Music Maker does 
not automatically provide for this natural rhythm. The im- 
plementation of accent is entirely up to you. For example, 
a composition written in 4/4 time may be made to sound 
like 3/2 time with proper phrasing and specification of ac- 
cent. Therefore, the time signature limitation does not ac- 
tually limit the music you can write with the cartridge. Final- 
ly tempo is specified as a number from 1 to 30, correspond- 
ing approximately to metronomic indications from 25 to 128 
quarter notes per minute — sufficient range for nearly all 
compositions. 

After these parameters are defined, the graphics represen- 
tation for the first measure appears. Some music editors for 
other machines do not use graphics at all. It is a great ad- 
vantage to see your composition displayed in standard nota- 
tion as you are writing it. 

Up to three voices may be "drawn" using whole, half, 
quarter, eighth and sixteenth notes and their correspond- 
ing rests. Single dotting can be used with notes, but not with 
rests. The notes for each voice are represented in a different 
color, which facilitates identification of voices when editing. 

The pitch range is three octaves, extending from the 
second A below middle c (bottom space of bass cleQ to the 
second a above middle c (first ledger line above treble cleO- 
This may seem like a wide range. In arranging several piano 
pieces for the TI-99/4A, however, we found that it was fre- 
quently necessary to make octave transpositions for notes 
extending beyond the Music Maker's pitch range in Tradi- 
tional Mode. On the other hand, the Music Maker is not 
really intended for the transcription of existing music for 
other instruments, but rather to facilitate original composi- 
tion. Like all instruments, it too has limitations which must 
be taken into account when preparing an original 
composition. 

Accidentals (sharps, flats, or naturals different from the 
key signature) must be written for each note; once written, 
they do not carry over through the entire measure as they 
do in standard notation. For someone who is accustomed 
to standard notation, this may take a little getting used to. 
Additionally, the large and legible graphic symbols that the 
cursor picks up from the menu become too small to be easily 
read when placed beside a note. 
Graphics 

Graphics characters for the notes themselves resemble 
square notation, but we do not feel this detracts from their 
readability (especially when compared with the legibility of 
many manuscripts). However, in drawing clusters of two 
or more notes, we encountered a peculiar graphics-related 
difficulty. This is a function of the position (up or down) 
of an existing note stem. You will find that a note for one 
voice can not be placed at a pitch immediately above or 
below an existing note if that pitch is occupied by the stem 
of the existing note. The stems for voices one and two go 
upward unless they are placed immediately below a note in 
another voice which has its stem going upward. The op- 
posite is true of voice-three notes. This means that while 
it is possible to represent any two-note cluster, the process 
can be more involved than would seem necessary. For in- 
stance, suppose you have already written a voice-one quarter 



note at middle c, and you want to write a voice-two note 
at d immediately above it. Finding that you cannot do this 
simply, you would have to do the following: Change voices, 
erase the c, change voices, draw the d (voice-two), change 
voices, redraw the c (stem down), and finally change back 
to voice-two to continue. A cluster of three notes with ad- 
jacent pitches cannot be written at all. These problems will 
be troublesome only in the event that the composer wants 
to write dissonant chords in the form of clusters. 

At the bottom of the display is a double row of squares; 
the upper row is used to specify volume for each note. There 
are eight levels of volume which allow a very smooth 
crescendo or diminuendo without abrupt transitions from 
one level to the next. Some other music editors do not allow 
this degree of versatility in dynamics. This default value for 
loudness is the maximum level of eight. If you want to ac- 
cent selected notes, say the first note of every measure, you 
must drop the volume of all other notes. A default loudness 
of six or seven might have been a little easier to use in this 
regard. 

The bottom row of squares is used to indicate the width 
of each note; this is very helpful in positioning them. It also 
allows one to create rests without using rest graphics by 
simply leaving a gap between one note and the next. Two 
adjacent notes of the same pitch are automatically tied. The 
only way to articulate them is to leave a gap in between. 
For instance, one might write a dotted quarter rather than 
a quarter note, and the resulting gap would then prevent 
a tie with the next note. 

At any point during the writing of a measure, you can 
play an individual voice or all voices. If you decide to make 
a change, this is easily accomplished by erasing an individual 
note or the entire voice. You cannot, however, insert or 
delete notes without making necessary adjustments to other 
notes in the measure. 

Repetition is easily handled by copying an individual voice 
or all voices from a previous measure, and this can save 
a great deal of time. A given voice cannot, however, be 
copied as another voice. So if you want to use the copy 
feature to write rounds, they have to be scored differently 
than they would be in traditional composition. Any two 
voices can be copied by copying all three and then erasing 
the one which is not wanted. 

When you are finished with a measure, you can either 
go on to the next measure or back to a menu which allows 
you to edit, play, save, or print your composition. If you 
choose to edit, you will be shown the number of measures 
completed and the percentage of file space used, and you 
will be given the option of changing the tempo. To play the 
composition, you specify which voices are to be played, and 
you are given the option of hearing the music transposed 
up or down by as many as eleven half steps (twelve half 
steps are an octave). If you transpose a note so that it falls 
below the Music Maker's range, it will not be played. You 
can interrupt the playing of a composition and view the 
graphic representation of the measure being played at that 
point, but graphics are not used when the piece is actually 
being played. 

There are a few features present in some music editors 
for other machines which are not present in Music Maker. 
For example, the only way to initiate repeats is by manual- 
ly pressing "SHIFT R" during the playing of a piece; no 
form of looping can be structured into a compostition. 
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Given the relatively vast storage space available (compared 
with music compositions written in TI BASIC), together 
with the copying feature, the lack of repeat capability is less 
significant than it might otherwise be. With 16K of RAM, 
you will be able to write about 900 notes for each of the 
three voices. For example, writing all sixteenth notes for 
three voices, the file could be 57 measures long; with all 
quarter notes, it could be 224 measures. Additionally, there 
is no capability to write phrases and then arrange them in 
different voices. This capability could be useful when 
employing the device of imitation, such as writing canons 
and fugues. Even so, the same effect can be achieved with 
Music Maker — it just takes a little more effort. 

In summary, despite the few shortcomings mentioned, 
the Traditional Mode provides a beautiful graphics-based 
editor which makes the process of writing music as enjoyable 
as listening to the finished product. Even if this were the 
extent of the Music Maker's capabilities, we feel it would 
be an excellent investment at the suggested retail price of 
$39.95. 

Sound Graphs 

While some knowledge of music theory is essential for 
effective use of the Traditional Mode, the Sound Graphs 
method may be used without any prior understanding of 
music terminology. As the name implies, music is entered 
in a Cartesian coordinate graph format. The frequency 
graph can have a resolution of one-hundred-twenty vertical 
positions (frequency) by twenty horizontal positions (dura- 
tion) per "measure." A Sound Graphs music file may con- 
tain up to 46 measures. A color-coded line is plotted on the 
graph with the cursor, and as in Traditional Mode, a dif- 
ferent color is used for each voice. 

The volume graph has a resolution of eight vertical posi- 
tions (volume) by twenty horizontal positions (duration), 
and appears below the frequency graph. A separate volume 
graph may be plotted for each voice appearing in the fre- 
quency graph (default is the highest volume). In addition 
to the three voices, a Sound Graph may also include a noise 
which is plotted on the volume graph. 

The user has the option of either IDiscrete or Continuous 
tones. Under the Discrete option, the vertical axis is divid- 



ed into thirty frequencies, consisting of C Major diatonic 
pitches from the second A below middle c to the third b 
above middle c. You can, however change any or all of these 
pitches with the List Tones option. Although any frequen- 
cy from 110 Hz to 20,000 Hz can be used, tables are pro- 
vided in TI's excellent documentation, giving the frequen- 
cies for chromatic, pentatonic, and gypsy scales. The fre- 
quencies can be changed at any time, even during or after 
the plotting of a Sound Graph. 

Under the Continuous option you specify the upper and 
lower limits of the frequency range. These can be changed 
as often as you wish. The frequency axis is divided into 120 
steps within this range, giving a frequency "slide" which 
sounds continuous and can be used to create sound effects 
such as whistles and sirens as well as interesting experimen- 
tal music sounds. When you take into consideration the fact 
that a noise can be used in addition to three voices and that 
the composition can be played as fast as twenty characters 
per second, the range of possibilities is quite extensive. 

In evaluating the noise, we were surprised to find that 
we could not distinguish any difference between the periodic 
and "white noise" groups — i.e., noises 1-4 and 5-8, respec- 
tively. Noise 1 appears to be the same as noise 5; noise 2 
the same as 6, and so on. If you are familiar with the dif- 
ference between periodic noise and white noise in TI BASIC, 
do not expect to find the same distinction in the Music 
Maker. 

Other aspects of using Sound Graphs are identical with 
the corresponding procedures used in Traditional Mode 
(namely editing, playing, saving, and printing). 

If you have no knowledge of music theory, using Sound 
Graphs is a great way to begin exploring the TI-99/4A's 
music capabilities. Even if you are familiar with music fun- 
damentals, you will be amazed at the versatility of the Sound 
Graphs method, and you will find that your TI-99/4A has 
potential you would not have thought possible. 

In conclusion, the Music Maker Command Cartridge will 
greatly enhance one of the already outstanding features of 
your computer — its capacity for sound and music. We 
believe it is an accessory you will not want to be without. 



220 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



7 

Computer Gaming 

Action-packed games to delight arcade fans and 
mind-stretciiing cliallenges for strategists. 

The Joys of Computer Gaming 223 

Antl-Aircraft Gun 226 

Battle At Sea 229 

Battle Star 234 

The Harried Housewife 237 

Force 1 243 

Dodge 'em 246 

space war 248 

Maze Race 253 

Tex-Thello 256 

San Francisco Tourist 260 

County Fair Derby 263 

sprite Chase 267 

Dogfight 269 

Interplanetary Rescue 272 

N"Vader 276 

Space Patrol 278 

Computer Chess: 

Part 1 280 

Part 2 281 

Part 3 282 

Part 4 284 

Part 5 285 




The 
JOY 

of 

CQiriPJTEH 



It's A Dirty Job, 
But Somebody's Gotta Do It . . . 



Over the last couple of months, I've had virtually no 
rest. First it was those pesky aliens: They hurled 
bombs, missiles, mines, and laser blasts at me 
around the clock. Some even tried to gobble me up on sight! 
No respect at all. . . These hordes of menacing foes must 
have come from nearly a dozen different hostile worlds. 
(Why is it I've never seen a "friendly" alien?) Each of these 
worlds evidently has its own individual concept of combat 
strategy, weapon design, ethics and morality because the 
modes and severity of attacks differed widely. One thing, 
however, that all these dastardly devils had in common was 
their quarry — me! 

Some of the attacking hordes were accompanied by a 
malevolent thumping as their precise marching formation 
advanced hypnotically toward my flimsy barricade. Others 
stayed stationary but hurled down torrents of lethal missiles 
that I had to alternately duck and target my lasers against. 
(My neighbors must have been really surprised when they 
noticed all that debris strewn across their yards. . .) What? 
Was I nervous? Not too — that is, not until I had to pilot 
all those strange land and space craft — everything from X- 
wing fighters to futuristic prairie schooners. Just when I'd 
feel comfortable at the controls of one, Ka-boom! — I'd be 
under vicious attack, or c-r-r-unch! — smack in the middle 
of a deadly asteroid belt. Nothing like huge chunks of space 
rocks whizzing around your head to keep you on your 
toes. . . 

But it didn't end with all those downright nasty aliens 
and slimy, vile space creatures. Oh no, not by a long shot. 
There were still the Empire forces to contend with. Here, 
however, the battles were more scattered and slower paced; 
I had time to launch torpedoes and probes, as well as assess 
casualty reports and plan long-term strategy. Just when 
everything was going so well, a Red Alert brought me back 
down to earth. It seems the Cold War was no longer so 
cold. . .and my country needed me to command a SAM 
(surface-to-air missile) site. With all that sophisticated 
RADAR equipment, it shouldn't have taken too long to 
finish "locking in" on the enemy missiles and blasting them 
to smithereens, but as fate would have it, another series of 
emergencies sent me packing — first to rescue a downed 



helicopter crew from shark-infested waters, and then on a 
hazardous journey to the moon and Mars, where I had to 
jockey my landing craft over some pretty rough terrain. 

You'd think by then I should have received a few words 
of thanks, wouldn't you? But no, the moment I landed on 
Mars, some terrorists decided to have a field day. . .and 
there I was right back in the thick of things — commanding 
a bomb squad. Now defusing a time bomb is no Sunday 
picnic! If my nerves could withstand that heart-thumping 
activity, you'd think I'd be in pretty good shape for a few 
more adventures yet to come. 

But nothing prepared me for what I was up against next. 
Certainly, no one told me when I took this job that hun- 
dreds of horrible deaths awaited just around the corner. All 
they talked about was the treasure and glory! But when I 
reached the edge of the high cliff, it was already too late 
to turn back: On my left, a hungry python slithered toward 
me; to the right, a quicksand bog surrounded by bleached 
bones awaited; and behind me, a large grizzly bear blocked 
my only path into the forest. 

Well, luckily I got out of that one with my skin, but one 
adventure led to another. . . And before I could take some 
well-earned rest, I somehow had gotten involved in a pirate 
treasure hunt, an escape from an ancient pyramid, the fer- 
reting out of an awesome secret on a savage island, saving 
a Count trapped by a fiendish curse, preventing a nuclear 
reactor from blowing its top, and alternately exploring a 
ghost town, mysterious fun house, ancient alien civilization, 
enchanted treasure world, and a dark kingdom populated 
by ores, dwarves, an old dungeon master, a beautiful 
princess in distress, and an evil ringwraith. 

Whew — I never thought that one mortal could get so 
tired. What I really needed was a chance to relax and un- 
wind. . . So, handing my ticket to adventure over to Indiana 
Jones, I planned on doing nothing but sitting back in my 
favorite easy chair and listening to some good music. But 
They had other plans for me. It was no use complaining; 
I'd heard the argument a hundred times before: "It comes 
with the territory. . ." For some reason or other I was need- 
ed to run up a bankroll by betting on the ponies, to lead 
a championship baseball team to victory, to bring back a 
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shiny bowling trophy, to don my skis to better the old slalom 
record, to outrace a suicide car, and then to take part in 
a grueling decathlon. 

After somehow getting through that long, long decathlon, 
I sat down to a nice big bowl of Wheaties and planned my 
R&R. Nothing too strenuous. . .nothing too mentally 
demanding. . .just some good clean fun. So off to the 
casinos for some baccarat, blackjack, craps, poker, and the 
slots. It was fun while it lasted, but They needed me back 
on the job again. 

I knew something really BIG must have been in the works 
because of the way my training for the forthcoming mis- 
sion was bemg carried out: plenty of practice with challeng- 
ing word games, concentration exercises and contortions 
with cantankerous colored cubes. They obviously wanted 
my wits sharp for the BIG assignment coming up. But before 
I'd find out what it was, there was an obstacle course to 
negotiate, and then the final test of my state of mental 
readiness — passage through a series of simply complex, com- 
plexly simple 3-D mazes. I almost didn't make it through 
that one. . . 

Now I was ready. The BIG assignment finally came in: 
Someone was needed to guide a dumb chicken safely across 
a 20-lane highway. . . What? Enough is enough! Tell *em 
I'm not here. Guide a chicken across a road like that? In- 
stant chicken salad— with me probably ending up being ac- 
cused of fowl play. . . Let 'em get somebody else for that 
one. I wouldn't do it now even if They awarded me the 
PuUet-ser Prize! 

Micro Motivation Comes Full Circle 

I've been sitting here now several hours thinking and 
wondering— thinking about those psychedelic-sounding 
escapades of mine, and wondering about the fantastic 
powers of imagination that we all must have — letting us see 
what we want or expect to see. In my case, it was easy 
because I had a partner— one who was, incidentally, a lot 
more patient than that dumb chicken I eventually got teamed 
up with. Who was this patient partner? Some gaunt guru? 
Or sinewy sorcerer? No, none of these. My partner in all 
this was a friendly Texan— a TI Home Computer equipped 
with the latest in games software. 

I have never really cared very much for games. And even 
when it became obvious that microcomputers were rapidly 
becoming the ultimate "games machines," I still felt that 
all the excitement of video games was just a passing fancy. 
It was my belief that the popularity of computer games was 
simply due to people just trying to find additional uses for 
machines that they bought primarily for other purposes. 
Now I know better. . . 



What we're now just starting to see happen is actually 
the reverse: This year, several million consumers will be con- 
sidering interactive video games — as opposed to passive TV 
watching — that they can play at home in the company of 
friends and family, instead of plunking their quarters down 
coin slots at crowded arcades or all-night grocery stores. 
When they start to shop around and compare prices and 
features, increasing numbers of them will start to find that 
the stand-alone, cartridge-based, dedicated games machines 
can be almost as much money as the new breed of lower- 
cost microcomputers. 

The handwriting is already on the wall: As the price of 
microcomputers falls even lower, many, many more con- 
sumers who were initially looking for video games machines 
will be able to justify the slightly higher cost of a full com- 
puter on the basis of potentially being able to do so much 
more than "just play games." Ironic, isn't it. . . 

A few years ago, the great topic of speculation and cause 
for disagreement in the microcomputer industry was how to 
best increase public awareness and acceptance of these miracle 
machines so that a mass market with its lofty goal of "a com- 
puter in every home" could be eventually realized. Everything 
from electronic mail and banking, to education, home 
management, and tax/financial record keeping was 
nominated as being a likely candidate for the magic catalyst. 
Sure, entertainment was mentioned, but it was usually lumped 
together somewhat amorphously with home management and 
education. Nowhere do I remember anyone coming out and 
stating that it would be computer gaming that would ultimate- 
ly be this catalyst and pave the way. 

The Seriousness of Playing Games 

But regardless of whether video games are a primary or 
secondary motivation for getting a microcomputer, it's rap- 
idly becoming obvious that electronic game playing isn't all 
just a game. Psychiatrists, psychologists, therapists and 
educators are discovering how video games can dramatically 
benefit their players. We hear reports of how the games are 
speeding eye-hand coordination, sharpening driving and math 
skills (since the intricate strategies and geometric patterns of 
many video games provide painless instruction in logic, 
trigonometry and physics), preventing youth from being 
stricken by technological "future shock," and providing an 
emotional rescue (by dissipating anger and frustration, assuag- 
ing loneliness and allowing both the recapture of lost athletic 
prowess as well as the prowess that never was). 

Application of video game playing as a form of therapy 
is definitely on the rise. We're now seeing this technique 
used in treating brain-damaged victims of strokes, accidents 
and senile dementia. The most impressive results, however, 
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have come from work with retarded or emotionally dis- 
turbed children. Here, video games often break through 
where other methods fail. Psychologists have credited this 
to the "mastery experience" that is now possible for children 
who formerly were not able to be good in anything else. 
Until their exposure to games, they have never had a refuge 
of accomplishment from which to deal with the outside 
world. Once children become good at something (and, as 
a result, proud of their achievements), their attitudes and 
performance in other activities also dramatically improve. 

The Hardware Sets the Stage 

As opposed to video games machines that are designed 
to be just "machines that play games," microcomputers are 
usually designed to perform many types of jobs, or handle 



certain types of work more efficiently. This architectural 
design determines the gaming environment that a particular 
computer will present to its users. Any limitations or con- 
straints will be very obvious. For example, if a computer 
was designed without color graphics capability, then the 
games software compatible with this particular machine 
could not utilize color. Likewise, sound effects, music, 3-D 
animation and synthetic speech are other game-enrichment 
capabilities that a microcomputer may or may not possess. 

A comparison of all presently available microcomputers 
yields the surprising conclusion that only the Texas In- 
struments TI-99/4A personal computer has all the above 
named capabilities and permits programmers to use them 
all in the same program. This represents an abundance of 
"raw materials" from which to construct games. When you 
combine this with TI's fast and powerful 16-bit 
microprocessor (TMS9900), it becomes apparent that these 
Texas Instruments personal computers offer one of the best 
gaming environments available. 

The separate Video Display Processor chip (TMS9918A) 
inside the TI-99/4A is a good example of TI implementing 
internally in hardware what other computers require pro- 
grammers to do in software (if indeed it can be done at all). 
This very sophisticated device gives the games programmer 
the ability to simply access and set in motion (independent- 
ly of the program logic) 32 smoothly moving colored'ob- 
jects called "sprites" — objects whose shapes can very easi- 
ly be defined, magnified, colored, given a 3-D overlapping 
appearance and checked for collisions. These are the 
modular components from which many more exciting 
arcade-type games will be constructed in the future. 
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ANTI-AIRCRAFT 

GUN 



Tl 
BASIC 




Despite the fact that action games programmed in a 
high-level language such as TI BASIC run much 
slower than in low-level languages such as 9900 
Assembly Language or GPL (the programming language 
of TPs Command Cartridges), it is indeed possible to create 
reasonably fast "real-time" games if you observe a few rules: 

1. Keep the number of moving objects to a minimum. 

2. Keep all unnecessary statements out of loops used to 
move objects. 

3. Use only one character to define objects you want to 
move quickly. 

4. Increment the positions by two spaces each loop. This 
makes the movement slightly jerky, but contributes greatly 
to the illusion of speed. 



I've followed these rules in writing And-Aircraft Gun. 
The basic idea of the game is simple: You must shoot down 
an attacking plane with your missile launcher before it blasts 
you twice with its laser. The plane attacks at random heights 
from both the left and right sides. Its speed and frequency 
of laser fire are dependent on the skill level you choose. Your 
missile launcher can move along the ground, and even hide 
behind a barrier; but when it fires a missile, it is committed 
to its last position until the missed shot passes off the screen. 
You'll have to move around as much as possible because 
the plane "remembers" your last position and there is higher 
probability it will fire the laser near that position. And don't 
expect too much protection from the barrier: After five laser 
blasts (or less, if you launch missiles through it), it will 
disintegrate and leave you exposed. 



EXPLANATION OF THE PROGRAM 
Anti-AJrcraft Gun 

Line Nos. 

100-670 Instructions. 

680-810 Sets up levels of difficulty. 

820-870 Sets up variables to make plane fire more as 

difficulty increases. 
880-1 1 10 Character definitions and color assignments. 
1120-1170 Initial displaying of tank. 
1180-1220 Displays ground. 
1230-1260 Calculates plane's height. 
1270-1380 Determines the direction of the plane. 
1390-1450 Reads keyboard, and branches to subroutines. 
1460-1530 Fires tank's rocket. 
1540-1610 Moves plane. 



1620-1650 Decides whether plane will fire or not. 

1660-1760 Fires plane's laser; checks for hits. 

1770-1780 Checks for a hit on the 

plane by the tank's rocket. 

1790-1890 Checks for plane at the edge of the screen. 

1900-2030 Determines new direction for the plane. 

2040-2090 If plane and tank hit simultaneously, the tank 

wins. 

2100-2180 Determines new direction for the plane. 

2190-2330 Calculates score. 

2340-2420 Prints score. 

2430-2460 Plane is destroyed by the tank. 

2470-2620 Calculates if a free game was won; starts over. 

2630-2750 Moves tank left. 

2760-2880 Moves tank right. 

2890 END. 
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BATTLE AT 



SEA 



<<T-^amn the torpedoes! Full speed ahead ..." Get 
I 1 ready, all you armchair admirals out there in 

-1-^99'er-land. You're about to do battle with the 
most crafty enemy of all— the Imperial TI Fleet. If you're 
old enough to remember those rainy Saturdays in the pre- 
TV age, you've probably spent many an hour with pencil 
and paper playing Battleship. In the intervening years. Bat- 
tleship has been dressed up as a consumer item in many 
forms: First it was "cardboardized," then "plasticized," 
and finally "electronicized." 

Well gang, as it happened, one rainy Saturday afternoon 
a few months ago, I had this mad urge to play Bat- 
tleship . . . The expensive electronic version looked really 
enticing in a local toy store display, but I sure wasn't going 
to spring for it—especially when I had my trusty TI-99/4 
personal computer waiting to carry out my every command. 
So program it I did. The result: Battleship has now been 
"99'erized" into a 16K TI BASIC version, which I call Battle 
at Sea. 

Two 10x10 grids are displayed on the screen along with 
the row and column designations. The computer will ask 
you to enter coordinates for the placement of each of your 
ships on the grid at the right. Each coordinate must be 
entered separately; for example, first A 5 and then A 6 are 
entered for the destroyer. Since the ships occupy different 
numbers of grid squares, I've put in a counter for each ship 
to indicate how many remaining squares must be entered. 

After all the coordinates for a ship have been entered, 
that ship will be displayed on the screen. Once all five ships 
are set up, the computer will secretly set up its own ships 
on the grid to the left. You won't be able to see the com- 
puter's ships, since the whole idea of the game is to try to 
find them. 



Once the computer has set up its ships, it will ask you 
for the coordinates of your shot at its grid (on the left). You 
must enter your shot as a row letter, then a column number. 
Valid coordinates are from A to J and from to 9. Any 
other entry will result in having to enter the coordinates 
again. Your hit or miss will be marked on the grid and 
displayed at the bottom of the screen as a MISS or **HIT**. 
The computer will then take a shot at your grid. It cannot 
see your ships, but it does keep track of where the hits and 
misses are. 

After a hit, any ship that has been sunk will be displayed 
at the bottom of the screen. The score is also updated at 
this time: one point for each ship sunk. The first player to 
sink all five ships will win the game. 

Because there are no moving objects in this game, speed 
was not the most important factor in the game design. The 
action happens to be fairly fast, but the critical factor was 
programming the computer to make intelligent decisions. 
With no limit on available memory, I might have been able 
to write a program with flawless logic. But here that wasn't 
the case— I had to stay within the confines of standard 16K 
TI BASIC. 

I started by giving the computer a set of rules and several 
variables to test for a given situation. First, if a ship has 
been hit only once, the computer will take random shots 
around that hit until the direction is determined. It will then 
continue in that direction until the ship either sinks, misses 
a shot, or runs up to the edge of the grid. It will then reverse 
and shoot at the other end if the ship was not sunk. 

And now it's you against the Imperial TI Fleet! 
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EXPLANATION OF THE PROGRAM 
Battle At Sea 

Line Nos. 

100-630 Initializaton: Set up variables, character defini- 
tion, and color assignments. 
640-870 Instruction page. 
880-1010 Display 10 x 10 grids. 

1020-1100 Control loop for setting up your shijjs on the 10 
X 10 grid. 

1 1 10-1360 Subroutines holding data on each ship. 
1370-1380 Branch to subroutine: computer sets up its 
ships. 

1390-1530 Display message for ship coordinates to be 
entered. 

1540-1710 Read keyboard; INPUT coordinates of ships. 
1720-1950 Put the coordinates in order 
1960-2050 Check that all coordinates are valid. 
2060-2220 Display ship on the 10 x 10 grid. 
2230-2380 Control loop holding data for computer to set 
up its ships. 

2390-2600 Subroutine to set up computer's ships at 
random. 

2610-2860 Set up variables for messages; subroutines for 



displaying those messages. 
2870-2910 Keep track of which turn it is. Branch to either 

user's shot, or computer's shot. 
2920-3170 computer takes random shot at your grid if no 

ships are hit. 

3180-3340 Read keyboard; INPUT user's shot a com- 
puter's grid. 

3350-3570 Check for valid INPUT, hit or miss. 
3580-3710 Check for direction of hits on your ships. 
3720-4150 Take random shot around last hit if only one 
hit on the ship. 

4160-4450 If more than one hit on a ship takes another hit 

in proper direction. 
4460-4620 Adjust varibales when computer gets a hit. 
4630-4770 Find out how many hits on each ship; used for 

both computer and user, 
4780-4980 Calculate score, and number of ships hit, but 

not sunk. 

4990-5020 Display any ships that have been destroyed after 

every hit. 
5030-5090 Display scores. 
5100-5190 End of game message. 
5200-5320 Re-initi^e variables for next game. 
5330-5340 END of game. 

5350-5460 Subroutine to make sure ships are in line. 



100 
110 
120 
130 

lao 

150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
RANDlOlMlI 



CALL 
CALL 
PRINT 
PRINT 



PRI 



PRINT 



NT 



OPT 
DIM 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



I|ON 
P 



SCREEN 
CLEAR 
TAB 



BATTLE 



ZE 



BASE 



10 

CIO LOR 

COLOR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 



10 



12 



101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

11 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 



AT 



BATTLE 



10 



SEA 



10 



AT 



SH 



7.1) 
11 

0O0eO0FF7F3F1F' ) 
eOOeOOFFFFFFFF ' ) 
3C7EFFrFFFFFFF • ) 
OO0e00FFFEFCF8 
1030707070707070 
7070707070707070 
787C7E7E7F7F7C78 
7070707070701010 
0O08O403FF7F3F ' ) 
8C4C3CFEFFFFFF' ) 
O1023CSFFFFFFF' ) 
OO02O4F8FFFEFE' ) 
1030727478787878 
7C7C70717A7C7C7C 
7F7F787C7C7C7A79 
7O78787C7C727110 
0O108867FF7F3F" ) 
09C5C3F3FFFFFF " ) 
O0O204F8FFFEFE ' ) 
103O727478797A7C 
797A7C7C7F7F787C 
7C7C7A79787C7C1A 
00OO0O3FFF7F3F' ) 
067EFEFFFFFFFF 
eOOOOOEOFCFFFE - ) 
1030787878787878 
787C7C7E7E7E7F7F 
7C7C787878703020 
03O30F1FFF7F3F 
0e6060FeFFFEFE 
10307O7078787E7F 
7C78787O707O7O1O 




SEA 



610 
620 
630 
640 



650 
660 

670 
680 
690 
700 
710 

720 

730 
740 

750 

760 

770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 



CALL 
CALL 
CALL 
CALL 
20 
PRINT 



PRI 



NT 
INT 
INT 
PRINT 
INT 



PRI 



COLUlMlN 
PRINT 



PR 



PRINT 



PR 



RIGHT 



PRI 
PRI 
PRI 
PRI 



PRI 



PR 



NT 



INT 



INT 



CALL 
CALL 
IF S 
CALL 
CALL 



FOR 

CALL 

CALL 

CALL 

CALL 

NEXT 

FOR 

CALL 

CALL 

NEXT 

SI $ 

S2$ 

S3$ 



NT 



INT 
INT 



INT 



NT 
INT 



CHAR 
CHAR 
CHAR 
SIOUND 
30 



NT 



TAB 



DESTROYS 



TO 
IMUST 
THE 



AFTER 



KEY 



YOU 



SHI 



ENTER 



EXAMPLE 



YOU 



ENEMY 



TO 
VCHAR 
HCHAR 
HCHAR 
VCHAR 

TO 
VCHAR 
VCHAR 
X 

CARRI 



CRUI 



ENTER 
SIOUND 



THEN 
SCREEN 
CLEAR 



28 
136 
144 



PAI 

ENElMlY 
THE 



TAKE 
THE 
YjOUR 
THE 



BATTLESHI 



PS 



WI 



SER 



3000 



MUST 



SET 



10 



OF 
GR 



ER 



ENTER 



BATTLE 



BEFlORE 
YOUR 



THE 



YOUR 



LL 



SH 



SHI 



860 



FF818181818181 



815E2C366A3C2442 
81667E3C3C7E6681 



UP 



ANY 



COMPUTER 



10 



A5 



COlORD 
I 



CPIMIPUTER 
SHOT 



COMPUTER 



220 



DESTROY 



TAKE 



PS 



COMPUTER 



PS 



X + 12 



YOUR 



COORDINATES 



ROW 



30 



X + 60 
128 
128 



GRI 



SHI 



KEY 



X + 60 



X + 42 



BY 



30 



AT 



THE 
SHI 



WI 



AT 



YOU 



10 
10 



PS 



NATES 



X + 42 



ON 



THEN 



ENTER 



TO 



COlMlPUTER 
PS 



SHI 



ARE 



SHOT 



LL 



SH 



554 

SEA 
THE 



YOUR 
CANNOT 



PS 



CANNOT 



PS 



BEGI 



YOU 



20 



THE 



THE 



ON 



THEN 



FF 



ENEMY 



YOU 
ON 



SET 



AT 



NG 



SHI 



SEE 



104 



UP 



THE 



ONE 



THE 



PS 
E • 
SEE 
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1050 
1060 
1070 
1080 

1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 

1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 



OS 



S4$ 
S5$ 
FOR 
ON 


GOSUB 
GOTlO 
PRS 
LE 



OS 
RETURN 
PRS 
LE 



OS 
RETURN 
PRS|=S3S 
LE 

3 

0S = 16 
RETURN 
PRS 
LE 



RETURN 
PRS = 



LE 



OS 



28 

RETURN 
NEXT 
CALL 

cbTo 

LEN 
SUSS 



SI 



S2S 



S4S 



22 



FOR 

SU1 S 

CALL 

NEXT 

PRS 

CALL 

FOR 

SU1 

CALL 

NEXT 

FOR 

CALL 

CALL 

CALL 



ST 
K1 
El 
GlOTlO 
CALL 
GOTO 
CALL 
CALL 

ST 
CALL 
ST 



GOTO 
CALL 
GOTO 
CALL 



SUBMAR 



DESTROYER 



TO 

IGIOISUB 

390 
1360 



S5S 



^CHAR 
2240 
PRS 



ENTER 
SPIACES 



K2<48 
K2>57 



NEXT 

gIosub 

SH 
X2|=1 
GOTlO 
X2 



SEGS 
VCIHAR 
X 

PRS& 
HCHAR 
TO 
SEIGS 
VCHAR 
X 

Tb 

HClHlAR 
VCHAR 
KEY 



KEY 



TO 



65 
74 
1610 

SOUND 
1540 
VCHAR 
KEY 





THEN 



710 

SlOUND 
1640 
VCHAR 
X, 
X, 
K1 
64 



5370 
1 



1820 



NE 



5 

1110 



22 



LEN 
SUSS 



THEN 
THEN 



THEN 
K2 



PRS 



22 



SPACE 



23 

LEN 



100 



( 
( 

THEN 
THEN 
THEN 



ROW 



20 
21 
ST 
1540 
590 
1590 



100 



23 



1160 



SUSS 
X 



X + 2 



32 

PRS 



X + 2 



K1 



23 
ST 
1620 
ST ) 
1640 
1690 
1690 



SH 



32 



COL 



24 



47 



) 

ASC 



30 



ASC 



64 



K2 



1210 



FOR 



X + 49 



SU1 S 



SU1 



THEN 



1260 



&STRS 



THEN 



1590 



131 



1810 



LE 



1820 
1830 
1840 
1850 
1860 

1870 
1880 
1890 
900 
1910 
1920 
1930 
1940 
1950 



1960 
1970 
1980 
1990 

2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 

2170 
2180 

2190 
2200 
2210 

2220 

2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 



FOR 
F = 
FOR 

F 

F 

910 

SW 
SH 
SH 



NEXT 
F 

NEXT 
FOR 



SH 



F 

980 

NEXT 
GOTO 
FOR 
F 

020 

NEXT 
GOTO 
CALL 
FOR 



SH 



NEXT 
GOTO 
X 

FOR 



OSA 
GOTO 
OSA 
SH 



CALL 
+ 17 
GOTO 
CALL 
+ 17 
NEXT 
I 

CALL 



CALL 



X2 



XI 



XI 
SH 
SH 



GOTO 



X 

XI 
ON 
FOR 
I 

NEXT 
FOR 



X3=1 TO LE 



XI 



97 + 



99 + 



RETURN 
LE 
S 

GjOSUB 
LE 
S 

GOSUB 
LE 
S 

GOSUB 
LE 
S 

GlOSUB 
LE 



XI 
X1+1 



XI 



X3 



2070 



TO 



X 

2070 

SOUND 
TlO 

,X 

X 

1460 



2140 



X>1 



VCHAR 



X>1 



GOSUB 
GOTO 
RANDOMI 



X2 



NT 



NT 



NT 



XI 



THEN 



XI 
THEN 



TO 



XI 



HCHAR 



HCHAR 

LE 
HCHAR 
LE 



2480 

RND 



TO 



TO 



95+X1+OS+ 
2190 



95 + X1I+IOS + 
XI 



2400 

2400 

2400 

2400 

2400 
2630 

ZE 



RND 



RND 
IGIOTO 
TO 



XI 



X2 



LE 
1 ) 



THEN 



LE 



X2 



1940 



LE 



LE 



SH 



RND 



THEN 



RND 



TO 



<> 



oSH 



SH 



SH 



SH 



SH 



X3 


<SH 

I S 
SWI 



SH 



SH 



SH 



2180 



10 
49 

X + LE 



2490 



XI 
LE 



2230 



( 

lOSA 



OSA 



)+1 



+ 1 



X + LE 



THEN 



X1+1 



2460 

LE 
+ 1 



THEN 



XI 



X + 1 



X + 1 



THEN 



XI 



OSA 



)+1 



LE 
2560 



1910 
X1 + 1 



,2 

)+|4 
•OSA 

+ 4 

) 



)+4 
)+4 



)+1 



X2 



2190 

THEN 



2400 



X2 



THEN 



THEN 



THEN 



SH 



SH 



2130 

XI 
XI 

2 
2 



)+1 
)+1 
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2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 

2740 
2750 
2760 
2770 

2780 
2790 
2800 
2810 

2820 
2830 
2840 

2850 
2860 
2870 

2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 

3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 



NEXT 
RETURN 
FOR 
F 

NEXT 
FOR 
0( X 
NEXT 
RETURN 



MIS 
M2$ 
M3$ 
M4$ 
M5$ 
k|6$ 
7$ 
8$ 



GOTO 
FOR 
CALL 

) 

NEXT 
RETURN 
FOR 
CALL 

) 

NEXT 
RETURN 



FOR 

CALL 

1 ) ) ) 

NEXT 

FOR 

CALL 



NEXT 

FOR 

CALL 



NEXT 





GpTO 
T = 1 
CALL 
CALL 
GlOSUB 
I 



RANDOMI 



HI 



XI 
P 
P 

CALL 
CALL 
P 

GlOSUB 
GOTO 



CALL 
X 

CAL L 

CALL 

CALL 

FOR 

CALL 



CALL 
CALL 
GOSUB 
CALL 



NEXT 
RETURN 



K1 



W>0 



NT 



X + 10 



MY SHIOT 
YOUR SHOT 
SCORE 
COMPUTER 
USER 
YOU 
Mil 
I 

2800 

TlO 
HCHAR 



TO 
HCHAR 



IMI 
SSED 



TO 
HCHAR 



TO 
HCHAR 



TO 
HCHAR 



THEN 

3200 

HCHAR 
HCHAR 
2720 
THEN 



NT 



XI 



ST = 
K1<65 



10 



ZE 



10 



HCHAR 
HCHAR 
XI 
3120 
2900 



HCHAR 



SOUND 
HCHAR 
VCHIAR 
TO 
VCHAR 



HCHAR 
HCHAR 
2760 
KEY 



74 



XI 



SSED 



RND 
RND 



THEN 
THEN 
THEN 



X1 + LE 
THEN 

X1 + LE 



18 



19 



>0 



7 
23 

200 
23 

xl+4 
8 
23 



18, 
19. 



2930 



3650 



+ 1 



K1 



+ 1 



THEN 
THEN 



V + 4 



V + 4 



X + 22 



X + 15 



X + 26 



2400 



THEN 



3230 
3230 
3230 



X1+17 
12+Y 



ASC 



ASC 



ASC 



ASC 



ASC 



12 



H-l-64 
Hl|+47 
4480 

32 

) 

32 



2980 
2980 



SEGS 



SEG$ 



144 



ASC 



12 



SEGS 



SEGS 



SEGS 



SEGS 



(MIS 



M2S 



M3S 



(H4S 



(M5S 



M7S 



,V 



C A L L 
C A L L 



IF 

C A L L 



I 

IIF 
IF 

C A L L 



3570 
3580 
3590 
36001 
3610 
3620 
3630 



K3 
S4 

IF 

CALL 
ICALL 
OTO 
JI F 
C A L L 
6 

C A L L 

ClA L L 
SF = 
P( K3 
C A L L 
FOR 
C A L L 
2 

InIext 

TO 
ICIA L L 
C A L L 



3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
34201 

3430 

3440 
3450 
3460 
3470 
3480 
3490 

3500 
3510 
3520 
3530 
3 540 |0I( 
3550 FOR 
3560| IclALL 
) 

INIEXT 

|c|a l l 

TO 
|C|H=1 
HOTO 
ICH 
ON 
10 
IF 
IF 
IF 
IF 
IF 
IF 
|l F 
2 



ST 



ST 
K2 

K2>57 



3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
387 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3 970 
3980 
3990 
4000 



IF 
|I F 
IF 
IF 
IF 
IF 
JLI 
ON 
X2 
ON 
X2 
X3 



K3 



VCHAR 



KEY 



KEY 



VCHAR 
64 
47 



K3 



X2 



48 



SOUND 
HCHAR 
3200 



K3 



SF 

DS 
H 
P 

^>1 
H 
P 

W>1 
W 



:W1 

IGIOTO 



X2 
X3 
G 
X3 
ON 
X3 
X2 

GOTIO 
X3 
1X2 
IF 
IF 
IF 
IF 



X2 



HI 
P 
W|>1 
H1 
P 

Wl>1 
NT 

LI 
NT 

X2 



T|0 
INT 
X3 



SOUND 



SOUND 



VCHAR 



HCHAR 



HCHAR 

) 

X2 
4620 

SOUND 
HCHAR 
K4 



VCHAR 

) 

X2 
VCHAR 
2900 

4670 



SF 
10 



H + 1 



3580 
10 



RND 
GOTO 

RND 
GOTO 



H + X2 
H+X2<1 



H1+X3 
H1+X3<1 



3970 



3970 



3970 



(22 
, KE 
THEN 
. X2 
THEN 
THEN 
THEN 
(22 



K4 



K4 



K1 

ST 
3280 
ST 
3300 
3300 
3300 
K2 



)<6 
(50 
(22 

)=0 
(2 00 

(400 



( k|3 + 4 

) 



(23 



TO 7 



GOSUB 1110 



LE- 
THEN 



H1 



RND 
GIOTO 



TO 10 
(23 



THEN 



(23 



(2 00 
(23 



( K3-t-4 



HI ) <>7 
THEN 4280 
THEN 3740 

H1 )<> 
THEN 4280 



T HEN 
H1 + l|)|<>7 
4080 



3800 



THEN 
1 )<>7 
THEN 4080 
*2 )+1 



10 



3 820 

*|2 ) +1 
3 8 40 



THEN 
110 
32 

THEN 
220 



110 



32 
13 + X2 



32 



13 + X2 



3690 



*2) 



39 2 



THEN 
TIHEN 



10 



+ 1 



THEN 
IT H E N 



K4 + 5 



S4 + 5 



1160 

THEN 



THEN 
ELSE 

THEN 
ELSE 



3780 



THEN 
ELSE 



THEN 
ELSE 

3900 

3870 



3950 



3800 
3800 



3800 
3800 



3410 

) 



3520 



32 



32 



ASC 



330 
220 



136 



ASC 



144 



1210 



3800 



3680 
4080 

3740 
4080 



3770 
4280 

3800 
4280 



SEGS 



440 
330 



(M8S 



SEGS 



(M6S 



1260 



13 
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4920 
4030 
4040 
4050 
4060 
4070 
4080 
4030 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 

4530 
4540 

4550 

4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 



XI 



I 

GtOlSUB 

gIoto 

H 
H + 1 



XI 



p 

GlOSUB 
H 

GOITO 



P 
P 

X1=H1 
P 

GOjSUB 
H + 1 
GlOlTO 



X1 



HI 
P 

GlOSUB 
H1=H1 
GOTO 



H + X2 
H + X2 
H + X2 
HI +1X3 



HI 



XI 



HI 



H1 
FOR 



HI 

HI +11 



GOSUB 
H1=H1|+1 



GOTO 
CALL 
CALL 
GOSUB 
FOR 
CALL 
1 ) ) ) 
NEXT 
CALL 
2 

CALL 
8. 
SF 
CALL 
ClALL 
X 



DS 
NEXT 
FOR 
FOR 



CH 



F 
F 
F 
F 
F 
DS 

g|o|t|o 

F 
F 
F 



XI 
3120 
2900 
10 



XI 
3120 

2900 

THEN 

HI 
HI 



XI 
3120 



2900 



2900 



HI 



XI 



X2 



,H1 
.HI 



XI 
3120 



XI 



X2 



THEN 



XI 



) 

3120 



X2 



2900 

VCHAR 
HCHAR 
2720 
TO 
HCHAR 



SOUND 

sbuND 

XI 
VCHAR 
VCHAR 



H1+X3 
H1+X3 



>0 



THEN 



4780 
X2 



THEN 



TO 



TO 
TO 
THEN 
THEN 
X3 
X3 
X3 



X3 



THEN 



4180 

THEN 
THEN 



THEN 



4090 

THEN 
THEN 



THEN 



4 + X 
23 

LEN 
23 



200 
300 



4380 

TlHEN 
THEN 



THEN 



4280 

THEN 
THEN 



THEN 



17 + X1 



32 

(|M{8$ 
14 + Z 



220 



110 



DS 



10 

4690 
4740 

THElN 
THEN 
THEN 



THEN 
THEN 
THEN 



THEN 
THEN 



4480 



4080 
4180 



4480 



4180 
4080 



4480 



32 



ASC 



X + 64) 
X1+47 



X2 



4280 
4 380 



4480 



4380 
4280 



4480 



36 



330 
220 



4780 
4780 



4780 



4780 
4780 
4780 



3800 
3800 



SEG$ 



X3 



)+1 



M8$ 

440 
330 



4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 

4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 

5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 

5150 
5160 

5170 
5180 
5190 
5200 
5 210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5430 



ON 
10 

F 

F 

W=|W1+|1 
GOTO 
SCORE 
I 

GlOSUB 
GOTO 
GOSUB 
NEXT 



F 

|W|1 



DS 
NEXT 
NEXT 
CH 

W| 

SCORE 
FOR 



dOTO 
W1 
GOTO 
SCP 
CALL 
FOR 
CALL 



HCHAR 
DESTROYED 



PR 



GOTO 



NPUT 
NGS 

n|g$ 

CALL 



Z4 
Z4 



NEXT 
I 

CALL 



CALL 
I 



RETURN 



GOSUB 



4940 

SCOjRE + l 



THEN 
5010 
4940 

5000 
Z4 
THEN 



X3 



X3 



VCHAR 



SCORE 



HCHAR 



SCORE 
RETURN 



NT 



INT 

NT 
NT 



GOTjO 
FOR 
FOR 
P ( L 
( L 
NEXT 
NEXT 
FOR 

fIor 

I 



NEXT 
NEXT 
GOTO 
CALL 
STOP 
NNN 
AAA 
FbR 

F 

F 



NNN 
GOTiO 
AAA 
NEXT 
RETURlN 
END 



2900 

2900 

SCORE 
HCHAR 



L 

LIN 

LI 

LI 



L1 
LI 
LI 
L 

880 

CLEAR 



X 
NNIN 
SH 
AA|A 

s|h 

1 



X3 



THEN 



TO 



THEN 



THE 
5150 

yIou 

I 



ENTER 



NIGS 
N 
Y 



SOUND 
5150 



5470 



) ) = 



LE 



TO 



TO 



TO 



TO 



20 

THEN 



20 

THEN 



COMPUTER 



JUST 
YOU 



TO 



TO 



DS 



3620 



5 

1110 

THEN 
THEN 



4930 



4980 



(23 
LEN 



5090 



THEN 
THEN 
200 

10 
10 



LE 
TlHEN 
1 

THEN 



X3 + 6 



20 



27 



SH 



X2 



1160 

4940 
4890 



32 

PRS 



SCORE+48 
5120 



SCORE+48 



5140 



GOT 



SH 



5350 
5220 



110 



SH 



5430 

S 



2020 



ASC 



X3 



32 



1210 



+ 10 



LUCKY 



X|+1 
X + 1 



SEGS 



WINS 



PLAY 
NOT 



)+1 



1260 



A6AI 



THI 



PR$& 



AGAIN 
ENTER 



THEN 
) THEIN 



5460 



2020 



IM 
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Battle 




You are the chief security officer in charge of defend- 
ing the Earth's newest Battle Star from alien attack. 
At first, the aliens are few— trying only to probe your 
weak points. Later, they attack in force from all four direc- 
tions. It's their somewhat ancient nuclear missiles against 
your laser battery. One hit by a missile, however, and the 
entire Battle Star is obliterated. The speed at which you can 
react and move your fingers is the only thing that stands 
between victory and total destruction . . . 

To fire a laser in any one of four directions, press any 
of the arrow keys. These are the only keys used. You may 
not move your Battle Star because of your geosynchronous 
orbit and large size. The entire game is an hand-eye coor- 
dination exercise. At one point in the game, the aliens 
become so fast you may not be able to move fast enough 
to prevent annihilation. There is, however, an "automatic 
speed check" put into the program; if you can reach this 
level and maintain it, the endurance of your fingers will be 
your only limiting factor. If you wish to make the game 
even more difficult, you could adjust the limiting speed of 
the missiles. This is done in lines 730, 760, 790, and 820. 
The X and Y velocity in the sprite being defined (whichever 
X or Y is not zero) can be adjusted. For example, in line 
730 the X velocity formula is 11 -(L/10). This will allow 
no speed greater than 10. Change this to 15 -(L/10) and 
the maximum speed will be 14, with the initial speed being 
5. If one line is changed, related lines must all be changed. 



The Program 

The program is very short and simple — requiring only 3K 
memory and Extended BASIC. There is plenty of room for 
a good programmer to experiment and try adding to or im- 
proving the features. The action is simple, but can become 
fairly rapid— thus making the game very challenging. A Bat- 
tle Star is positioned at the center of the screen, and made 
up of 9 sprites (3x3). I did this for dramatic reasons: When 
the Battle Star is hit, each section of it blows up and flies 
in a different direction. An alien ship will appear to the left, 
right, above, and below the Battle Star. At first, only the 
ship will be displayed; later, the ship and a nuclear missile 
will appear. For every missile knocked out of action, your 
score will increase by 20 points. For every alien ship 
destroyed, you will receive 50 points. The trickiest part of 
the program was to make the laser rays coming from the 
Battle Star stop after encountering a missile. Since the missile 
is a sprite, its location is checked using the CALL POSI- 
TION statement. Then, calculating the distance from the 
Battle Star's cannon and dividing by 9 gives me the distance 
(in number of characters) of the missile. I then use a CALL 
HCHAR, or CALL VCHAR (first with the ray bolt) and 
a CHR$(32) which represents a space. Finally, I delete the 
given sprite. The result is a fast laser bolt and increased pro- 
gram speed. 

One problem I encountered when the missiles were travel- 
ing at high speed was that they sometimes passed 
through the base without a hit being detected. This problem 
was alleviated by checking POSITION instead of COINC, 
so that if the position was past the edge of the Battle Star, 
the missile would blow up. 
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EXPLANATION OF THE PROGRAM 





Battle Star 


Line Nos. 




170-290 


Initializes colors and characters. 


300 


Initializes variables. 


310 


Jumps to subroutine to create Battle Star. 


320-340 


Main nroeram loon 


350-380 


Sets up sprites to create the Battle Star. 


390-440 


Reads keyboard; branches to fire laser cannon. 


450-490 


Fires laser up. 


500-540 


Fires laser left. 


550-590 


Fires laser down. 


600-640 


Fires laser right. 


650-690 


Checks position of missiles, and branches off if 




Battle Star hit. 



700 Checks the chance of another ship appearing. 

710 Decides which ship will appear, and branches to 

subroutine. 

720-740 Places top ship on screen with missile if game 
progressed. 

750-770 Places left ship on screen with missile if game 
progressed. 

780-800 Places bottom ship on screen with missile if 

game progressed. 
810-830 Places right ship on screen with missile if game 

progressed. 

840-870 Battle Star is hit and destroyed. 

880-910 Displays score. Play again? Accepts answer. 

920-940 Re-initializes variables. 

950 End. 



100 
110 
120 
30 
140 
150 
160 
170 
180 
190 

200 

210 

220 



230 
240 

250 

260 

270 

280 

290 

300 

310 
320 
330 
340 
350 

360 

370 



380 
390 

400 
410 
420 
430 
440 
450 



REM 
REM 
REM 
REM 
REM 
REM 
REM 

RANDIOIMI 
DI 

CALL 



CALL 
CALL 

cIall 

CALL 
CALL 



CALL 
CALL 



CALL 



CALL 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



FOR 
16 



DI 



100 

SB2 
GlOSUB 
GOSUB 



CALL 
11 



29 

CALL 



14 
129 



CALL 
#17 



CALL 
CHAR 
CHAR 



CIALL 
CALL 



129 

RETORIN 



CALL 
RN 
1 
I 
I 
I 

RETURN 
I 



-10 



BATTLE 



ClOLpR ( 
CALL 



^HAR 
CHAR 

CHAR 
CHAR 

CHAR 



CHA 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 



CHAR 



COL 



SPLAY 



97 



104 




SA1 
16 



ZE 



CHAR 
CHlAR 



CHAR 



SA3 
350 
390 



SPR 
1 



SPR 





SPR 



103 




KEY 

69 
83 
88 
68 



105 

CALL 



CALL 



96 



98 

{ 

104 



107 
103 



CHAR 
TIO 
NEXT 



AT 



112 
113 
114 
115 
116 



105 



TE 



THEN 
THEN 
THEN 
THEN 



SCREEN 



0000000000070707 

1818183C7EFFDB99 
OOOOOOOeOOEOEOEO 
07OE1CFFFF1COEO7 
18423C99993C4218 
101 , ' E07038FFFF3870E0 



100 



SB3 



AND 
10 



STAR 



CLEAR 



24 



102 



106 



10 
121 

#1 
121 



16 



97 



VCHAR 
RETURN 



104628240A92S044 
9 9|DBFF7E3|c 181818 

EOEOEO 
30787C477C7830 " ) 
1010386CEEEE7C 
0C1E3EE23E1E0C 
007CEEEE6C381010 
101038FE381010 
00001 83CFF7E2442 
1818181818181818 



12 

COL 



SA4 

gIosIub 

L<1 



121 



450 
500 
550 
600 



SBI 



SC 



96 



99 



102 



= 



CALL 

) 



070707 



OOOOOOFFFF 



CALL 



S64 



CALL 
.16 



THEN 
SC 



650 



16 



THEN 



89 
#15 



32 



COLOR 



SOUND 



COLOR 



SA1 



GlOTO 
11 



98 

11 
101 



CALL 



10 



11 
100 



THEN 



16 



10 



10 



COL 



SBI 



320 




81 



89 



16 



RETU 



VCHAR 
800 

SC 



SA 



460 

470 
480 

490 
500 

510 

520 
530 

540 
550 

560 

570 
580 

590 
600 

610 

620 
630 



CALL 

SA1 
CALL 
THEN 



PI 



CALL 
B1 



105 
5 



12 



CALL 



CALL 
THEN 



P2 



106 
5 

) 

CALL 
B2 



PI 



P2 



SBI 



NT 





SA2 



10 

SB2 



14 



SC 



SA3 
16 

io 

SB3 
10 ) 

CIALL 

50 

CALL 



105 



CALL 
B3 



12 



SC 



50 

CALL 



AND 





CALL 



VCHAR 


PlOS 
840 
PI 



D E L S P R 



106 

CALL 



SA2 
POS 



NT 
15 



SA4 
18 

io 

SB4 

3 

CALL 



PI 



) : 



CALL 
HCHAR 



840 



DELSPR 



105 

CALL 



PlOS 
PI 



NT 
PI 



AND 



PlOS 
P8 



RETURN 



HCHAR 
RETURN 



P2 



CAL 



THEN 
SOUND 



AND 
14 



I ON 



+ 1 

) 

CALL 



16 

RETURN 



THEN 



CAL 



RETURN 
AND 



SB3 

10 

VCHAR 
RETURN 



THEN 
CALL 



VCHAR 
SA3 



DELSPR 



SA4 



CALL 
HCHAR 



P2 

) 

CALL 



I ON 



SlOUND 
12 



+ 1 



TE 





HON 



RETURN 

AND 
06 
L 



THEN 



CALL 
500 



#1 



CALL 
VCHAR 



TE 



SB2 



RETURN 
PI 



SlOUND 
14 



)+1 
CALL 



I Ion 

THEN 



CALL 



THEN 



TE 



HCHAR 
RETURN 



32 



CALL 



CAL 
HCIHIAR 



RETURN 
PI . P2 
840 
CALL 



CAL 



VCHAR 



SB4 



SlOUND 
2 



CALL 
HCHAR 



PI 



CALL 



CALL 



CALL 



VCHAR 
110 

) : 

P2 



SOUND 



THEN 



500 
32 



HCHAR 
110 



CAL 



THEN 
CIALL 



840 

CALL 



SlOUND 
12 



RETURN 
P2 



SIOlUND 
12 



500 
32 



CALL 



SOUND 



32 



SC 



VCHlAR 
110 



500 
32 



SC 
THEN 



VCHAR 



CALL 



14 



HCHAR 
200 



SjOUND 
32 



10 



SlOUND 
14 



18 

HCHAR 



HCHAR 



18 



P2 



SC + 20 



CALL 



110 

1 



200 



200 



16 



SC + 20 



32 



VCHAR 
200 



CALL 
SlOUND 



32 



16 
5 

SCl+5 



32 



10 



32 



32 



SC + 20 



P1 

PI 
110 
10 



HCHAR 
800 

SC 

106 

) 

SCl+5 
86 



105 

) 



P2 



10 



16 



SC 



10 



18 



SC 



10 



VCHlAR 
00 
SC 



105 

2) : 
SC + 



P1 



14 
110 
PI 



HCHAR 
800 



SC 
106 



SC + 

P8<1 4 

18 
10 
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640 

650 

660 

670 

680 

690 

700 

710 

720 
730 



740 
750 
760 



770 
780 
790 



CALL 
B4 
F 



ELSE 



ELSE 



ELSE 



I 



ELSE 



I F 
>0 
NS 
RN 
NS 
760 
I 



I 



I 

CALL 
F 

# 

B3 



) OR 



CALL 
L<80 
116 



1 
1 

RETURN 



CALL 
L<80 



SB1 



SB2 



SB3 



SB4 



P1>76 



116 

R E T U RIn 



NT 



NT 
790 



SA1 



SA2 



SA3 
L H 
L<80 
116 



DELSPR 



CALL 



CALL 



CALL 



CALL 



P8<142 



RND 



RND 



HCHAR 
AND 



HCHAR 
AND 
88 



HCHAR 
AND 



RETURN 
THEN 



POS 
THEN 

POS 
THEN 

POS 
THEN 

POS 



OR 



17 



820 

AND 



AND 



175 



I TE ( »4) 



SB1 



AND 
12 



SB2 
17 



P4>86 
AND 

) 



)+1 



120 



23 

SB3h 



PI 



P3 



TION 



P5 



TION 



SB1 
16 



SB2 
3 



SB3 
16 



120 



I ON 



I ON 



11 



P2 



P4 



P6 



P8 



OR 



P8>0 



115 



THEN 
L 



112 
THEN 
11 





#1 

12 
= 
IS 



14 



113 

THEN 
11 + ( 



SC = SC|+20 



P8 
P5<110 
THEN 



NS>10 
ON NS 
THEN 



THEN 

) 



THEN 



10 



CALL 
L/10 



CALL 



GOTiO 
P2 

GOTIO 
P4 
GOTIO 



P6 

iGOTiO 



SA1 



CjALL 
10 



RETURN 
SA2 



) 

AND 
840 



THEN 
GOTO 



RETURN 



SPR 



SPR 



RETURlN 
SA3 = 



660 
670 
680 
690 



PS 
RETU 



TE 
SB2 



SPRITE 

) 



730 



TE 
SB1 



800 

810 
820 



830 
840 



850 



860 

870 
880 

890 
900 

910 

920 

930 

940 
950 



RETURN 



I 

CALL 
F 

»4 



RETURN 



CALL 



FOR 



B 

CALL 



SOUND 



INT 
CALL 



DI 



LAY 



SB1 



SA4 
L H 
L<80 
116 



CALL 



CALL 



CALL 



ACCEPT 



RETURN 
END 



IHCHAR 
AND 



DELSPRITE 



BUB 



SPLAY 



10 



SPLAY 



100 



P8 = 



SOUND 



AGA 



SB2 




110 



2000 

10 

RND 
PATTERN 



CALL 
DELSPRI 



SC 



DELSPR 



AT 
IN? 



AT 

ANSS 
CLEAR 



AND 



88 



AT 



SB3 



12 



SB4 



1000 



23 



216 



12 



22 



SB4 
30 



TE 



TE 



SB4 



18 



Y/N 



«1 



2 

IBUB 

110 



SOUND 



ALL 



ALL 



VAL 



THEN 
IGIOSUB 



114 



THEN 



PI 



f 2 
220 



NT 



THEN 



11 + 



CALL 



107 



DO 



YOUR 



I DATE 



P2 



RND 



350 



CALL 



YOU 



950 



220 
40000 



PS 



RETURN 
1 



SA4 



«4 
1000 



M|OT 
40 



CALL 



10 



WI 



YN 



P4 



SPR 



CLEAR 
SCIORE 



SO 

I Ion 

)|-20 



SH 



SC 



CALL 



NEXT 

110 
30 



P5 



TE 
SB 



»B 



BU 



TO 



ANSS 



P6 



236 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 




HOUSEWIFE 



This matching game is dedicated to tired housewives 
everywhere who face the daily battle of iteeping their 
houses clean amidst the unrelenting attacks from their 
kids, husbands, dogs, cats, visiting relatives, unexpected 
friends, and even home computers — those new family ad- 
ditions that seem to be forever spawning dust, out-of-place 
furniture, and loose papers. 

Harried Housewife uses the color graphics of TI BASIC 
to depict eight household chores: dusting, sewing, washing 
clothes, doing dishes, cooking, vacuuming, shopping, and 
ironing. It is a matching game that even young children will 
enjoy playing. The rules are simple: An array of 16 squares 
is displayed on the screen. Each square represents one of 
the eight chores, and there are two of each chore somewhere 
in the array. The object of the game is to find each pair. 
You do this by choosing two squares at a time and entering 
the corresponding two letters. As a letter is entered, the chore 
for that square is shown. If a match is made, the chore is 
considered finished and is listed on the right side of the 
screen. If a match is not made, the two selections are 
covered, and two more letters may be chosen. 

When all eight pairs are matched, the housework is com- 
plete; you have a clean house and the game is over. But you 
mustn't take too long, because when the kids come home 
(determined by the counter in line 1420) everything gets 
scrambled and the harried housewife must start 
over. . . And as all harried housewives undoubtedly know: 
It's not easy to get a completely clean house. Often the goal 
has to become somewhat more attainable — just seeing how 
much can be accomplished before the kids come home. 



If you get too harried and want to quit, press S for stop. 
The arrangement of the current array will be displayed. 
After you have examined it, SHIFT C (BREAK) to end the 
program. If you really feel you must win more often — that 
is, end up with everything matched to signify that elusive 
"clean house" — you can keep the kids out of the house 
longer by increasing the number in line 1420. Then enjoy 
the fantasy of a completely clean house all the time. What? 
Why can't your home computer make this fantasy actually 
come true? Be patient. It's just a matter of time. . . 
Anyway, in the words of a once-popular song: "Such are 
the dreams of the everyday housewife. . ." 

Programming Techniques 

This program illustrates the capabilities of TI-99/4A color 
graphics. Characters are defined in each of the eight user- 
defined character sets, and each set has a different color 
scheme. These eight sets are used for the eight chores; and 
for ease in programming, they are numbered 1 through 8. 

Two characters in Set 2 are also redefined with a blue 
foreground and a red background ("FFFFFFFFFFFFFFF 
F" and "0") to draw the 16-square checkerboard array. It 
is drawn with a triple-nested FOR-NEXT loop (statements 
2040-2150). 

The eight chores to be drawn are called in subroutines 
(statements 2290 to 3060). The subroutines use x- and y- 
coordinates to define the placement of the special characters. 
The coordinates are specified before the subroutine is called. 
The coordinates of the chores for each of the sixteen squares 
are listed in subroutines also (statements 5350-5980). 
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To set up the array of 16 squares, two arrays are actually 
used: WORK(16) and HH(16). The WORK array is given 
the numbers of the eight chores: WORK(l)=l; 
WORK(2) = 2; . . . W0RK(9) = 1; WORK(10) = 2; and so 
on (statements 3370-3400). For the HH array, a subscript 
RR is chosen as a random number from 1 to 16. HH(RR) 
is then set equal to WORK(RR), and then WORK(RR) = 
so it won't be chosen again. This process continues until 
all 16 numbers of the HH array have been filled randomly 
with the numbers from the WORK array (statements 
3410-3470). These numbers are the chore numbers for the 



squares. For example, HH(4) = 7 means that behind the 4th 
square (D) would be chore number 7 (shopping). 

The WORK array is then reset equal to the HH array 
so the chores can be printed in order on the squares for a 
"clean house" or for "stop". 

As the game is being played, the HH elements are set 
equal to zero if a match is made, so the match can only 
be scored once. If a player chooses a square which has 
previously been part of a matched pair, the word "DONE" 
appears across the square. 



EXPLANATION OF THE PROGRAM 
Harried Housewife 



Line Nos. 
150-180 
190-260 
270-820 

830 

840-850 
860 

870-880 

890-900 

910-920 

930 

940 

950 

960-1010 

1020-1130 

1140-1160 

1170-1200 

1210 

1220-1230 
1240-1260 
1270 

1280-1330 

1340-1350 

1360-1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470-1520 
1530-1550 

1560 



1570-1620 
1630 

1640-1750 
1760-1770 



Prints title screen. 

Defines colors for eight household chores. 
Defines special characters for drawing the 
chores. 

Displays the eight chores on title screen. 

Sets counters for the number of trial guesses 

and the number of successful matches. 

Dimensions arrays to handle 16 elements. 

Redefines characters for checkerboard. 

Delays for title screen. 

Clears screen and makes it yellow. 

Defines colors for checkerboard. 

Draws checkerboard and labels it. 

Assigns the chores for each square in array. 

Prints HOUSEWORK. 

Prints MATCH 2 LETTERS. 

Prints two red lines for the letters chosen. 

Waits for letter A-P to be pressed. 

Prints the chosen letter. 

Finds chore number and coordinates for square 
chosen. 

If the square has been previously matched, 
prints DONE. 

Draws first chore on square. 

Waits for second letter to be pressed and prints 

it. 

Finds the chore number and coordinates for 
that square. 
Prints DONE. 

Draws second chore on square. 

Checks for a match. 

Increments the number of trials. 

If T1ME= 10 prints message to hurry. 

If TIME= 12, kids come home. 

Branches if TIME is less than 10. 

Clears previous message. 

Prints OH NO! KIDS ARE HOME! 

Reprints checkerboard and scrambles chores for 

a new game. 

Prints PRESS ENTER TO CONTINUE and 
waits for response, covers squares for next 
choice. 

Prints SPEED-KIDS WILL BE HOME SOON! 
Same as 1540 

Correct match is made, sounds tone of A, 
prints finished chore. 

Sets elements matched to zero so they can't be 
scored again. 



1780 Returns for next choice. 

1790-1840 If all eight matches have been made, prints 

CLEAN HOUSE!! 
1850 Prints S if player wants to stop. 

1860 Resets HH array to current arrangement. 

1870-1910 Shows all chores in array. 
1920-1980 Clears all other printing. 
1990-2040 Prints HOUSEWORK NEVER ENDS. 
2050 Holds screen until SHIFT C (BREAK) is 

pressed. 

Subroutines: 

2060-2170 Prints checkerboard. 
2180-2230 Prints letters A to P on squares. 
2240-2300 Prints S = STOP and returns. 
2310-2410 Draws feather duster. 
2420-2490 Draws sewing machine. 
2500-2600 Draws T-shirt for washing. 
2620-2690 Draws cup and saucer for dishes. 
2700-2780 Draws pan for cooking. 
2790-2880 Draws vacuum cleaner. 
2890-2980 Draws shopping basket. 
2990-3080 Draws ironing board. 
3090-3300 Places symbols on title screen. 
3310-3380 Plays music for title screen. 
3390-3420 Puts two sets of chore numbers in WORK 
array. 

3430-3490 Randomly arranges chores in HH array, two of 
each chore. 

3500-3520 Resets WORK array equal to HH array. 
3530 Restarts number of matches. 

3540-3580 Clears printed list of matches made. 
3590-3620 Resets HH array to original WORK array for 
printing. 

3630-4490 When a match is made, blinks the picture and 
prints the chore in the "Finished" list; prints 
labels under pictures in the squares. 

4500-4570 Prints PRESS ENTER TO CONTINUE and 
waits for response. 

4580-4590 Clears messages. 

4600-4630 Covers squares again and relabels them. 

4640 Return for next choice. 

4650-5280 Subroutines for covering particular square. 

5290-5320 Colors blue square. 

5330-5360 Colors red square. 

5370-6000 Designates the chore number and coordinates 
for the square chosen. 
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100 
110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 



REM 
REM 
REM 
REM 
REM 
CALL 

priInt 

PR I 

PRINT 

CALL 

CAL L 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 
CALL 

CALL 

CALL 

CALL 
CALL 

CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 
T I HE 
MATCH 
DIM 
CALL 
CALL 



CLEAR 



TAB 



HARR 



TAB 



HH 





(1 
CHAR 
CHAR 



10 



COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
3090 



ED 



44 



HOUSEWI 



HARR 



9 

10 
11 
12 
13 
14 
5 
16 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
112 
11 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
128 
129 
130 
131 
132 
33 
36 
137 
38 
139 
140 
141 
142 
144 
145 
146 
147 
148 
149 
152 
153 
154 
155 
156 
157 
158 
59 



, WlORK 
43 



15 



0000040EBEBEFFFF 
000O000020E0COC 
0201010703010101 
FFFFFFFFFFFFFFFF 
F0E0COF0F1 E080C 
03070E1C3870E0C 



FF0EO3 



FFFFFFFFFFFFFFFF 
FCFCFCFFFFFFFFFF 
FCFCF8F8F0E0C- ) 
FFFFFFFFFCFCFCFC 
FFFFFFFFFF 



) 

000000000F0F0F0F 
O000000081C3FFFF 
00000000F0F0F0F0 



0F0F 



FFFFFFFFFFFFFFFF 
F0F 

FFFFFFFF 



HOUSEWI 



12 



16 



00000000000C0FOF 



00000O0000C0C0FC 
0FOF0F0F0F0F0F07 
FFFFFFFFFFFFFFFF 
FEC6C6C6DCF8E08 
FFFF 

1F1F1F1F1F1F1F1F 
FFFFFCFCFCFCFCFC 
FFFF 



1F1F0F 
FCFCF8 



F0F0100O0000303 
80C0C0C0C0F0F8F8 
0303030303030101 
F8FOF0F0FOF0E0E 
E0C7CF7FFFFFFF 
0080C0C0F0F0E 



ED 



FE 



FE 



FFFFFFFFFFFFFFFF 

) 




00000000040C1A19 
090F09090F0909OF 
FE252424FF2424FF 
00E09E92FE9292FE 
06090906 


000000001F1F1F1F 
000O0000F0FFFFFF 
0000000O00F0FEFE 
1F1F1F040201 
FFFFE2040810A04 
090A0C0808 
A119070101 




16 



890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 



240 
1250 
1260 
12 70 

1280 
290 

1300 
310 

1320 
330 

1340 

1350 



360 
1370 
1380 
1390 
1400 

1410 
1420 
1430 
440 
1450 
1460 
1470 

1480 
1490 
1500 
510 
1520 
1 
1 



530 
540 
1550 
560 
1570 



1580 



CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 
GOSUB 
DATA 
RESTjORE 
Y 



FOR 
READ 
CALL 
NEXT 
DATA 
RESTlORE 



FOR 
READ 
CALL 
NEXT 
DATA 
RESTORE 



FOR 
READ 
CALL 
NEXT 
CALL 
CALL 
CALL 
CALL 



F 
F 
F 

CALL 
SS 
ON 



El 
5530 



70 

F 

GOSUB 
GOTO 
ON CH 
2700 
CALL 
F 



F 

CALL 
SS 
ON 



79 



KEY 
83 
<65 
K1>80 



5810 

CH 



70 

F 

GlOSUB 
GOTO 



I F 
ION 
2700 



CH 
IIME 



I F 
T 

I F 
I F 
GOTIO 
CALL 
DATA 



GOTO 
DATA 



83 



SOUND ( 
SOUND ( 
CLEAR 
SCREEN 
COLOR 



GR 

HClHlAR 
Y 

77 



2060 
3390 



72 



4450 
1280 



2790 
KEY 
83 



65 
80 

K1 
HCHAR 



E2 
5530 



5810 

CH 



79 
83 , 32 

restIore 

FOR 
READ 
CALL 
NEXT 
GOSUB 
GbsUB 
I ME 



RESTORE 



77 



23 



23 



GR 

HCHAR 
Y 

76 



23 



GR 
HCHAR 
Y 

COLOR 
HCHAR 
HCHAR 



HCHAR 



<> 
4450 



1420 



2790 



T 

IIHIE 



IME 



83 
32 



79 
960 

TO 



65 



1020 

TO 



69 

1080 



4225 



12 



85 



TO 



THEN 
THEN 
THEN 



64 ) GOSUB 



5570 
5850 



<> 



) GOSUB 



64 ) GOSUB 



5570 
5850 



) = 



) GOSUB 



) = 



llM]E + 1 
10 



4500 

HCHAR 



TP 

GR 

hIchar 

2060 
3390 



4500 



69 



CH 



72 
65 



80 
87 



12 



84 



29 

Y 

84 
29 

Y 
7 



K1 



1470 



32 
1570 



31 



2890 
K2 

TlHEN 
THEN 
THEN 
THEN 



83 



5610 
5890 

THEN 



27 



5610 
. 589 
THEN 



THEN 



2890 
2 



THEN 
THEN 



82 



7 3 



69 , 



GR 



67 



GR 



2310 
2990 

ST 

1850 

1280 
280 

1280 



83 



44000 
30 



84 



GR 
1 



ST 
1850 
1170 



69 



69 
76 



5370 
5650 



5930 
1270 



K2 



5370 
5650 



5930 
1400 



1420 



2310 
2990 

THEN 



79 



32 



32 



GR 



76 



69 



72 



69 



1570 
1460 



79 



68 



2420 



79 



30 



87 



32 



82 



5410 
5690 



31 



72 



32 



5410 
5690 



2420 
1640 



33 



59 



78 



79 



50 



83 



5970 



2500 



32 
79 



66 



32 



82 



5970 



2500 



5450 
5730 



77 



33 



69 



75 



5450 
5730 



75 



75 



2610 



73 
69 



73 
3 2 



549 
57 



549 
57 



2610 



68 
33 



68 
72 
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FOR 
READ 
CALL 
NEXT 
[GOTO 
CALL 

ATCH 
I F 



DATA 70 
RESTORE 



FOR 
READ 
CALL 
NEXT 



X 
Y 

ON 
4050 



HH 
HH 
I F 
DATA 



RESTIORE 
Y 



FOR 
READ 
CALL 
NEXT 
CALL 
GOSUB 



FOR 
SS 

Ion 

5570 



1 

ON 



MATCH+9 



2 6 

CH 



MATCH08 



69 



2700 

[NEXT 
CALL 
CALL 
I F 
FOR 
CALL 
NEXT 
GOTO 

Idata 

78 



69 

RESTIORE 
Y 



FOR 
READ 
CALL 
NEXT 
CALL 
CALL 
CALL 
CALL 
CALL 
ICALL 



MATCH0I 



GR 
HCHAR 



T|0 

GR 

HCHAR 
Y 

4500 

SOUND 
MATCHh-l 



) GpSUB 
4130 



67 



33 



TO 
HCHAR 



GR 



HCHAR 
3590 



GOSUB 



5850 



CH 



SS 

2790 

HCHAR 
HCHAR 
|M]ATCH<>8 
TO 
HCHAR 



FOR 
READ 
CALL 
NEXT 
GOTb 
FOR 
FOR 
FOR 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
NEXT 
NEXT 
NEXT 
DATA 
4,8 
18,9 
RESTIORE 



GR 

HCHlAR 



19 



CC 



23 



73 



1670 

TO 



76 
33 



1790 



X 

2050 



72 



2050 



18 



5610 
89 

GOSUB 



86 
1 

TjO 



TO 
TO 
TO 
SlOUND 
HCHAR 
HCHAR 
SOUND 
HCHAR 
HCHAR 
Y 
X 



HCHAR 
CC 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



TO 



5890 



79 



1990 



1000 

E 

73 



7 8 



11 



4270 




69 



16 



5370 



85 
69 



14 
2180 



2890 



THEN 



31 



THEN 



65 



GR 



440 



GR 



3630 
4360 



1730 



83 



STEP 
GR 



25 



5650 



5930 
2310 



THEN 



23 



82 



11 
Z + 4 
12 
100 

X 
X 



100 

X + 5 
X + 5 



18 



83 



Y + 5 



19 



83 



5410 
5690 



2990 



32 



32 



GR 



STEP 



STEP 
1047 
5 
44 



43 



523 



Y + 5 



14 



CC 



1420 



78 



1990 



69, 
,69 



3720 



72 



5970 



32 



31 



44 



87 



69 



72 



5450 
5730 



2420 



,78 



3800 



79 



,68 



13 



68 



79 



5490 
5770 



2500 , 



82 



19 



58 



3890 



85 



75 
83 



2610 



18 



553 
58 



83 



32 



33 



2300 

2 310 

2320! 

23301 

2340 

2350 

2360 

23 70 

2380 

2390 

2400 

2 410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2 5 50 

2560 

2570 

2580| 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2 720 

2730 

2740 

2750 

2760 

2 770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850| 

2860 

2870 

2880 

2890 

2900| 

2910 

2 920 

2930 

2940 

2950 

2960| 

2 97 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

30 70 

3080 



RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



CALL 
CALL 
IGOSUB 
RETURN 
CALL 
CALL 
CALL 
ICALL 
CALL 
CALL 
CALL 
CALL 
IGOSUB 
RETURN 
CALL 
CALL 
CALL 
CALL 
CALL 
ICALL 
CALL 
CALL 

Igosub 

RETURN 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
3670 

HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
3760 

HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
3840 

HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
4000 



HCHAR 



HCHAR 



96 
1 



Y + 1 



103 
97 



98 



99 



X + 1 
X + 1 
X + 1 



Y|+1 
Y- 



100 



101 



102 



Y + 1 



103 



104 



109 

Y + 1 



105 



Y + 1 



106 
107 



X + 1 



X- 
X- 
X-' 
X 
X 
X 



108 



112 



Y + 1 

1.1 
116 



114 



115 

) 



Y + 1 



117 



X + 1 
X + 1 
X + 1 



1 

Y + 1 



119 
119 



118 



120 



121 



Y + 1 
1,1 
124 



22 



123 



Y + 1 



125 



X + 1 



126 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
4090 

HCHAR 
VCHAR 
HCHAR 
HCHAR 
HCHAR 



rl-1 

Y- 



X + 1 



Y + 1 
29 



133 
33 



Y + 1 



X + 1 
X + 1 



30 

131 
32 



f-1 
Y + 1 



X + 1 



HCHAR 
4230 

HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
4310 

HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
VCHAR 
4400 



X + 1 
X + 1 



X- 
X- 

x+1 

X 



136 
142 
142 



137 
38 



139 



Y + 1 



140 
141 



Y- 
Y 



149 



144 
2 



Y 
1 

146 



149 



145 



Y + 1 



147 



X + 1 
X + 1 



X 
X 
X- 
X 
X 

x + 1 



Y- 
Y + 1 



148 
148 



152 
53 



Y + 1 



154 



155 



156 



X|+1 
X 



Y + 1 



157 
158 
59 
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3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3 350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

37 50 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 



X = 

Y = 

IGOSUB 
X = 

Y = 
OSUB 

27 
OSUB 

|x= 
Iy= 

OSlUB 

x= 

lY 

GlOSUB 



IGIOSUB 
16 



17 



lOSUB 
15 



X 
Y 

|x 

Y 

GOSUB 
CALL 
CALL 
CALL 
CALL 
CALL 
ICALL 
CALL 
RETURN 
FOR 

ORK 

ORK 
NEXT 
jRAND|OlM]I 
FOR 
RR 



FOR 
CALL 
NEXT 
!CALL 
RETURN 

Ifor 

HH 



R 

NEXT 
RETURIN 



INT ( 
{WORK 



F 

IHH 

ORK 
NEXT 
FOR 

ORK 
NEXT 
ATCH 
X 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 



CALL 
CALL 
CALL 
CALL 
ICALL 
CALL 
CALL 
RETURN 



2310 

2420 
2500 

2610 

2700 
2790 

2890 

2990 

SbUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 



Z + 8 



TO 

IWlORK 



COLOR 
COLOR 



COLOR 
COLOR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



11 



HCHAR 
X 

HCHAR 



WORK 



COLOR 
COLOR 
COLOR 
COLOR 



PCHAR 
HCHAR 
HCHAR 



COLOR 
COLOR 
COLOR 
COLOR 
HCHAR 
HCHAR 
HCHAR 



TO 



RR 



300 
200 
200 
300 
200 
200 
1000 



16 

RND 

) 

RR 



16 



TO 



24 



18 



23 



7 

X|+2 
X + 2 
X + 2 
X + 2 

10 
10 
10 
10 

X + 2 
X + 2 
X + 2 

11 
1 
1 
1 

X|+2 
X + 2 
X + 2 



THEN 



494 
440 
392 
440 
392 
370 



392 



15 



15 



7 
5 
7 
15 

Y 
Y 
Y|+1 
Y + 2 



Y + 1 



Y + 1 



196 



185 



3450 



85 



165 



83 



87 



3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 



4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 



CALL 



RETURN 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAL 



RETURN 



CALL 
CALL 
CALL 
CALL 
RETURN 



CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAL 
RETURN 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAL 
CALL 
RETURN 
CALL 



CALL 
CALL 



CALL 
CALL 
CALL 
CAL 
CAL 
CAL 



L 
L 
L 

CALL 
CAL 



82 
85 



RESTlORE 
FOR 



READ 
CALL 
NEXT 
CALL 



CALL 
CALL 
ON 
, 
50 



RETURN 



CALL 
CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 



RETURN 



CALL 
CALL 
CALL 
CALL 
RETURN 
DATA 



HCHAR 



COLOR 
COLOR 
COLOR 
COLOR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



HCHAR 
HCHAR 
HCHAR 
HCHAR 



COLOR 
COLOR 
COLOR 
COLOR 
HCHAR 
HCHAR 
HCHAR 



COLOR 



COLOR 
COLOR 
COLOR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



69 



K1 
4810 
5090 



32 



80 



HCHAR 



GR 
H 
Y 
KEY 



KEYol 



HCHAR 
HCHAR 
HCHAR 



COLOR 
COLOR 
COLOR 
COLOR 



HCHAR 
HCHAR 
HCHAR 
HCHAR 



COLOR 
COLOR 
COLOR 
COLOR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



HCHAR 
HCHAR 



HCHAR 
HCHAR 



32 



HCHAR 
HCHAR 



84 



64 



82 



4850 
5130 



4500 
TO 



X + 2 

12 
12 
12 
12 

X + 2 
X + 2 
X + 2 
X + 2 
X + 2 
X + 2 



X + 2 
X + 2 
X + 2 
X + 2 



13 
13 

X + 2 
X + 2 
X + 2 

4 
14 
14 

4 

X + 2 
X + 2 
X + 2 
X + 2 
X + 2 



X + 2 
X + 2 
X + 2 



5 
5 
5 
5 

X + 2 
X + 2 
X + 2 
X + 2 

16 
16 
16 
16 

X + 2 
X + 2 
X + 2 
X + 2 



79 



69 



26 



23 



KEY 
THEN 
24 

23 

)I6|0SUB 



12 



Y + 2 
16 



Y + 1 

Y + 2 



Y + 2 



Y + 1 

Y + 2 



32 



4890 



51 



16 



12 



83 



73 



79 



Y + 1 



Y + 1 

Y + 2 



Y + 1 

Y + 2 



79 



GR 
ST ) 



70 



65 



16 



67 



72 



67 



75 



72 



83 



4560 
32 
32 



4650 
4930 



86 



67 



79 



5210 



32 



78 



4690 
4970 



69 



5250 



84 



78 



84 
73 



69 



78 



4730 
5010 



477 
50 
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CALL 



ON 



X 



4810 
5090 



FOR 



K2 



50 

CALL 

IgIotIo 

3 
4 

IGOSUB 
RETURN 
= 3 
9 

(GIOSUB 
RETURN 
= 3 

:14 

iGjOSUB 
RETURN 
3 

19 

;g|osub 

RETURN 
= 8 

:4 

(GlOSUB 
RETURN 
8 
9 

IGIOSUB 
RETURN 
IX 

14 

IGIOSUB 
RETURN 
IX 

19 

IGIOSUB 



RETURN 
1 
4 

iGlOSUB 
RETURN 
13 
9 

IGjOSUB 
RETURN 
13 
14 
OSUB 
RETURN 
13 
19 
IGIOSUB 
RETURN 
18 
4 

|G|0 S U B 
RETURN 
18 
9 

IGIOSUB 
RETURN 
18 
14 
SUB 
RETURN 
18 
19 
IGIOSUB 
RETURN 



HCHAR 



xx = 



64 

4850 



HCHAR 
1150 



5290 



5330 



5290 



5330 



5330 



5290 



5330 



5130 

X 



5290 



5290 



5330 



5290 



5330 



5330 



5290 



5330 



GIOSUB 
4890 



5170 
K2 



5290 



X- 



K1 
4650 



4930 
5210 



T|0 



X + 2 



4690 
4970 



5250 



4730 
5010 



477 
50 



5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 



CALL 
NEXT 



RETURN 
XX 



FOR 
CALL 



NEXT 
RETURN 
CH( SS 
X 
Y 

RETURN 
CH ( SS 
X 
Y 

RETURN 



SS 



CH 
X 
Y 

RETURN 



CH 
X = 
Y = 
RETURN 



Y 

RETURN 



CH 



CH 



CH 



RETURN 
CH ( SS 
X 

14 

RETURN 



SS 



SS 



SS 



HCHAR 
XX 



HCHAR 
XX 



SS 



19 

RETURN 



SS 
13 



RETURN 



( SS 
13 



Y = 
RETURN 



14 

RETURN 



19 

RETURN 



CH 



RETURN 



CH 



CH 



CH 



SS 
13 



SS 
18 



( SS 
18 



RETURN 



( SS 
18 



14 

RETURN 



RETURN 



SS 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



HH 



XX 



10 



11 



12 



14 



15 



16 



X + 2 
1 



43,4 



44 , 4 
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You are the Captain of the Force 1 , a United Federa- 
tion of Planets police cruiser. A message has just 
come in that a large number of alien bandits have 
entered your sector and are planning an attack on your home 
planet. The bandits cannot be taken alive and therefore must 
be destroyed. The job won't be easy, so you'd better stay 
alert. 

Since the bandits are armed with short-range laser can- 
nons, they should be encountered when beyond their firing 
range. As you become a better pilot, you may choose to 
increase your ship's speed with higher levels of difficulty. 
This means that the alien craft will be approached much 
more rapidly, and more accuracy on your part is needed. 

On first sighting, your radar screen will show the alien 
to be no larger than the background stars, and very dif- 
ficult to pick out among them. As you approach the ship, 
it will become larger and larger, until the alien is either in 
range to fire its laser cannon, or slightly out of range flying 
right past you. 

To maneuver your ship in order to set your gun sights 
on the alien bandit, you must use the four arrow keys. If 
you hold a key down continually, your ship will keep ac- 
celerating in that direction. This will, of course, cause the 
star field and the alien ship to move more in the opposite 
direction. For example, if the alien ship were moving off 
to the right of the screen and you wanted to bring him back 
into the center, you would hold the D key down until the 
alien started moving toward the center. Then to halt all 
movement by the alien and keep him from going to the left 
of the screen, press the S key until the alien either stops or 
slows down to a minimum speed. The idea is to slow his 
horizontal and vertical speed to a minimum and position 
him in the center of your gun sight. To fire your laser blaster, 
press ENTER. Getting the alien in your gun sight may not 
be as easy as it sounds, for the alien is intelligent and 
periodically shifts course like all skillful space bandits. So 
just when you think you have him, he's off in another 
direction . . . 



You have 1000 units of time to complete your mission 
before the strike on your planet. If 25 or more bandit ships 
are destroyed, you will gain an extra 1000 units of time to 
attack the second wave of aliens. 

The Program 

The program is written in Extended BASIC. I decided 
here to make use of the MAGNIFY commands to create 
a series of space ships that start off very small and gradual- 
ly become larger. This gives a more realistic view of an ob- 
ject coming closer. I gave the ship a random speed — slow 
at first when it's at a great distance, and accelerating as it 
gets closer. I also gave the ship the ability to change direc- 
tions randomly 10 percent of the time. The ability to use 
sprites for both the ship and the star field made it possible 
to create the illusion of actual motion — not just changing 
the alien's direction in reference to yours, but also with 
respect to every star in the star field. For example, take the 
case of the alien ship traveling to the right of the screen and 
all of the stars not moving. If you press the D key until the 
alien stops moving, all of the stars will now be moving to 
the left, and the alien will be still. This works the same way 
vertically. 

By using the COINCidence statement and the tolerance 
option, I was able to make it more difficult to hit a ship 
at a greater distance (where it needs to be a direct hit) than 
to hit one that is nearby. There is however a slight time delay 
from the time you press the [ENTER] key until the laser 
fires. This makes it almost impossible to hit a moving target. 
So the challenge will be to get the alien in your gun sights 
and hold him there long enough to make a successful strike. 

The laser bolts that you fire at the alien are there all of 
the time, but kept invisible. I then use the CALL COLOR 
statement twice — once to turn on the bolts, and once to turn 
them back off. 

If the alien ship is still in your gun sight when it reaches 
maximum size, you will be within range of his laser cannon 
and be fired upon. WARNING: Laser cannons never miss 
at short range! 
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EXPLANATION OF THE PROGRAM 
Force 1 

Line Nos. 

130-210 Display levels of difficulty; accept answer. 
220-460 Assign variables, color, and characters. 
470-560 Read keyboard, branch to subroutine, or adjust 
variables. 

570-610 Adjust distance to alien; branch to display new 
alien ship. 

620-630 Randomly change motion of alien ship. 
640-650 Change motion of stars. 
660-670 Display score, time; check for out of time (time 
= 1000). 

680-830 Display laser beams on screen. 



840-860 Assign alien space craft to a new location. 
870-880 Fire laser, check for. hit. 
890-910 Alien destroyed. Adjust score, re-initialize 
variables. 

920-1060 Subroutine when hit by alien; branch for bonus, 
or branch to end-of-game messages. 

1070-1180 End-of-game messages. 

1190-1210 Check to play again. 

1220-1250 Change alien shape. 

1260-1270 Check for alien to fire back. 

1280-1340 Alien is at maximum size and moves off screen 
faster. 

1350-1420 Alien fires and hits your ship; sound effects. 
1430-1520 Display star pattern. 
1530-1630 Display title page. 



100 
110 
120 
130 
140 
150 

160 



170 

180 

190 
200 

210 

220 

230 

240 

250 

260 
270 

280 

290 
300 

310 

320 

330 

340 

350 
360 

370 

380 
390 



400 



410 



REM 
REM 
REM 
CALL 



I 

LAY 



I 

ACCEPT 



SPLAY 
PT 
LI 

RANDIOMII 



FOR 



) 

Clou 



I 

SPLAY 
AT 



FOR 



HAR 



SPLAY 
SPLAY 



SPLAY 



( 

SPLAY 



25 



CALL 

CALL 
CALL 

CALL 
CALL 

CALL 
CALL 

CALL 
CALL 
CALL 

CALL 
CALL 

CALL 
CALL 
CALL 



ClALL 

16 
CALL 



CALL 



GOSUB 
CALL 



CALL 
HAR 



CALL 

CHAR 
CALL 
CALL 



CALL 



HAR 

CHAR 
CALL 



CALL 



18 

CALL 



CLEAR 



NEXT 



21 



THEN 
CHAR ( 

CHAR 
CHAR 

CHAR 
CHAR 

CHAR 
CHAR 

CHAR 
COLOR 
CHAR 

CHAR 
CHAR 

CHAR 
COLOR 
VCHAR 

97 
HCHAR 



13 



0101010101010101 



CALL 



CALL 



ClOL 
) 



105 



108 



FORCE 



AT 



ZE 



CHAR 



360 

CHAR 



00000010 



CHAR 



O0001C3E 



CHAR 
111 
CHAR 
CHAR 



) 

CHAR 



119 

CHAR 



CHAR 



AT 



99 



VCHAR 
33 
VCHAR 



(2 
4 

6 

I 

9 
10 
11 



CO 



88 



92 



94 



96 



98 



10 

NEXT 



000O183C 



CHAR 



CHAR 



00000080000080 



LI 



93 



97 



12 



104 



107 



110 



112 
113 



120 



122 



16 



10 



CALL 



117 



121 



GOSUB 



0102040810204080 

8040201008040201 
03070E1C3870E0C0 

C0E07O381COE00703 
070F1F3E7CF8F0E0 

E0FOF87C3E1F0FO7 
0306001830600080 

0060301800060301 



0101010101010101 



CALL 



004020 



VAL 



COL 
GOTlO 



DI 



FF 



16 



00 



FORCE 
LEVEL 



NOV 
NTERMlEDI ATE 



CALL 



SEM 
PRO 
DATE 



CLEAR 



S = 



00000030 



OO0e3C7E18 



0O187EFF3C42 



00001 E7FFF3F40 



eO000O008OEOF0FO 



VCHAR 



34 



450 



1530 



BEGINNER 



11000 



CALL 



3F204e 



COLOR 



) 

CALL 



DIGI 



CALL 



CALL 



10 , 



000000061 F7FFFFF 



00O00O0001O73FFF 

FF1F13306040 
00O00O0080E0FCFF 



PRO 



SCREEN 



) 

CALL 



CALL 



CALL 
CALL 



DI 



CALL 



CALL 



16 



COLOR 



FF 



CO 



CHAR 



CALL 
CHAR 

CALL 
CHAR 



CHAR 
CHAR 



DI 



CUL 



16 



VCHAR 
HCHAR 



VCHAR 
34 



SO 



34 



COL 



CALL 



CALL 
CALL 



10 



10 



420 
430 
440 
450 
460 

470 
480 
490 
500 



510 
520 
530 
540 
550 

560 

570 

580 
590 
600 
610 
620 
630 
640 

650 
660 

670 

680 
690 
CHRS 
700 

710 

720 

730 

740 

750 

760 

770 

780 

790 
800 



CALL 
CALL 
RETURN 
CALL 
GOSUB 



UB 



CALL 
CALL 



5 
D 

) 

GOTO 



CALL 



I F 
FOR 
SA 
CALL 

iImIe 

70 

DI 



GOSUB 



DI 
DI 
D2 

D2< 



CALL 
DI 



93 



CHRS 



DI 
HR$ 



SPLAY 



SPLAY 



840 

KEY 



NT 



570 

D<9 



D1+DEV 



SP 



SPLAY 
I ME 



SPLAY 



SPLAY 



SPLAY 



SPLAY 



SPLAY 



CHAR 
CHAR 



ClOLOR 
690 



POS 



ELSE 
69 



SM 



3 

RND 



127 



127 
1 



MOT 



SIOUND 
T 



I ME + 1 



ClHRS 

n 

( 



SPLAY 



SPLAY 



91 



SPLAY 
91 
SPLAY 



SPLAY 



SPLAY 



LAY 



AT 



T 

THEN 



RND 



THEN 



SA>127 



DI 



THEN 
1230 



128 



28 

ION 
THEN 
TO 



91 



AT 



THEN 
SA< 
THEN 
SB>127 



THEN 
SB< 



CHARSET 



GOSUB 



123 
124 



ION 



NEXT 



AT 



AT 
16 

lAT 



12 



10 



DEV 



THEN 

THEN 
THEN 



( 

GIOTIO 



15 
200 



GOSUB 
1240 



THEN 



CALL 



#1 



GOSUB 



DEU 



D1 
128 
D2 



D2 
128 



650 
5 



100 



22 



19 



18 



16 



15 



14 



11 



19 



16 



FFF8F80CO602 
02604CD7O033O9C01 



D1+L 
THEN 

D1 

THEN 

D2 + L 
THEN 

D2 

THEN 



D 

THEN 



D2 



SM 



5 

CHRS 
6 

7 



1410 



DI 



D1 



470 



MAGNI 



870 



P01 
8 
T 

DEU 




1220 
1250 
D2 



CHRS 



93 

Z 

Z 
Z 



ZE 



ZE 



11 



GOSUB 



SCORE 



CHRS 



CHRS 
CHRS 
CHRS 



CHRS 



127 

128 
127 
128 

D2' 
CALL 

15 

IlME 



P02 



93 



127 

NT 



FY 



THEN 



127 



10- 



ELSE 



D2+DEU 



MOT 



SA 
128 

SB 



SB 
128 



1000 



SA 



DI 
1260 



SO 



DEV 
INT 



I ON 



ON 



SA + L 



SA 



SB + L 



SB 



GOS 



L 

RND 



«SM 



THEN 



IME 




CIHR 
DI 



DI 
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810 
820 
830 
840 



850 
860 
870 

880 
890 



11 



910 
920 



930 



940 
950 

960 
970 



980 
990 
1000 



1010 

1020 
1030 
1040 
1050 
1060 
1070 



1080 

1090 

1100 

1110 

1120 
1130 

1140 

1150 

11 

1170 
1180 



90 



SP1 = 

L + 1 
ClALL 



CALL 
CALL 
4 

1 



SC 
CREEN 



CALL 

HCHAR 
16,1 
220 

CALL 

SA 



ME 



DI 



CALL 
RETURN 



256 



I 

Y 

20 

RETlURjN 
SC + 1 



RETURN 



CALL 



70 



CALL 
SCO 



CALL 
ALL 



SP1 
D2 



DI 



FEW 



DI 



AND 



DI 
DLY 
U 

DI 



TER 



LAY 



SPLAY 



#1 



CI 



L = 



550 
2 



CORE 



ON 



ACED 
90 



)+1 



sco> 

1000 



I 

N 

YOUR 



HCHAR 



INT 
104 



COLOR 



COI NC 
SOUND 



L + 2 



CLEAR 
660 

880 

DELSPR 



SCO+SC 



SCO> 
SCO> 
SCO> 
SPLAY 



STORY 
SPLAY 



SPLAY 



P 

SPLIAY 



SC 
SPLIAY 



AL 



SPLAY 
IGOTO 
SPLAY 



SPLAY 



SC 
SPLAY 



SURV 



SPLAY 



SOUND 



(1 
24 

330 

SlOUND 
SB 



BONUS 
CHARSET 



CAPTAI NS 



GRADULATED 



SPLAY 
SAFE 
ATTACK 

90 
SPLAY 
TRYI 



SPLAY 
AGAI 



CALL 



DELSPR 
SCO> 
SCO> 



LUCK 



AT 



YOUR 



FUTURE 



DAMAGED 
MANAGED 



MI 



THEN 



RETURN 



THEN 



25 



AS 



SC 



ENS 
YOUR 



VOR 
AT 



NG 



AT 



AT 



AT 



AT 



AT 



AT 
1190 



AT 



AT 



AT 



AT 



20 



FOR 
CALL 

500 
124 





GlOSiUB 



AND 
SCI 

IGAMIE 



LOTS 



DESTROYED 



YOUR 



DI 
RND 



INT 

/ 



DELSPR! 



2) 
990 

I TE 



GOTO 



AT 



IjON 
( 



11000 



CALL 
8 



THEN 

( 

NAME 
lONE 



10 



87 
880 



SP1 



44000 



CALL 



TE 
THEN 
THEN 
THEN 
THEN 



IGIOTIO 
) 

HAVE 
HOME 



1 

1 

TlO 
7.1 
NEXT 



RND 



CS 



110 



( ALL 



1 

L 

YlOUR 



ENTER 



SCREEN 



SCO 
SCO 



CAL 



WI 



GOTO 



1 ) 
ON 
HAVE 
1 

IMII 



I N 



LEAST 



IHAS 
) 



SCORE 



) S 



D2 



124 
2 

= 



ss 



1190 



32 



840 



CALL 



11 



1150 



YOUR 



FlOGHT 
AL I 
I ME 



SAVE 



256 



TE 



SOUND 



1079 
1090 
1110 



YOU 
YOUR 



1190 



FA 
BEEN 
IWjORLD 
YOUR 



THE 



ALL 



ZE 



CALL 



990 



TO 



30 



SOUND 



SCI 



DI 
GOTO 



30 



YOUR 



YOUR 
YOU 



YOUR 



SCORE 



FAI 

lAND 



DO 



CALL 



1190 



I 

ATTAI 



SUCCESS 
I ONS 



UNT 



Y/N 



SCREEN 



ELSE 
VERY 
GO 



A 
L 

THE 
IGREATEST 



)+1 



CALL 



#1 



DI 



SOUND 



I ME 



ARE 



OFF 



ARE 



HOPE 
YlOUR 



LED 
YOU 
SC 



YOU 



XY 



RND 
CALL 



COLOR 



1000 



GOSUB 



25 



SPLAY 
210 



NE 
NED 



SCORE 



FLEET 
I GHT 



HOME 



HCHAR 



1000 

2000 



DOWN 



SHOWll 
TURNED 



YOUR 



FLEET 



IlNT 



10000 



1170 

IGIOOD 



TO 
MI 



THE 
ATTACK 



THE 



THE 
SC 

I 



ARE 



WI 



MAGNI 
GOTO 



CALL 
NEXT 



11000 



THEN 
AT 



iGjOOD 
YOUR 



SAFE 



2 

SPR 



ClALL 
11 



PLANET 



SH 



RND 



110 



STARSH 
YOUR 



SUCH 



WAS 
BUT 



HAS 



GOTO 



PLANET 



DI 



30 



810 



BATTL 



NG 
BACK 



SC 



BET 
SCjORE 



NEXT 
GOT 



LOST 



TO 



CON 
ION 



LUCK 
SCO 



BE 
ONL 



SiGR 
11 



1200 
1210 

1220 

1230 

1240 
1250 
1260 

12 70 

1280 

1290 
1300 

1310 
320 

330 

340 
350 

360 

370 

1380 

1390 

1400 

1410 
1420 
1430 
1440 
1450 
1460 

1470 
480 

1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 

1570 



1580 

1590 
1600 

1610 

1620 

1630 



ACCEPT 



ANSS 
ANS$ = 

iim|e|= 

190 



N 
I 

CI 


CALL 
103+D 

CALL 

) 

CALL 
CALL 
CALL 
P01 



AND 
I 

1300 



1320 

D2 
CALL 
5 + 40 
NEXT 
CALL 
11000 



CALL 



SA 



FY 
CALL 



CALL 



CALL 
P01 



220 



T1 



000 



TE 



DI 



D3 



AR 
SH 
2 
C 
8 

CALL 
8 

CALL 
4 
L 
8 

CALL 
0.-8 
Z$ 
CALL 
Z1 
ST 
CALL 
CALL 



CRASH+1 



CALL 





FOR 
STA1 



GOSUB 



CALL 



I 

+ 1 
INT 



D + 1 
ON 



D 
D 

SE 
A 
D 

CALL 



CALL 

{ 



P02 



256 



CALL 
NEXT 
RETURN 
END 



MAGNI 



PATTERN 

RETURN 
PlATTERN 
PATTERN 



MAGN 
P02 



MOT 



TD 



DELSPR 
D 

SB 



MOT 



PiOS 

/ 



00 

ST 



SPLAY 
SPLAY 



SPLAY 



ANY 



19 



KEY 
SOUND ( 



NT 



DELSPR 



30 

D<11 



AT 



LOCATE 



110 
88 
19 



I 

81+3 



) 

2 

NT 
)+1 
SPR 
ST 



RETURN 



RND 



D 

3 

KEY 



VCHAR 
GOSUB 
SIOUND 
) 

SjOUND 
) 

SIOUND 

) 

sbUND 

) 



10000 
D3 



COLOR 



CHAR 
CHAR 



8 

SlOUND 



FY 
RETIURN 



I ON 



KSlOSUB 
I ON 
D4 



AT 
360 

KEY 



RND 



11 



FY 



AND 
THEN 



THEN 



TlHEN 
THEN 



THEN 

( 
) 

I 
1 

I 



TO 
RND 



TE 



CALL 



14 

THEN 
CALL 



TE 
#M|0 



220 


81611638C424121 



TE ( #1 
CALL 
TlHEN 
GOTiO 



#1 



#1 
81+2 



128 
129 

CALL 



11 



ELSE 
192 



D<9 
iGbSUB 



CALL 
30 
8 + 3 



1280 
300 

500 

600 



0000001000000000 



40000 



P|01>8 
P01 



P01 



R1 



SB 



256 



ST 



SPR 



112 



116 
120 



GOTO 



R1 



R2 



FOR 



FOR 



SP1 



840 



16 



Z1 



ZE 



END 



110 
440 
110 



ClONT 

) 



CALL 

)|+1 



NT 



600 



MAGNI 



CALL 



CALL 



19 
51+40 



S 

00 

CHAR 



+ 1 



128 



) 

SPLAY 



CLEAR 



570 



36 



D4 



SOIUND 
2 

/ 



30 



TE 



THEN 
230 



TD 



MO 



RND 



ELSE 
FY 



^ND 
8 



SP1 



HUE 



F 

cIall 



ELSE 



P02 
AND 
350 
9 

6 



CALL 
RETURN 

CALL 
8 



16 



VAL 



PATTERN 



CALL 



RETURN 
RETURN 



POS 



NEXT 



D3 



F|ORCE 
* * 

AT 



MAGN 



ELSE 



8 + 2 
220 
660 
220 

230 

IGIOTO 



CALL 
131 



<> 



GOSUB 
1240 



11 



SoO 



P02 



TO 



TO 



104 



SC 



P02 



00 



STA2 



STA1 



CALL 



CALL 



DATE 



R1 



SlOUND 
RETURN 



MAGNI 



20 



MO 



2 

970 



SCO 



I ON 



148 



GOTO 



R1 



GOTO 



21 



THEN 



1250 



THEN 



!MA6N 
VCH 

cr|a 
10 

D3 



20000 



3000 
5000 



CHAR 

NT 
STA2 



RND 
T1 



220 



S 

IGIOT 



1 

THE 



R2 



1000 



CLEAR 
1 



DI 



S = 



DELSPR 



PRE 



CAL 



EL 

400 

CAL 
40 



RN 
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DODGE 




Remember going to the amusement park and riding 
the bumper cars or Dodge' emsl Some people like 
to drive and try not to hit any other cars. Other 
drivers see how many cars they can hit. This computer ver- 
sion of Dodge'em has several cars randomly moving up and 
down the screen. The object of -the game is to drive as quick- 
ly as you can from the right to the left of the screen. See 
what your minimum time is for crossing. A short victory 
melody will be played if you cross successfully (no crashing). 
Of course, some of you players may tire of that and try to 



see how many crashes you can have in each crossing or 
within a certain time limit. 

Programming 

My goal for this game was to make a game in Extended 
BASIC with as short a listing as possible so even the non- 
typers would not take too long to key in a program to run. 
This program is a total of 73 statements yet contains 27 mov- 
ing sprites. The actual game logic is contained in 21 lines 
(Lines 160 to 360). You could really have fewer lines by 
stacking statements if you don't mind long lines. 



EXPLANATION OF THE PROGRAM 
DODGE'EM 



Line Nos. 

100-150 

160 

170-180 
190-220 

230-240 

250-300 

310 
320 



Introductory REMarks; branches to title screen. 
Clears screen. 

Draws left and right borders; prints "TIME:" 
Places 26 cars moving vertically at random 
speeds. 

Initializes variables; randomly places red car at 

right side of screen; beeps. 

Depending on key pressed, sets row velocity and 

column velocity and moves red car. 

Increments and prints time counter. 

Checks coincidence for a crash. 



330 If there is a crash, sounds a crashing noise and 

increments number of crashes. 
340 If the car is not at the left border, program 

branches to Line 240. 
350-360 Stops the red car and prints the nimiber of 

crashes. 

370-410 If there were no crashes, plays victory melody. 
420-460 Asks if player wants to try 

again and branches appropriately. 
470-570 Prints title screen while sounding crashing noises 

and deHning special characters. 
580-710 Prints instructions. 
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100 
110 
120 
30 
140 



50 
60 



170 

180 
190 
200 
210 

220 
230 
240 

250 
260 
270 
280 
290 
300 
310 
320 

330 
340 

350 
360 
370 
380 
390 

400 

410 

420 



REM 

REM 

REM 

REM 

REM 

GOTO 

CALL 

CALL 



31 

SPLAY 



{ 

DI 

RiANDlOlMlI 
I 



FOR 
CALL 



NEXT 
HV 
CALL 



CALL 



FOR 
UND 



92 



233 



CALL 



T + 1 



CALL 



T 
C 


CALL 
CALL 
THEN 



CALL 
DI 



INT 
I 



DIATIA 
523 



DATIA 
784 



470 

CLEAR 



VCHAR 



K = 
K = 
K = 
K = 



MOT 
SPLAY 
CR>0 
RESTiORE 
I 



SPLAY 



SPR 



SPR 



1 

100 



DODGE 



KEY 
69 
88 
83 
68 
IMOT 



COI 



262 



523 



112 

AT 
ZE 

TlO 



RND 



CV = 



SOUND 

p|os I 

250 



659 



TE 



TE 



DI 



NC 



I ON 



AT 



TO 



AT 



ClALL 
K 

THEN 
THEN 
THEN 
THEN 
I ON 



THEN 
400 



330 



659 



( 

121+1 



EM 



»1 



( 

(150 
ION 



24 



CV 
#1 



SPLIAY 
ALL 



T = 
104 

SlOlUND 
) 



420 



392 
392 

) 



112 



S 

RV|=I- 
RV = 
CV 



T I ME 



NEXT 



AT 



RO 



523 



523 



24 



CV 



READ 



TRY 



150 



CO 



) 

CRASHES 



NT 



CV = 



CV 



RV = 



N 
392 
659 



RV = 



8 + 1 



RND 
1397 



C = 



CR = 



CALL 



AGAIN? 



784 



CR + 1 



1801+1 




CR 

CALL 
523 



THEN 



VCHA 



330 



659 



C0>16 



34 



430 
440 

450 
460 
470 

480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 



610 

620 

630 

640 

650 
660 

670 

680 
690 

700 

710 



CALL 



STOP 
CALL 
440 



DI 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



KE = 
dOTO 



END 



SPLAY 



RASH 



CALL 



KE 



FROM 



OR 



YOO 



START 



CLEAR 



CHAR 



SOUND 

CHAR 

COLOR 



CHAR 
CHAR 
CHAR 
CHAR 
CLEAR 



SPLAY 
SPLAY 



SPLAY 



SCREEN 



SPLAY 



US 



SPLAY 



SPLAY 



SPLAY 
SPLAY 



SPLAY 



SPLAY 
SPLAY 



ELSE 



KEY 



SOUND 



89 



78 



KEY 



230 



AT 



THE 



N6 



AT 
IN TlO 



STOP 



AT 
MAY 



AT 
AT 



160 



THEN 



THEN 



104 



KE 



11 
500 



500 



11 



7 , 2 

8 , 2 

10 

11 
13 

14 

15 
24 

KEY 



CALL 
CALL 



387C7C38387C7C38 



11 



1038549210101010 
O8O808O8492A1C08 
102040FF40201 
O8O4O2FF02O4O8 



0O66FFFFFF66 



SPLAY 



11 



CLEAR 



SOUND 



DR 



TO 



THE 



BEEP 



YOU 



BY 



NOT 



I GHT 



OTHER 



PRESS 



THE 



AT 



ARROW 



TRY 



MAY 



PRESS 



THE 



BACK 



ELSE 



ANY 
S = 



DE 



LEFT 

KEYS 



NOT 



CARS 

SLiOlWl 



E 

RED 
OF 
S 



NG 

UP 
KEY 

THEN 



430 
1 



TO 



M 
CAR 

THE 

IDE 



DiOWl 
BU 

TO 
70 
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Tl 
BASIC 



SPACE 
WAR 




Space War is a two-player game written in TI BASIC. 
Each player has one rocket. The object of the game 
is to destroy your opponent either by missile fire, forc- 
ing him to crash with an asteroid, or by causing him to use 
up his allotment of fuel. 

You can fire missiles in any of the eight directions select- 
able from each side of the split keyboard. Missiles emit a 
nerve gas that paralyzes any moving object on the screen 
until a hit is made or the missile goes out of range — i.e., 
off the screen. Firing a missile, however, does require an 
expenditure of fuel. 

Each rocket starts out with 50 units of fuel. One unit is 
subtracted for each move, and a missile shot costs 5 units 



of fuel, so you must try to move efficiently and shoot ac- 
curately. If you run out of fuel, the game ends and the other 
player receives 2 points. 

If your missile hits the enemy rocket, you score 5 points. 
If you crash into an asteroid, your opponent receives 3 
points. And if you crash into each other, no points are 
awarded. If you shoot an asteroid you lose 1 point but the 
game does not stop. 



Note: If using a disk system, type CALL FILES(1) prior to RUNing. 
Even so, you still might encounter some conditions during play wtten 
the memory will fill and the program will halt. To eliminate this, you 
can delete all the instructional PRINT statements. 



EXPLANATION OF THE PROGRAM 
Space War 

Line Nos. 

150-180 Clears screen, initializes fuel 50 units; makes 
black screen. 

190-370 Definition of characters and colors for title 

screen and instructions. Characters 152-159 are 
arrows. 

380-570 Draws title screen. 
580-660 Draws border and blinks colors until user 
presses a key. 

670-800 Asks if user wants instructions and waits for 
response. 

810-1270 Prints instructions invisibly and makes white let- 
ters appear on black screen. 

1280-1350 Clears screen, resets letters to white on black 
and defines colors for game. 

1360-1790 Defines characters for graphics. Characters start- 
ing with R are the rockets in different direc- 
tions; V$ is for the missile; S indicates asteroids, 
and D crashing graphics. 

1800-1880 Clears screen for game, initializes variables and 
draws rockets. Al, Bl are coordinates for 
crashing; A, B, and C, D are the rockets' 
coordinates. 

1890-2150 Draws center asteroid, then 7 random asteroids, 
making sure asteroids do not overlap. 



2160-2240 Receives players' input. If a key has been 

pressed, branches accordingly. If no key has 
been pressed, goes to the other player's 
keyboard input. Initializes variables. G indicates 
who is playing. V = 1 when an asteroid has been 
hit. 

2250-2310 Procedure when yellow rocket fires a missile. 
2320-2470 Procedure when yellow rocket moves. 
2480-2540 Procedure when blue rocket fires missile. 
2550-2700 Procedure when blue rocket moves. 
2710-3460 Routines for moving the blue rocket different 
directions. 

3470-4740 Routines for shooting missile different 
directions. 

4750-5500 Routines for moving yellow rocket different 
directions. 

5510-5830 Sounds crashing noise and flashes graphics. 
5840-5980 Calculates and prints scores and ending remarks. 
5990-6040 Prints option to play again and receives user 
input. 

6050-6130 Subroutine to check if asteroid is shot; if so, 

score is decreased one point. 
6140-6200 Subroutine to check if rocket is hit or if rocket 

hits asteroid. 

6210-6260 Subroutine to check if asteroid is in that posi- 
tion; if so, V= 1. 
6270-6330 Procedure if rocket runs out of fuel. 
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100 

110 

120 
30 
140 
150 
60 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 



280 

290 
300 
310 
320 
330 
340 

350 



360 

370 

380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 

680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 



REM 
REM 
REM 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
A1 



CHRS 



$ 

R 
A2$ 
CHRS 
CALL 
CALL 
FOR 
CALL 
NEXT 



PR 



DATA 



I 
D 

3 

DATlA 



PRI 



PR 



NT 



11 

DATA 

19 
DATiA 
FOR 
REAlD 
CALL 
NEXT 
FOR 
READ 
CALL 
NEXT 
CALL 
CALL 
CALL 
CALL 
FOR 
CALL 
NEXT 
CALL 
CALL 
CALL 
CALL 
CALL 

cIall 
I 

CALL 

GOTO 

CALL 

FOR 

CALL 

NEXT 



FOR 

CALL 

NEXT 

cIall 

I 

FlOR 
CAL 
NEXT 
I 



PRINT 



PRINT 



CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHRS 
(156 
CHRS 



11 



INT 



CLEAR 
SCREEN 



158 

COLpR 
cbLlOR 
TO 
ClOLlOR 
I 

TAB 



NT 



KEY 



KEY 



20 



TO 



TO 



9 

A 

HiCHlAR 
I 

= 1 
A , B 
VCIHlAR 
I 

HlClHlAR 
HCHAR 
COLOR 
COLOR 



iCiOLlOR 
I 

HlCHlAR 
HCHAR 
VCHAR 
VCHAR 
COLOR 



COLIOR 
580 
CLEAR 
TO 
ClOLlOR 
I 



TO 
ClOLlOR 
I 
K 






E 
Tp 
ClOLlOR 
I 

78 



TAB 



SPACE 



23 



157 



159 



TO 



THEN 



THEN 



8 

A 
TiHE 



128 
129 
120 

21 
152 
153 
154 

55 
156 
157 



11 



25 



THEN 



(A 



NSTRDCT 



12 



12 



WAR 



12 

14 
23 



630 



710 



OB 



2 

PRESS 



23 



GAME 



0303030303030303 

C0C0C0C0C0COC0C 

FOF0FOF0F0FOF0F 



FFFFFFFF 



081C2A4908080808 

08O808O8492A1CO8 

0Oe804O2FF02O4O8 

OO1O2040FF40201 

1F0305O91120408 

F8C0Ae9088040201 

80402011O805031F 

01O204889OA0C0F8 



11 



144 



1230 



144 



ECT 



120 
120 
21 
121 



2 

I|0|NS ? 



StCHRS 



&CHR$ 



128 
129 
16 
2 



SPACE 
FOR 



ANY 

2 
3 



OF 



11 



14 



25 



WAR 
TlWO 
THE 



52 



153 



KEY 



15 



OR 




10 



PLAYERS 



GAME 



BEG 

6 
19 



910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 



800 
810 
820 
830 
840 
850 
860 
870 
880 
890 



11 



1140 



11 



30 



50 



1160 



70 

11 
1190 

200 
1210 
1220 
1230 

240 
1250 
1260 
1270 
1280 



290 
300 



1310 
1320 

330 
1340 
1350 
1360 
1370 
1380 

390 
1400 
1410 
1420 
1430 
1440 
1450 

460 
1470 
1480 
1490 



500 
510 



1520 



530 
540 
550 



HRS 
PR 
PR 
PR 
PR 
PR 
FOR 
CALL 
NEXT 
CALL 



CAL 

I F 

CAL 

FOR 

CALL 

NEXT 



PR 

PR 

PR 

PRI 

PR 

PR 

PR 

PR 

PR 

PR 

PR 

PR 



NT 
NT 
NT 
NT 
NT 
NT 
NT 
NT 
NT 
NT 
154 



PR 
FOR 
CALL 
NEXT 
CALL 
I 

CALL 
FOR 
CALL 
NEXT 
CAL L 
CALL 
CALL 
CALL 
RUS 
RDS 
RRS 
RLS 
RURS 
RULS 
RDRS 
RDLS 
BS 
SI 
S2S 
S3$ 
S4$ 
DS 
D1 
D2$ 
D3S 
D4S 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



TO 

ClOLlOR 
I 

CbLlOR 
KEY 



ClOLlOR 
TO 
ClOLlOR 
I 



TO 
MI 
HIIMI 
TAB 
TO 



54 



KEYS 
PLAYER 
2 



TAB 



TAB 



TAB 



TAB 



PLAYER 



AND 



PRESS 



THEN 



TAB 
TH 



ASTEROI 



MI 



lANY 
THAT 



OB 



THE 
DNT 



KEY 



SHOOT 
UNN 
TAB 



ClOLlOR 
I 
K 




CLEAR 
TO 
ClOLlOR 
I 

ClOLlOR 
COLOR 
COLOR 
COLOR 



CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 



SSLE 



W 



SSLES 



DESTROY 



INTjO 
11 

MIOVE 
AS 



PRESS 
TO 





THEN 



16 



PLAYER 



ANGLE 



ECTS 



WAR 



96 
97 
98 
99 
100 
101 
102 



R 

CHRS 



C 
A2S 



ANY 



S ) 
990 



PARALYZES 



IME 



7F7F3737irOF03 
FEFEFCFCF8F0C 
0e03eF1F3F3F7F7F 
00COF0F8FCFCFEFE 
995A3CFFFF3C5A99 
010204081020408 
8040201008040201 
1818181818181818 

eoeoooFFFF 

RUS 



16 



THROUGH 



0808081C1C3E2A22 
222A3E1Clce8O808 
0Oe0EO387F38E 
0O00O71CFE1CO7 
010214789028081 
8040281E39141OO8 
1008289C7814O2O1 
O81014391E284080 



YOUR 
SHOWlN 



CHRS 



CAN 



ON 



ANY 
16 
S 

1210 



RDS 
RRS 
RLS 



TAB 

TAB 
USES 



ASTERIOID 
KEYS 



TAB 
TAB 



ASTEROI 



TAKES 
BELT 



NTO 
MI 



THAT 



HI 



RURS 
RULS 
RDRS 



THE 
OR 



PLAYER 



2 

KEY 



155 



THEY 



THE 



TS 



KEY 

) 



RPCKET 
BELOWl 



USES 
TO 



ONE 
SSLES 



BE 



(16 
17 



155 

17 
(16 



OPPONENT 



YOU 
THEM 



I 

ElMjl 
^NY 
SCREEN 



BY 



TO 



DS 
PLACE 



I 

lOR 



TO 



P 

ClONT 



RED 



WAS 



DI 



A2S 
F 



FORCING 



CANNOT 
AND 
FATAL 



GAS 
MiOVING 
FROM] 



SAPPEARS 



CONT 



AT 



PRESS 



RE 



I NUE 



I N 



&CHR 
&C 



AN 



RED 



NUE 



BY 
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1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
185 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 



CALL 
CALL 
CALL 
CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAL 
CALL 
CALL 
CALL 
BPR 
YPR 
A1 
B1 
A 
B 
C 
D 



12 
3 

12 
30 

ClALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
FOR 

RANDlOlMlI 
SH 
SV 



FOR 
CALL 

gIosub 
I 

NEXT 
FOR 
CALL 
GOSUB 
I F V. 
NEXT 

gotIo 

V 

GOTp 
CALL 
CALL 
CALL 
CALL 
NEXT 
CALL 



F 

CALL 



F 

GIOTO 



F 

YPR 



GOTO 
YPR 



F 

CALL 
CALL 
CALL 



INT 
INT 



CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CLEAR 



HCHAR 
HCHAR 
COLOR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
TO 



SloO 



SoO 



YPR 



YPR<0 



KEY 



Kloll 

YPR 
YPR<0 



2130 



3440 



GCHAR 
HCHAR 
SOUND 



GCHAR 
6160 
THEN 

TP 
IGCHAR 
6160 
1 THEN 
I 

2080 

1920 

^CHAR 
HCHAR 
HCHAR 
HCHAR 
I 

KEY 



110 3 
104 
105 
106 
107 
108 
109 
110 
111 
112 
136 
137 
38 
139 
140 
144 
145 
146 
147 



TO 



A 
C 
1 
1 

13 
12 
12 



RND 
RND )|+5 



THEN 
K 



THEN 



THEN 
THEN 



THEN 



SH 



SH 



K1 



RDL$ 
RU$ 
RD$ 
RRS 
RL$ 
RUR$ 
RULS 
RDR$ 
RDL$ 
B$ 
D$ 
D1 $ 
D2$ 
D3$ 
D4$ 
SI 
S2$ 
S3$ 
S4S 



)+3 



200 



2060 



2060 



98 
107 



SV 



SI 



2220 

) 



2450 



SV+I 



SV + 1 



2290 
6220 



6220 

) 

32 



2 

144 
145 
146 
147 



SV+I 



144 



SV 
SV + 1 



145 



146 



147 



2 3 50 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 



CALL 
GOTO 



I 

BPR 
I 
E 
F 
G 



GOTO 



BPR 

1 

CALL 
CALL 
CALL 
G 
I 
I 
I 
I 
I 
I 
I 
I 



CALL 
GOTO 
A 
1 

A 



K1 + 1 



K<>18 

BPR 
BPR<0 



24 

CALL 

gIosub 

I 

CALL 
GOTO 
A + 1 



A 
I 

A 

CALL 
GIOSUB 
I 

CALL 

gotIo 

B 
I 
B 



CALL 
GlOSUB 
I 

CALL 
GOTO 



CALL 
GPSUB 
I 

CALL 
GOTIO 
A 
B 
I 

A 
I 
B 



CALL 
GIOSUB 
I 

CALL 
GOTO 



BPR 
BPR<0 



K + 1 



AoO 



B + 1 



32 



B + 1 



24 



HCHAR 
2170 



GCHAR 
HCHAR 
SOUND 



5 

■■■5 
2 

:6 

4 

14 
15 



3440 



HCHAR 
2130 



A<>25 



B<>33 



BoO 



AoO 



<> 



1 
1 

AoO 



THEN 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



HCHAR 
2130 



HCHAR 
2130 



33 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



THEN 
A 



iGjCHAR 
6090 
THEN 

( 



IGCHAR 
6090 
THEN 

( 



IGCHAR 
6090 
THEN 
HCHAR 
2130 



IGCHAR 
6090 
THEN 
HCHAR ( 
2130 



GCHAR 
6090 
THEN 
HCHAR ( 
2130 



THEN 
C 



THEN 



THEN 



THEN 
A 



THEN 



THEN 
A 



THEN 
THEN 



THEN 



A 
200 



THEN 
A 



THEN 
A 



4880 
4960 
5040 
5150 
5260 
5370 
) 

2520 
6250 



2680 



2840 
2920 
3000 
3110 
3220 
3330 
B.P) 



2710 



5480 



6250 

) 



2760 



5480 

B 



5480 

B 



5480 

B 



5480 



4720 



2950 



3040 



3150 



96 



2790 



2870 



3060 



100 



440 
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3149 
3150 
3169 
3179 
3189 
3199 
3299 
3219 
3229 
3239 
3249 
3259 
3269 
3279 
3289 
3299 
3399 
3319 
3329 
3339 
3349 
3359 
3369 
3379 
3389 
3399 
3499 
3419 
3429 
3439 
3449 
3459 
3469 
3479 
3489 
3499 
3599 
3519 
3529 
3539 
3549 
3559 
3569 
3579 
3589 
3599 
3699 
3619 
3629 
3639 
3649 
3659 
3669 
3679 
3689 
3699 
3799 
3719 
3729 
3739 
3749 
3759 
3769 
3779 
3789 
3799 
3899 
3819 
3829 
3839 
3849 
3859 
3869 
3879 
3889 
3899 
3999 
3919 
3929 



CALL 
60SUB 



I 

CALL 
GOTO 
CALL 
CALL 

F 

F 
FlOR 
CALL 
GOSUB 
CALL 
CALL 



CALL 
GOSUB 



CALL 
GOTO 



CALL 
GIOSDB 
I 

CALL 
GOTO 

a|=|a|+i 

B 



32 



24 



32 



A + 1 
B + 1 
A<>25 



1 

A<> 



GOTiO 
F 
F 

GOTjO 
NEXT 

gIoItIo 

F 
F 

FOR 
CALL 
GOSUB 
CALL 
CALL 



GOTO 



GOTO 
NEXT 
GOTO 



FOR 
CALL 
GOSUB 
CALL 



CALL 
F 



GOTO 



GOTO 
NEXT 
GOTO 



B<>9 



GCHAR 
6999 



V = 



B<>9 



Z0194 



<> 



GCHAR 



HCHAR 
2139 



GlCHAR 
6999 



THEN 
HCHAR 
2139 

IGCHAR 



GCHAR 
6999 
HCHAR 
HCHAR 



<> 



THEN 
HICHAR 
2139 



SOUND 



96 



Aol 
BoF 
54 
Col 
DoF 



Aol 
BoF 



Col 
DoF 



AoE 

<> 



CoE 
Dol 



33 



6999 

THEN 



25 



97 



Z0195 



98 



Z0196 



99 



5489 



5489 

I 

2179 



E + 1 
IGCHAR 



HCHAR 
HCHAR 



5489 



5489 

I 

2179 



F + 1 
iGlCHAR 

6999 
HICHAR 
HCHAR 



5489 



5489 

I 

2179 



197 



THEN 



THEN 



THEN 



(A 



THEN 



THEN 



THEN 



THEN 
THEN 



THEN 
1 
F 

F 
F 



THEN 
THEN 



THEN 



I 

THEN 
THEN 



THEN 
THEN 



THEN 



THEN 
THEN 



THEN 
THEN 



THEN 



199 



3179 



5489 

B 



5489 
B , 192 

3379 
3399 

B 



5489 



THEN 
TO 



THEN 
TO 32 



THEN 



3489 



191 



3269 
3289 



193 



449 



3619 

STEP 

) 

112 



32 
3569 
3569 

3599 
3599 



3639 



112 



24 

F 

F 

F .32 
3719 
3719 



3749 
3749 



3789 



I 

3869 
3869 



3899 
3899 



3939 



3769 



3919 



112 
32 



4969 



889 



3939 
3949 
3959 
3969 
3979 
3989 
3999 



4919 
4929 
4939 
4949 
4959 
4969 
4979 
4989 
4999 
4199 
4119 
4129 
4139 
4149 
4159 
4169 
4179 
4189 
4199 
4299 
4219 
4229 
4239 
4249 
4259 
4260 
4279 
4289 
4299 
4399 
4319 
4329 
4339 
4349 
4359 
4369 
4379 
4389 
4399 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4699 
4799 
4719 



F 
F 

FOR 

f|=f+i 
I 

CALL 
GOSUB 
CALL 
CALL 



FOR I 

CALL 

GOSUB 

CALL 

CALL 



GOTO 



GOTO 
NEXT 
GOTO 



GOTO 



GOTO 
NEXT 
GOTO 



FPR 
F 
I 

CALL 
GOSUB 
CALL 
CALL 



[GOTO 
NEXT 
IGOTP 

?m 

F 
I 

CAL 



GOTO 



[GOTO 
NEXT 
[GOTO 



AoE 



CoE 



Do 



AO 
BoF 



Co 



DoF 



GOTO 



GOTO 
NEXT 
GOTO 



FOR 
F = F + 1 
I 

CALL 
GOSUB 
CALL 
CALL 



GOTO 



IGOSUB 
CALL 
CALL 



Bo 



GCHAR 
6999 

HCHAR 
HCHAR 



<> 



IGICHAR 
6999 
HCHAR 
HCHAR 



IGCHAR 
6999 
HCHAR 
HCHAR 



Co 



D< 



5489 



5489 

I 

2179 
199 
198 
1 



33 



5489 



5489 

I 

2179 
191 
199 



Aol 
BoF 



AO 
BoF 



Co 
DoF 



Ao 
BoF 



Col 
BoF 



33 



21 



THEN 

I 



5489 



5489 



> 
5 
I 

2179 
192 
119 

E + 1 



IGCHAR 
6999 
HCHAR 
HCHAR 



5489 

I 



5489 

I 

2179 

E + 1 



5489 



5489 

I 



E 
E 

THEN 
THEN 



THEN 
THEN 



THEN 



THEN 
THEN 



THEN 
THEN 



THEN 
IGCIHAR ( 

6999 
HCHAR 
HCHAR 



79 



THEN 
THEN 



THEN 
THEN 
TO 



TO 



THEN 
THEN 



THEN 
THEN 



THEN 



THEN 
THEN 



THEN 
THEN 



I 
I 

THEN 
THEN 



THEN 
THEN 



THEN 
THEN 



TO 



TO 



4399 



4919 
4919 

4949 
4949 



4229 

) 



4189 
4189 

4219 
4219 



4989 
4239 

STEP 



4259 
4499 

STEP 



4719 



STEP 

) 

112 
32 



112 
32 



4359 
4359 

4389 
4389 



24 



4569 

) 



4529 
4529 

4559 
4559 



24 



32 
4679 
4679 



4799 
4799 



4429 
4579 



112 
32 



112 

) 
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4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5 210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 



CALL 

gIosub 

F 

CALL 
GOTO 



24 

CALL 
GbsUB 
V 

CALL 

gIoto 

D + 1 



Cl+1 



D 

CALL 
GOSUB 
I 

CALL 
GOTO 



32 

CALL 
GOSUB 
I F V 
CALL 
GOTO 



D 

CALL 
GOSUB 
V 

CALL 
GOTO 



C<>25 



1 

CoO 



D<>33 



C 
D + 1 



32 

CALL 
GOSUB 
V 

CALL 
GOTO 
C = C + 1 
D + 1 



D 

CALL 
GOSUB 
V 

CALL 
GOTO 



GCHAR 
6090 
THEN 



HCHAR 
2170 



GCHAR 
6090 
THEN 
HCHAR 
2170 



GCHAR 
6090 
1 THE 
HCHAR 
2170 



DoO 



CoO 



24 



D<>33 



1 
1 

CoO 



24 



DoO 



C + 1 
1 



32 

CALL 

gIosub 

V 

CALL 
GOTO 
CALL 



GCHAR 
6090 



HCHAR 
2170 



C<>25 



D<>33 



C<>25 



DoO 



THEN 



GCHAR 
6090 
THEN 
HCHAR 
2170 



THEN 



THEN 



THEN 



THEN 



GCHAR 
6090 
THEN 
VCHAR 
2170 



GCHAR 
6090 
THEIN 
HCHAR 
2170 



GCHAR 
6090 



THEN 
HCHAR ( 
2170 

sjoUND 
THEN 



THEN 



THEN 



THEN 



THEN 



5480 



THEN 



THEN 



THEN 
THEN 



4830 



5480 



5480 



5480 



4750 



105 



104 
4910 



4990 



107 



5080 
5100 



5480 



5190 



5210 



5480 



109 



5300 
5320 



5480 



1000 
5530 



5480 



106 



5430 



108 



110 



5410 



11 



5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 

5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 



F = 

GIOTiO 
A 
B 

CALL 
CALL 



B1 



I 

CALL 
I 

CALL 
CALL 



F 
F 

CALL 



CALL 
CALL 



CALL 



CALL 

FOR 

CALL 

CALL 

NEXT 



I 

PR 
PT 

GlOTiO 
I 



PR I 

YL 

PTS 



PR 



PT 



FOR 



PR 



F|+1 
1 
F 
1 
E 



B1 



A1 



E + 1 
^1 



B1 



B1 



A1 



PT<>9 
NT 




NT 



PTS 

F 
PR I 
BL 
PTS 
GOTO 



ELLOW 



NPUT 



CALL 
STOP 
FlOR 

F 

F 
BL 

GOTIO 
YL 



GOTiO 
PTS 



NEXT 



PRI 
PTS 
GOTlO 



PTS 

GOTO 

END 



5950 
PTS>0 
5 



GOTO 
NEXT 
RETURN 



RETURN 



RETURN 



RETURN 



5550 



HCHAR 
LO 
33 



COLOR 



HCHAR 



HCHAR 
HCHAR 



HCHAR 



HCHAR 
HCHAR 



HCHAR 



HCHAR 
TO 
ClOLlOR 

cIolIor 
I 



NT 



NT 



NT 



SEG$ 



PoX 
Z>103 



P = 32 
P<1 44 
9 



PoX 



24 



BLH-PTS 


5950 



YL+PTS 



THEN 
THEN 



E 

THEN 



THEN 



THEN 



THEN 
BLUE 



CLEAR 



144 



1 

2170 
1 

2170 



6140 



144 



THEN 



THEN 
E 



THEN 
E 



14 

THEN 



E 
E 

THEN 



SCORE 
&STR$ 
PLAY 
B$ 



THEN 



5880 

BLUE 

5920 



E + 1 



THEN 



GAME 



THEN 



YELLOW 



THEN 



THEN 



YELLOW 



E + 1 
E + 1 



WI 



TO 



THEN 



THEN 



TO 



136 

) 

5590 

5610 

5670 
5640 
1,F- 
5660 



5920 



5700 



5720 



5750 
F 
5 

F + 1 



F + 1 



5730 



F + 1 



5850 



5870 



RUNS 



NS 



WI 



AGAIN? 



o 



147 
6070 
6050 



6150 
6110 



147 
6200 



RUNS 



139 



139 
140 



BLUE 



138 
137 



138 
137 



140 



NS 



&STR$ 



BS 
THEN 



BL 



1750 



ELSE 



6130 



OUT 



OF 



FUEL 



OUT 



OF 



FUEL 
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MAZE 




RACE 



Maze Race is a game. written in TI BASIC for two 
players; one controls the red soldier, and one con- 
trols the blue soldier. The game starts out with 
the opposing soldiers lost at the ends of a forest maze. The 
object is to reach the safe zone across the field without 
meeting the enemy. The first soldier to cross his boundary 
into safety (through the entrance) wins the round, and the 
game continues until one soldier scores ten times. If the 
soldiers collide, neither one scores. 

The maze is drawn randomly by the computer, so if an 
impossible maze is drawn (an entrance blocked or a soldier 
surrounded), it may be redrawn by answering the "Change 
Maze?" option with "Y" for yes. 



The red soldier is moved by pressing the arrow keys on 
the left keyboard. The blue soldier is moved by pressing I 
for up, J for left, K for right, and M for down. You may 
wish to use the Video Games 1 Command Cartridge overlay. 
No diagonal moves are allowed, and a soldier cannot go 
through a barrier. Once a key is pressed, the soldier moves 
in that direction until another key is pressed. 

The difficulty of the maze may be altered by adjusting 
the PRINT statements 220-560. The & is a blank space on 
the maze, and # is a barrier. 



EXPLANATION OF THE PROGRAM 
Maze Race 



170 Branches to title screen and instructions. 

180-210 Subroutine to print messages on screen below 
maze. 

220-570 Subroutines to print maze a line at a time. 

580-700 Clears screen and prints maze. Lines of maze 
are chosen randomly then printed. 

710-740 Places soldiers at opposite ends of maze in ran- 
dom horizontal position. 

750-810 Prints message, "CHANGE MAZE?", waits for 
response and branches accordingly. 

820-900 Initializes variables. RX, RY, BX, and BY are 
directional increments. RXC, RYC, BXC, and 
BYC are coordinates for the red and blue 
soldiers. RED and BLUE = 1 for a win, for 
a loss. Sounds a "beep" to start game. 



910-1070 
1080-1230 



1240-1400 
1410-1580 
1590-1690 
1700-1760 
1770-1940 
1950-2000 

2010-2180 



2190-2270 



Reads red soldier's keyboard entry to move. 
Checks where soldier will move and redraws 
soldier. Checks location for space, block, enemy 
entrance, or his goal. 

Reads blue soldier's keyboard entry to move. 
Checks blue soldier's move and location. 
Routine if soldiers collide. 
Prints message when one soldier wins. 
Prints scores. 

Asks "TRY AGAIN?" and branches 
accordingly. 

Prints title screen and defines characters and 
colors; asks if instructions are needed and waits 
for response. 

Prints instructions if desired. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 

230 
240 

250 
260 

2 70 
280 

290 
300 

310 
320 

330 
340 

350 
360 

370 
380 

390 



420 

430 
440 

450 
460 

470 
480 

490 
500 

510 
520 

530 
540 

550 
560 

570 
580 
590 
600 
610 
620 
630 



640 
650 
660 
670 
680 



RElM 
REM 
REM 
REM 
REM 
REM 
REM 
IGOTIO 
FOR 
CALL 
NEXT 
RETURN 



PR 



RETURN 



PR 



RETURN 



PR 



RETURN 
PRINT 
« 

RETURN 
PR I NT 
& 

RETURN 



PR 



RETURN 



PR 



PR 



PR 



PR 



PR 



PR 



PR 



INT 



NT 



INT 



INT 



CALL 



CALL 
FOR 
AA 



340 



ON 
, 
500 

NEXT 



CALL 
CALL 
CALL 



NT 



RETURN 
PRINT 

« 

RETURN 
PRINT 
& • 

RETURiN 
PRINT 
& 

RETURN 
PRINT 
« 

RETURiN 



INT 



RETURN 
PR I NT 

# 

RETURN 
PR I NT 
& 

RETURN 



RETURN 



RETURN 



RETURN 



INT 



RETURN 



RANDOMI 



INT 



MAZE 



2010 

TlO 
HCHAR 



NT 



NT 



NT 



INT 
AA 



520 



«&&«&&« 



CLEAR 
ZE 



HCHlAR 
TO 



360 



HCHAR 
VCHAR 
VCHAR 



18 



60SUB 



#&&&«&&&&« 



540 



LEN ( M$ 



#&«&&&# 



RACE 



RND 



380 



21 



&&«&&&&&«&&&&&&&«&&&« &&&&&< 



«&&&&« 



220 
0,4 
560 



ASC 



8(»&&&&&8t&&« 



)+1 



3 5 
240 



35 
113 



105 



SEG$ 



420 



28 



260 



21 



(MS 



440 



«&&&&&&&&#&&&£[# 



280 
460 



#&&#&&&#&&&& 



300 



32 
480 



690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 



950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1 
1 

1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 



250 
260 



CALL 
CALL 
RXC 
CALL 
BXC 
CALL 
Mjs 
X 

GbSUB 
CALL 



CALL 
RX 
RY 



BX 
BY 
RYC 
BYC 
RED 
BLUE 
CALL 
CALL 



F 

F 
RX 
RY 
GOTb 



GOTO 



24 



KEY 



KEY<>78 
HCHAR 



I F 
RX 
RY 

GOTIO 
I F 
RY 
RX 
F 
M$ 
BLUE 
GOTO 
CALL 



CALL 

GOTO 

CALL 

RXC 

RYC 

CALL 



I 

RED 

GOTO 

CALL 



GOTO 



GOTO 



I F 
BX 
BY 
GOTIO 



I F 
BY 
BX 
F 
M$ 
RED 
X 

GlOSUB 



GOTO 
CALL 



HCHAR 
CHANGE 



K1+1 



1080 

K1<>2 



22 



VCHAR 
VCHAR 



NT 



HCHAR 



NT 



180 

KEY 





SiOUND 



KEY 


<> 



1080 

<> 



1080 

<> 



RED 



RYCO 



89 



KEY 




K2+1<>1 
1 




BLUE 
1 



18 



18 





RYC+RY>1 



1 

1440 

IGCHAR 
38 



112 

SpUND 
1240 
HCHAR 
RXC+RX 
RYC+RY 
HCHAR 
30 



700 



1410 

<>3 

410 



1410 



THEN 



K2 
1 



BYC|+BY<31 



80 
1770 

IGCHAR 



THEN 
THEN 



KEY 
THEN 
THEN 



THEN 



THEN 



30 



4 

16 

RND 
RXC 
RND 
BXC 
IMAZE? 



24 



K1 



WENT 



K2 

THEN 
THEN 



THEN 



THEN 



THEN 



WENT 



50 



THEN 



150 



RXC 



SI 
1080 
970 



1010 



RXC 
THEN 



THEN 



38 



580 



1080 



THEN 



RXC+RX 



WRONG 



S2 
1410 



1410 



THEN 



38 
104 

11 

Y/ 



780 
32 



397 



1050 



1170 
1590 



RYC 



RYC 



300 



1340 



WRONG 



( BXCH-BX , BYCh-BY 



1240 



1380 



19 



1120 

WAY 



38 



104 



1470 



RYC+RY 



WAY 



BLUE 



RED 



DD 



CC 



WON 



WON 
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1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 



DO 
DD 



CALL 
GOTO 
CALL 

BXC: 
BYC: 



CAL 
I 

BLUEl: 
GOTO 
CALL 
CALL 
CALL 
FOR 
CALL 
CALL 
NEXT 
MS 
X 

GOSUB 

GOTO 

CALL 



SOUND 
910 
HCHAR 
BXC+BX 
BYC+BY 
HCHAR 



BYC<>2 



1700 

HCHAR 
HCHAR 
HCHAR 
TO 
CbLbR 

ciolIor 

I 



DUEL 



23 



I F 

M$: 

GOTiO 
MS 
X 

GOSUB 
MS 
X 



22 

su: 

23 

GlOSUB 
REDS=: 
BLUES 



I 

CAL 
CALL 
GOTO 
CALL 



REDS 



I 



CALL 
CALL 
GOTO 



WI 



BLUE 
RED 

1750 
BLUE 



BLUES 



3 8 
104 



80 

TIOTAL 



180 
1930 

HCHAR 



HCHAR 
HCHAR 
910 

HCHAR 

< 

HCHAR 
HCHAR 
2000 



THEN 
THEN 



WI 



80 

REDS+RED 



10 



BXC 
THEN 



BXC 
RXC 



50 



BXC 



RXC+RX 
5 



12 



BOTH 



NS 



BLUES+BLUE 



23 

THEN 



NS 



SCORE 



23 



THEN 
19 



1520 



TH 



9 

THEN 



BYC 



BYC 
910 



BYC 
RYC 



TH 



20 



590 
7 



6 
7 

SbLD 



38 
120 

RYC+RY 



32 
740 



38 



112 



910 



64 



I ME 



RED 



1860 
49 
48 

REDS+48 



ERS 



I ME 



120 



DI 



BLUE 



1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 

2030 

2040 

2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 



2210 

2220 

2230 
2240 
2250 
2260 
2270 



CALL 



I 

FlOR 
NEXT 



PR 



CALL 



STOP 



CAL 
PR I 

) ; 

PR 

) ; 

PR 

CAL 
CALL 
CALL 
CALL 



CAL 
CAL 



I 

END 



CALL 



CAL 
CAL 
CAL 
PR 
CAL 
I F 
I F 
CALL 



CALL 



REDS 



NT 



KEY 



KEY<>78 



LOST 



NT 
TO 
NT 
OR 
NT 
NT 



DELAY 



NT 



HCHAR 



DELAY 
TRY 



KEY 



CLEAR 
TAB 



TAB 



TAB 



L 
L 
L 

NT 
L 

KEY 
KEY< 



KEY = 



KEY 



KEY 



THEN 



89 



CHAR 

CHAR 

COLOR 

CHAR ( 

CHAR 

COLOR 



CHAR 
CHAR 
CHAR 
COLOR 



10 



WANT 



89 

CLElAR 
TWO 



THE 
TO 
ELSE 



BOTH 



23 



THEN 
TO 



AGA 
KEY 



THEN 
THEN 

7 
7 
7 



112 



I 

EACH 



BE 



KEY 
THEN 
THEN 



OPPOS 



PRESS 

KEY 
THEN 



960 



OPPOS 



29 . 



FFFFFFFFFFFFFFFF 



UNGLE 
MAN 



SOLD 



2000 
1000 

N? 
S 



580 



960 



(MAZE 



TE 
SAFE 



NSTRUCT 



580 
21 



S 

580 



BLUES+48 



NG 



ERS 



ENTER 

) 



60 



MAZE 
MUST 



RACE 



WI 



ELSE 



ONS 



SOLD 



BORDER 
DO 



) 

8187E1818242424 

FFFFFFFFFFFFFFFF 

) 

49221449142249 
18187E1818242424 

FFFFFFFFFFFFFFFF 



TO 



LL 



ND 



ERS 



NOT 



2250 



START 



TAB 
TAB 



ARE 



COLL 



WAY 
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Tex-Thello 



Tex-Thello is a microcomputer version of the popular 
Othello (a trademark of Gabriel Industries, Inc.) 
board game. The program written in TI BASIC, pits 
the human player against the computer for an exciting game 
on three levels of difficulty: On Level 1 , the computer just 
tries to capture the most markers. On Level 3 (the highest 
level), the computer takes into account the edge squares and 
comer squares — thus providing it with more of a theoretical 
advantage. Level 2 is an intermediate level. The program 
will check for illegal moves (sounding a warning tone within 
30 seconds) and change the color of "captured" markers 
according to the moves. 

Game Rules 

1 . Since the first four squares in the middle of the board 
must be occupied (in "checkerboard fashion") first, the pro- 
gram automatically provides this initial setup. 



2. The player alternates turns with the computer by enter- 
ing the grid coordinates for a move. A move consists of plac- 
ing a color square so that it "captures" (by completing the 
outflanking of) one or more of the opposite color squares. 
The computer will then change all the captured squares to 
the opposite color. 

3. A move must always consist of capturing at least one 
square. 

4. If a legal move cannot be made, it then becomes the op- 
ponent's turn to move. 

5. Capturing may be accomplished horizontally, vertically, 
or diagonally in one or more rows or directions. 

6. The game is over either when the board is filled with col- 
or squares, when it is not possible for either opponent to 
move, or when the board is filled (or partially filled) with 
all one color. The opponent with the most squares is the 
winner. 



EXPLANATION OF THE PROGRAM 
Tex-Thello 



Line Nos. 

160 Dimensions arrays for squares captured. 

170-240 Stores the name "COMPUTER" for player. 

250-400 Option screens; user presses a key for choices. 

410-510 Players input names; stored in PLAY(1,10). 

520-610 Initializes positions of board. 

620-730 Prints labels for game. 

740-920 Defines graphics characters and colors. 

930-980 Draws starting Tex-Thello board. 

990-1090 Draws starting four positions. 

1100-1170 Initializes squares around four center squares; 

starts for first player on move number 5. 
1180-1230 Prints player's name (computer) and black 

squares indicating whose move. 
1240-1330 Player presses column number then row number 

for move. 
1340-1360 Computer prints move. 
1370-1480 Checks for legal move. 



1490-1550 Sets values of surrounding squares to zero. 
1560-1620 Shows move on screen and switches appropriate 

captured squares; increments TURN (number of 

moves). 

1630-1740 Checks to see if board still contains two colors, 
otherwise branches to end of game. 

1750-1790 Changes player number for next turn and bran- 
ches to beginning of main loop. 

1800-2040 Tallies squares for each player and prints score. 

2050-2100 Asks if player wants to play again; branches ap- 
propriately or ends program. 

2110-2250 Subroutine to check if there is a legal move. 

2260-2510 Subroutine to place colored square on board 
where player or computer indicates his move. 

2520-2820 Subroutine to check how many squares may be 
captured. 

2830-2940 Subroutine to color captured squares. 

2950-4240 Subroutine to calculate computer's move. 

EXTRA is the number of squares that can be 
captured; HARD is the level of difficulty (1, 2, 
3). For the different levels, the board positions 
have different values. 
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110 
120 
130 
149 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 

270 
280 
290 
300 
310 



320 
330 
340 
350 
360 



370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 

480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 



INT 



PR 

OW 
CALL 
F 

F 



KEY 
K<49 
ClOlMlPLAY 



REM 
REM 
REM 
REM 
REM 
REM 
DIM 
DATA 
RESTORE 
COMPLAY 



CALL 
FOR 
READ 
PLAY 
NEXT 
PR 
PR 



CALL 



CALL 



PR 
2 

AlME 
CALL 
I 

HIARD 
CALL 



I 

PRI 



I F 
PR 
|W) 



NPOT 



INT 



NT 



COMPUTER 



COlMlPLlAY 
NT 



FOR 
CALL 



NEXT 



FOR 
CALL 
NEXT 
FOR 
I 

NEXT 

FOR 

FOR 



NEXT 
NEXT 
CALL 



PR 
ES 
CALL 
CALL 
FOR 



3 + 2 
Y + 4 



Y 
X 

CD 
CAL 
CALL 
NEXT 
AS 
B$ 
C$ 
D$ 
CALL 
CALL 
CALL 
CALL 
CALL 



INT 



NPUT 



EX 
67 



KEY 
K<49 



50 

CLEIAR 



NTERMED 



KEY 
K<49 



CLEAR 



NT 





CLEAR 



1 

PLAY 



Z1 



TAB 



CHOOSE 



CHOOSE 



RST 



COMPLAY 



48+1 
VCHAR 
VCHAR 



TEX 



18 



CHOOSE 



48 



TO 
GCHAR 
I 



Z1 $ 



TO 
IGCHAR 



TO 



CLEAR 
TAB ( 



CHAR 

cIolIor 

TO 



CHAR 
CHAR 
CHAR 
CHAR 
CHAR 



79 



) + ( 



THEN 



) + ( 



) 

PLIAY 



K 

K>51 



RED 



K 

K>5 



48 



THELLO 



K 

K>50 



19 



96 
97 
98 
99 
104 



ATE 

S ) 



RST 

10 
23 



SECOND 



FFFFFFFFFFFFFFFF 



FF808O8080808O8O 
FFOIOIOIOIOieiOl 
808080808O8O8OFF 

oloioieioioieiFF 



s 

5 

410 



THEN 



(1 
TEX 



PLAYER 



+ 1 



AS 



THEN 



GAME 



COMPUTER 



+ 4 



+ 4 



85 



470 



16 



THELLO 
jONE 

Tlwb 



520 

PLlAYER 



<>0 



84 



THEN 



THEN 



THEN 



PLAY 



PLAY 



SECOND 



PLAYER 
PLAYERS 



EASY 



69 



NAME 



NAME 



THEN 



270 



320 



370 



82 



GAME 
HARD 



PLAYS 

YELL 



RED 



600 



YELLO 



830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
580 
590 



1600 
610 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CAL 

CALL 

TYPE 

FOR 

FOR 



GOSUB 
NEXT 
NEXT 
FOR 
FOR 



I 

TYPE 
A ( X 
GOTlO 
TYPE 
A(X , 
GOSUB 
NEXT 
NEXT 
FOR 

fIor 

I 

A 



GOSUB 



GO 



CALL 



FOR 
FOR 



I 

NEXT 
NEXT 
PL 
TURN 
REM 
FOR 
CALL 
NEXT 
CALL 
CALL 



CALL 



CALL 
CALL 



CALL 



GOSUB 

CALL 

CALL 



GOSUB 



GOTO 



NEXT 
NEXT 
TURNl= 
TYPE = 



TYPE = 
GOSUB 
GOSUB 



RE 



RE 



CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

COLOR 

COLOR 

cIolIor 

1 



ST 



TO 



X>8 
X<1 
Y>8 
Y<1 

( 



sw= 



PL = 



KEY 
STol 



2270 



3 

070 
4 

2330 



2530 

EXTRA>0 



) = 



TO 
TO 
THEN 



5 

BEIGIIN 
TO 
HClHlAR 
I 

VCHAR 
VCHAR 



COMPLAY= 



KEY 
<> 
48 
VCHAR 



SOUND 
C|01MPLAY = 



220 



48 

VCHAR 
370 
2960 

VCHAR 
VCHAR 
THEN 



2120 




I 

TURNf+l 
2 



2270 
2530 



<> 



THEN 
THEN 
THEN 

) 



PLl+2 
1 



105 
106 
107 
112 
3 
4 
5 



114 
11 



MAI 

10 

23 



THEN 



<> 



THEN 



23 
23 

PL 
RE 
THEN 





THEN 



1050 



23 



500 

PL 



BS 
CS 
DS 
AS 
BS 
CS 
DS 
16 



THEN 



THEN 



28 



23 
28 
460 
460 



1460 
460 

THEN 



+ 7 



ST 



1640 
200 



X + 1 
Y + 1 
THEN 



600 



LOOP 



THEN 



1250 

RE 



290 



THEN 



1140 



PLAY 



120 
120 



RE 



48 + X 
48 + Y 



1460 
1490 



540 



PL 



1340 



640 
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620 
1630 
1640 
1650 

660 
1670 
1680 
1690 
1700 
1710 
1720 

730 
1740 
1750 



780 
1790 
1800 

1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 



760 
770 



910 
920 



1930 
1940 
1950 
1960 

1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2 330 
2340 
2350 
2360 
2370 
2380 



60SUB 



GOTO 
A1 
FOR 
FOR 



NEXT 
NEXT 



GOTO 



GOTO 



GOTO 
REM 



T0T1 
T0T2 
FOR 
FOR 



T0T2 



GO 



T0T1 
NEXT 
NEXT 



T0T2 



PR 



PR 



REM 



SI 
S2 
S3 
S4 
IGO 



REGI ON 



INT 
T0T1 



PWI 
GO 
PWI 
FOR 
CALL 
NEXT 



CALL 



STOP 

REM 

REM 

SW = 

ZZX 

ZZY 

FOR 

FOR 



GOSUB 



SW = 

NEXT 

NEXT 



TORN 
PL 
4 

3 



TO 



TOT 2< 



ZZX 
ZZY 



RETURN 



TO 



NT 



1680 



I 

1810 



1190 



1190 

END 



TiOT2 + 1 

1900 
T0T1+1 
I 
I 



K = 89 
K<>78 



EXTRA 



2840 
65 



DRAIWI 
2 050 



KEY 



COLOR 
TYPEol 
96 
97 
98 
9 9 

TO 2430 
TYPE<>2 

04 
105 
106 
107 

TjO 2 430 



AT 



2020 



2 
1 

TlO 
HCHAR 
1 



THEN 



THEN 



MAI 



T0T2 



2530 



<>A1 



<> 



T0T1 



PLAY 



THEN 
THEN 



THERE 



<>0 



THEN 



THEN 
THEN 



SCORE 



1670 



THEN 
THEN 



1780 



LOOP 



THEN 



ONTO 
THEN 



THEN 



THEN 
32 



THEN 



1+1 



AGAI 

) 

180 



THEN 



1810 



WI 



2060 



1890 
1900 



OF 



1720 



NS 
2010 



N? 



LEGAL 



BOARD 
2330 



2390 



AND 



2210 
2210 



750 



950 
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THEN 



ADD 



EXTRA 



COMPUTER 



THEN 
THEN 



3380 
3380 
3260 
3260 
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3180 
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3200 
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TO 

RA: 

TO 
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San Francisco 



Tl 
BASIC 



Tourist 



ii'T left my heart in San Francisco ..." Designed to 
I highlight the sights that abound in and around the 
X City by the Bay, this TI BASIC program is actual- 
ly two games in one. 

First, try your skill at driving down Lombard Street 
between Hyde and Leavenworth. It's on a steep hill and 
is known as the "crookedest street in the world." Use 
the left and right arrow keys (S and D) to steer down the 
red brick road without bumping into the white concrete 
sides — or onto someone's green lawn. 

Now drive north across the Golden Gate Bridge to Muir 
Woods, a beautiful, peaceful forest with some of the 
world's tallest living trees. Start at the upper left corner 
of the screen and take a quiet walking tour through the 
woods. Use the arrow keys to change direction, then press 
ENTER to mark the trees you've seen on your map. 

Programming Techniques 

This game program implements many of the features 
discussed in the article Fun and Games. The title screen 
presents the choice of games, and the player need only 
press the key of his choice (wrong keys are ignored). The 
program will then branch to the appropriate game, and a 
screen of instructions is printed. The screen stays on the 
instructions only as long as the player wishes. The player 
can just press any key when he is ready to start the game. 

Crookedest Street uses scrolling during printing to 
simulate the road going past. A DEFinition statement 
near the beginning of the program on line 170 defines 
a random coordinate R between -3 and +3. A line of 
road is printed offset R from the previous line. Lines 820 
to 850 make sure the road line stays on the screen. 

Both games move an" object (represented by one 
graphics character for simplicity and speed) by using the 
arrow keys. In Crookedest Street only the left and right 
arrow keys are used. The car is always drawn on Row 
7, and the arrow keys determine whether the car is drawn 
in the same column, two columns to the left, or two col- 
umns to the right. Lines 930-980 keep the car on the 
screen. In Muir Woods the person may move up, down. 



left, or right, but will not wrap— staying at the edge, in- 
stead. The person will also continue to move in one direc- 
tion until another arrow key is pressed; the character is 
moved in each CALL KEY loop. 

CALL GCHAR(X,Y,G) is used in both games. In 
Crookedest Street you need to know if the new position 
of the car is a red square (okay), a white square (crash), 
or a green square (fatal crash). After the new car posi- 
tion is drawn, the old position must be replaced by the 
appropriately colored square. 

Muir Woods uses GCHAR to determine positions of 
trees for marking. Also, the person leaves a trail. So if 
the square was a blank, the trail is printed; but if it was 
a tree or a marked tree, that character stays there. 

Muir Woods also demonstrates the use of a timer or 
counter in the CALL KEY loop. You may change the 
value 100 for SH in Hne 1910 for more or less time. 

I wanted to use [ENTER] as the key to press for "fir- 
ing," so the split keyboard method of detecting the "fire" 
key was not possible. If you use the split keyboard you can 
alternate calling the halves of the keyboard and detect the 
"fire" key sooner, but since the codes are different for the 
99/4 and the 99/4A consoles, the game instructions would 
have to be different. [ENTER] is not detected on the 99/4A; 
you must press the period to return key code 13. In these 
games the quickest way to detect [ENTER] is to let go of 
the arrow keys before pressing [ENTER]. flBBi 



EXPLANATION OF THE PROGRAM 
San Francisco Tourist 

Line Nos. 

150-170 Defines functions to be used as random 
coordinates. 

180-240 Clears screen; defines graphics characters for 
bridge. 

250-380 Prints bridge and title; if the program is just 
starting, plays "I Left My Heart in San 
Francisco." 

390 Prints choices of games. 

400-420 Defines graphics characters for games. 



260 The Best of 99'er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



430-460 Receives player's input and branches 1180-1210 

appropriately. 1220-1250 

470-500 Subroutine to press any key to start. 1260-1290 
510-530 Subroutine to delay. 

540-610 Prints instructions for Crookedest Street; 1300-1400 
defines graphics characters; waits for player 

to press a key. 1410-1470 

620-750 Clears screen; defines graphics colors; prints 

game screen. DATA contains coordinates for 1480-1520 
printing road. 

760-780 Initializes coordinates of road and car. 1530-1540 
790-860 Prints 75 lines of crooked street randomly; 

last 15 lines are straight. 1550-1860 
870-980 Makes sound, draws new position of car 

depending on key pressed; replaces old posi- 1870-1920 

tion with proper graphics character. 

990-1070 Tests for crash; makes a sound and in- 1930-2010 

crements number of crashes. 2020-2100 
1080-1170 Ending remarks; plays victory melody for 

zero crashes . 2 1 1 0-2 1 20 



Procedure if car goes into green. 
Delays, then waits for player to press a key. 
Clears screen; returns colors to black; bran- 
ches to menu screen. 
Prints instructions for Muir Woods and 
defines graphics characters and colors. 
Clears screen, randomly draws 70 trees on 
screen. 

Initializes time, marked trees, coordinates, 
graphics. 

Places person at entrance and sounds initial 
beep. 

Moves person depending on key pressed. Per- 
son will not "wrap" but stays at edge. 
Increments time and prints time; if time= 100, 
ends game. 

Procedure for marking tree. 

Ending statements; returns colors to black; 

branches to menu screen. 

Ends program. 
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160 
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240 
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I 
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I 
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RETURN 
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1990 

1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
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1220 
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COUNTY 
FAIR 
DERBY 



Tl 
BASIC 




J.la> 




County Fair Derby is a party game in which up to 
eight players bet on horses in a color-animated 
race. Our family finds it quite exciting— especially 
with three or more players. There is, however, only one 
keyboard operator; the rest is up to the computer. In ad- 
dition to running the five horses, the computer keeps tabs 
on each horse's track record, plus the bankroll of each 
player. The program operation is simple and self- 
prompting. To break the input loop, the word LAST 
must be entered. If this word is misspelled, it then 
becomes just another player's name. When this TI BASIC 



program was loaded into Extended BASIC for the pur- 
pose of checking available memory left, the SIZE com- 
mand revealed that there were 4873 bytes left. This leaves 
enough memory for you to add to, or use to modify the 
program. You might try giving the computer a fixed 
amount of money before the races start and having the 
players try to "break the track." Other bells and whistles 
1 leave to your imagination. Here's hoping you enjoy the 
program as much as 1 enjoyed writing it. But don't waste 
another minute. It's already post time — the horses will 
soon be off and running .... 



EXPLANATION OF THE PROGRAM 
County Fair Derby 



Line Nos. 

140-340 Introduction display and odds table. 
350-420 Introductory music and wait for key. 
430-1060 Initialization and define characters to be used 
for display. 

1070-1560 Input routines: players' names, choices for horse 
selection, kind of bet and amount. Typing 
LAST for player's name breaks the INPUT 
loop. 

1570-1810 Draws track with lane numbers and plays post- 
time tune. 

1820 Z is a switch to control RETURN from 

subroutine at 2490. 

1830-2020 Positions horses on the track in the proper place 
and color (subroutine at 2490 draws horse and 
RETURNS if Z equals 1). 

2030-2190 Rests Z; sets starting coordinates for horses (K 
and S are variables used later in determing win, 
place and show.) Waits for "S" key to start. 

2200-2460 Generates random number from one to five to 
determine which horse to move. Line number 
2220 (ON N GOTO) finds position of horse, 
sets coordinates for move routine and jumps to 
move routine. (If the vertical coordinate has 
been set to zero, the horse has finished and the 
program jumps back for a new random 
number.) 

2470-2600 Moves horse through an animation loop and 
redraws it two positions forward from where it 
started. ("Q" is used as a control switch to pass 
through the loop twice.) 



2610-2830 Checks if V>28 (end of race for that horse); 

if not, sets new coordinate values and jumps 
back for new random number. 

2840-3120 Calculates the finishing horse (D). If S equals 
0, the horse wins. Set S equals winning 
number. Line 2870 (ON S GOSUB) sets color 
for winning announcement. Line 2990 (ON S 
GOTO) sets column to zero to remove horse 
from race; jumps back for a new random 
number and continues. If S< >0, then the 
finishing horse becomes K for second place 
and, (except for setting color) a similar 
routine is followed. If KoO, then D 
becomes the third place horse and the race 
stops. 

3130-3510 Displays win, place, show announcement and 
waits for key. 

3520-3870 On KI(X) goes to the kind of bet player (X) 
made. Checks to see if player (X) has won 
and calculates the amount. If there are winn- 
ings, goes to subroutine 4090. For no winn- 
ings, GOSUB 3970. On return goes to 3880. 

3880-3960 Increments (X). Checks to see if four results 
have been displayed; if so, goes to 4130 and 
waits for key before returning for next results 
(3550); if not over four, goes directly to 3550. 

3970-4010 Subroutine to update and display losers. 

4020-4080 Subroutine to update and display losers in 
debt. 

4090-4120 Subroutine to update and display winners. 
4130-4160 Wait for key and check for LAST before 
continuing. 

4170-4290 Update past records and display for players 
betting on trends. Wait for key. 

4300-4340 Loop back for INPUTS of next race. 

4350-4380 Data for music. Use 

"break" key to end program. 
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109 
110 
120 
130 
135 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 

240 
250 
260 
270 

280 
290 
300 



REM 
REM 
REM 
REM 
REM 
CALL 
ICALL 
FOR 
CALL 
NEXT 
CALL 
PRINT 
PHI NT 



PR 
PR 
S : 
PR 
PR 
IPR 
PR 



CALL 



PR 
IPR 



310 PR 



3 2 
3 30 
3 40 
350 
3 6 
3 7 
380 

3 9 
400 
410 

4 2 
430 
4 40 
4 5 
460 

4 7 
480 
490 
500 

5 10 
5 2 
5 3 
5 40 
5 5 
5 6 
5 70 
5 8 

5 9 

6 00 
610 
6 2 
6 3 
6 40 
6 5 
6 60 
6 7 
6 8 

6 90 

7 
710 
720 
7 3 
7 40 
7 5 
7 60 
7 70 
7 80 

7 90 
80 
810 

8 20 
8 30 



H$ 
H$ 



PR 

CALL 



PR 
PR 
P R 
pilM 
H$ 
HS 
IBS 
H$ 
HS 
H$ 



READ 



CALL 
GOTO 



CALL 
ICALL 
CALL 
RESTlORlE 



ICALL 
NT 



H$ ( 
H$ ( 
|H$ ( 
IHS ( 
HS ( 
HS ( 
HS ( 
IHS ( 
HS ( 
HS ( 
HS ( 
HS ( 
HSU 
HS ( 
HS ( 
HS ( 
HS ( 
HS ( 
IHS ( 
HS ( 
HS ( 
|HS ( 
HS ( 
HS ( 
HS ( 
IHS ( 
HS ( 
HS|( 



DU 



NT 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



CiLEAR 
C 



= 3 

CI 
I 

HlCHlAR 



DU 



COUNTY 



LOR 
TO 
LlOR 



TAB 

Itab 

TAB 



> 

<4> 
HlCHAR 



EACH 



HCHAR 
VCHAR 
VCHAR 



316 

PRESS 



KEY 
STAT 



HS ( 



UND 



CiLEAR 
TAB 
iTAB 
TAB 



50 



M= 
) = 
) = 
)\= 
)\= 
) = 
) = 
) = 
) = 
) = 
) = 
) = 
)}= 

> = 
) = 
) = 
) = 
)h 
)h 
)h 
) = 
) = 
) = 
) = 

> = 
) = 

)l= 



24 



PARLAY<P 



4370 

NO 
THEN 



WI 
PLACE 
SHOW 
PARLAY 



24 



24 



300 



O0Oe08080FlF3pFe 
0F0F10204Oe0O0OO 
FOFO08O4O2OOeoe0 



0poe00O06OlE3EFO 
0F0F0804O2O000e0 



Oe000F1F30OO0OO7 
0OeO1F3F310OP0O3 



0000070706060 707 



KEY 
THEN 

7 
7 

11 



FA 



CiOUNTYl 
F I 



YOU 



30 



42 



42 

ICK 



PLAYER 



ANY 



STAT 
410 

HANji 
GOTTA 
HORSElS 



'|O0OOCOE060606OE0 
00O0COE0FO7O7 OEO 
0O0O6OEOEe606O60 
0O00F0F00O0OC0F0 
010101010 7 7 000 
lFl830303F3F0e00 
03000031 3F1F0OO0 



42 
42 
42 



DU 



DERBY 



29 



VE 
CAlN 



FAI 
HiORSE 
BET 



PAYS 
PAYS 
PAYS 
PAYS 



KEY 



808O8O8OE0EO0 000 
pOOeOOOOEOEOp 000 
EO707OFOE0C000pO 
F1F160606060p0e0 
71111111F0E0pop0 
0000303030303131 
eOO0OC0COCOC8C8C 
0O0O3C3C18181 818 
0000303O3C3E3733 

poooocococococsc 

0O0O3F3F3O3O3O3F 
F C F C C F C 
llFIFlFIElClCOeOO 



29 
24 ) 
24 



NO 



14 

1ST 
IS 



61 



ON 
IGET 



VEN 



DERBY 

raceI 

FIOUR 



15 



AND 



THE 



TO 



2ND 
S20O 



AY 



8401 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
10501 
1060 
1070 
1080 
1090 
1100 



1 1 1 P R I 



1120 
1130 
1140 
1150 
1160 



HS 
HS 
HS 
HS 
HS 
HS 
p 
IK 
FOR 
CALL 



K + 1 

INEXT 



PR 
PR 



INPUT 
F 



PRI 
YERS 



PR 



1170 
1180 
11901 
1200 
1210 
1220 
1230 iPR 



IGOTIO 
TOT 
ICALL 
GOSUB 
GOTO 



1240 
1250 
1260 
1270 
1280 
1 290| 
1300 
1310 

1320 
330i 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
14101 
1420 

1430 
1440 
1450 
1460 
1470 
1480| 
1490 
1500 

1510 
1520 
1530 
1540 
1550 



INT 
RSE 
INPUT 
HO 
OTO 
OSUB 
iOTlO 
IPR 



NT 
IRETURN 



PR 




37 
38 
39 
40 
41 
42 
120 



OTO 
CALL 
CALL 
CALL 
ICALL 
CALL 
CALL 
CALL 
ICALL 

cIall 

X 

call 



F 

lOTlO 



D>152 



NT 
INT 



NT 



NAMES 



X> 



NT 



INT 



GO 
PR 



NT 

I NT 
INT 



PR 

PR 
PR 
PRINT 
|P R I N T 
INPUT 
K 
K 

;|OT|o 

IGOSUB 



TO 
INT 



$200 

NPUT 



GOTO 
GOSUB 



BET 
OTIO 
IGOSUB 
OTO 
X + 1 
RE TURIN 
I NT 
WI 
PRINT 
NPUT 
PA2 



T|0 
CIHAR 



910 

CLEAR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
CLEAR 

CLEAR 
TYPE 
AFTER 



1190 



1310 

1290 
1240 



HAS 



NAME 



1120 
)=20O 
CLEAR 
1230 
1080 



1420 
1290 
1360 



1488 

1290 
1430 



F8F8F8F83838Oe00 
1818181830300000 
3130303030300000 
CCEC7C3C1COCOO00 
3F0OOe303F3F0000 
FCOCOCOCFCFCOeOO 



THEN 



) 

THEN 



I GHT 



TYPE 



HORSE 



NUM 



WHAT 



<2> 



<4> 



BET 



1420 
1290 



WH 



HOW 



YOU 



PLiACE 
>5 



D + 7 
HS 



BEEN 



? 

TIHEN 



ND 



LAST 



980 



THE 



12 



PLAYER 



LAST 
1160 



TOO 



THEN 
THEN 



MUCH 



200 



CH 



WI 
PLlACE 
SHOW 
PARLAY 



NAMES 



THE 



TO 



NAMES 



HO 
1270 



ND 



THEN 



BET 
THEN 



I CKED 



HORSE 



LAST 



ENTERED 



THEN 



MAX 



CONT 



NAME 
PLAYER 



1500 



PA2 



I G 



OF 



DO 



1550 



NUM 



TYPE 



1570 



TRY 



BET 



YOU 



X) 
1460 



NAM 



LAST " 



OF 



PLA 



NUE 



CK 



AGAI 



TO 



4> 



BET 



HO 



PLACE 



$1 



264 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



OTO 
ICALL 
PR 



INT 



CALL 
FOR 



PR 

NEXT 
CALL 
CALL 
CALL 

x[=ie 

Y 

FIOR 
CALL 
|X = X + 1 
NEXT 
RESTlORE 



READ 
I 



CALL 
GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 
Z 



10 



OSUB 



GOSUB 



GOSUB 



IN 
ON 



DU 



20 



28 



36 



G|0 S U B 
52 



OSUB 



CALL 



GOTO 



GOTO 



GOTO 



5 

CL AR 



144 
16 



18 



14 



C|0 PR 
TK) 

X 

CH R 
HC AR 
HC AR 



TO 
HC AR 



S|0 ND 

7 

HC AR 

HC AR 

HC AR 

HC AR 

HC AR 



2 90 



2 90 



RANDOMI 



NT 



20 



28 



KEY 



PRESS 



STAT S 



4350 

NO 
THEN 



2 90 



2 90 



2 90 



KEY 



83 



21 



ZE 



GO 



24 



24 



22 



119 



20 



10 



THEN 



THEN 



200 

10 
12 
14 
16 
18 



RND 



1770 



KEY 



THEN 



)+1 



2230 



TO 



81C366181866C381 



119 



42 



DO 



THEN 



2200 



2200 



11 



S T A T U S 



START 



,30 

9 .301)1 



29 



Nb , 5 ) 



2160 



2200 



2 2 80.2330,2380,2430 



2350 

2360 

2370 

2380 

2390 

2400 

2 410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2 5 50 

2560 

2570 

2580 

2590 

2600 

2 610 

2620 

2630 

2640 

2 6 5 

2 6 6 

2670 

2 6 8 

2 6 9 

2 7 00 

2710 

2 7 2 

2 7 30 

2 7 40 

2 7 5 

2 7 6 

2 7 70 

2 7 8 

2 7 9 

2 8 

2810 

282 

2830 

2 8 40 

2850 

2 8 6 

2 8 7 

2 88 
2 8 9 
2 9 
2 910 
2 9 2 
2 9 3 
2 9 40 
2 9 5 
2 9 60 
2 9 7 
2 9 80 

2 9 9 

3 00 
3010 
30 2 
30 30 
3 40 
30 5 
30 60 
3 7 
3 80 
3 90 
3100 
3110 
3120 



IF 

|D = 
GOTO 

|v= 

IF 

|D = 



36 



144 



52 



GlOTiO 
R 

Vl= 
|D| 
I IF 

|C A L L 
C A L L 
C A L L 
C A L L 
C A L L 
C A L L 
CALL 
IF 





RlETURN 



IF 
Q = 
V = 
p = 
6 
p 
ON 
llF 
V 

I IF 
IF 
IF 
IF 
G = 

Pr 

G 

\r\= 

B 
G 
E 

F|= 



1 

vk-1 

D + 4 
TO 



V + 1 



lOjN 
I 

IK 

PIN 
B 
G 
F 
G| 
H 
G 
I 

G| 
P 
G 



V>28 



TO 



TO 



TO 



TO 



I 

1 = 
G 

0= 
P = 
G 

Pr 

IF 
S = 
p|N 


GlOTto 
|C A L L 
RETURN 
|C A L L 
RET 
CAL 



RETURN 



RETURN 
CALL 
RETURN 
ICAL 



RETURN 



2470 



2470 



HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
SOUND 



2470 



TO 



TO 



TO 



TO 



TO 



THEN 2 2 00 



THEN 2 2 00 



THEN 



THEN 



THEN 2 610 



GOTO 



KoO 



THEN 2 8 40 



THEN 2 7 20 

THEN 2 7 50 

THEN 2 7 80 

THEN 2810 



2200 
2200 
2200 
2200 
2200 



GOTO 
2200 
2200 
2200 
2200 
2200 



2200 

iR|.V-1 
(R + ll.lv 
( R . V 
(R , V 
RH-1 
{ RH-1 
(M, 71010 
2560 



) / 8 
TH ElNl |3lO|O0 



GOSUB 2 890, 



42 



V 

vh-i 



D + 1 ) 
D + 2 ) 



2 910,2930 



2990 

C0L0R|(|9{,|2|,I14 



COLOR (9,1 5 , 
N 

COLOR (9,1 5 , 
N 

COLOR (9 ,2 ,7 
N 

COLOR (9 ,2 ,5 



3 30 , 
THIEN 3113 



42 ) 



DH- 3 ) 



305 01, 307 , 

3|Ol3|0|,|3O5 0|,|3|0|7|o|, 



2 950,2 97 



5 90 . 
30 9 , 



3110 
3110 
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31301 

3140 

3150 

31601 

3170 

3180 

3190 

3200 

3210 

32 201 

32301 

3240 

32501 

3260 

32 70 

3280| 

3290 

3300 

3310 

3320 

3 3 30 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3 41 0| 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3 5 30 

3540 

3 5 50| 

3560 

35 70 

3580 

3590 

3 600 

3610 

3620 

3 6 301 

3640 

3650 

3 6 60| 

3 6 7 

3 6 80 

3 6 90 

3 7 00 

3 7 1 

3 720 

3 7 3 

3 7 40| 

3 7 5 

3 7 60 

3 7 70 

3 780 

3 7 9 

3 800 

3 810 

3 820 

3 8 3 

38 40 



X 

fIor 

CALL 



X + 5 
IN EXT 
FOR 
CALL 

V + 1 
■NEXT 
V 

H = R + 1 
FOR 
CALL 

V + 1 
IN EXT 
ICALL 
CALL 



PR 
PR 



PR 

CALL 



F 

[ON 



BET 
BET 



22 
10 

S+8 



Y 

FOR 
CALL 
ICALL 

V + 1 
INEXT 
Q 



23 



I 

Rh 
V 

P 
Y 

GOTb 



CALL 
CALL 
X 

ll 



I 

Hp 
[GIOSUB 
GOTO 



GOSUB 
GOTO 



I F 
I F 
IGOSUB 

(got|o 

BET 
IBET 
GOSUB 

IgotIo 

I F 
I F 
I F 



GOSUB 

[goto 

BET ( 
BET 
iGOSUB 

[goto 

I F 



I F 
GOSUB 
IGOTO 



NT 



CHAR 



TO 
HCHAR 



TO 
HCHAR 

Y 

CjOLlOR 
COLOR 



Y T|0 
CHAR 
HCHAR 



TO 



THEN 



3360 

TAB 



KEY 
STATUS 



NA|ME$ 
K 



COLOR 
CLEAR 



HO 
HO 
H0( 



H0( 
PA2 



3970 
3880 



BET 
NT 
4090 
3880 



TAB 
PRESS 



3970 
3880 

)|=BET 
NT 
4090 
3880 



Y + 6 
103 + Y 

( 



) = 



X 

3970 
3880 

BET 
NT 
4090 
3880 

<> 



3970 
318 8 



4 

95 + Y 



3470 



)iG|0T0 

THEN 



H$ 



95 + Y 



95 + Y 



ANY 



KEY 
THEN 



LAST 
3570 



X 
BET 



THEN 
THEN 



X 
BET 



THEN 
THEN 
THEN 



X 
BET 



H$ 



103 + Y 



12 



PLACES! 
SHolwjs 
KEY 



STATUS 
3500 



3600 



THEN 
THEN 



3680 
3680 



3770 
3770 
3770 



28 + Y ) 



THEN 
3640 



100 + 



100 + 



100 + 



3830 
3850 



4130 
137 20 



) / 



100 



100 



3810 
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EXTENDED 
BASIC 

SPRITE 
CHASE 



Wait . . . Wait . . . Wait . . . When will they get 
here? Wait . . . Wait . . . Wait . . . "Hi dear, 
anything in the mail today? Did you look between 
the doors? Oh. Shucks." 

"Hello Ginny. What? You accepted a package from UPS 
for me? Great! Could you get it for me? Thanks." 
"See you later dear, I'll be downstairs." 

They're here . . . 
The SPRITES are here . . . 
NOW, WHAT CAN I DO WITH THEM? 

Skim through the manual, page 25. Uh huh. OK. Yeah. 
This looks great! Let's get a little deeper. Page 64. Oh, oh. 
Looks like the ALL option of COINC doesn't tell you which 
SPRITES "coincidenced." I hope someone can find out 
where to PEEK for this. 



Now, what shall I do with them? Something simple. 
Design some cute characters? No, let's just get those 
SPRITES moving. Since it might take some time for 
COINC (ALL,. . . ) to figure out which SPRITES are coin- 
cidental, I'll stick to one SPRITE versus another. How 
about a series to chase? Numbers . . . Letters . . . ROTA- 
TION . . . That's it . . . 

A short game chasing the 10 numbers or a longer game 
chasing the 26 letters. I'll try the MAGNIFY too. I'll need 
a numeric variable for the COINC tolerance for that. I guess 
8 for normal size and 16 for double size. I'll generate the 
number or letter SPRITES to go any which way at some 
speed between -25 and 25. I'll stick to the 8 directions 
around the arrows for the chaser or else I'll get so tangled 
up in the math that I'll never move a SPRITE. Wish 1 had 
joysticks. I guess some kind of clock would be good for 
scoring. 

Well, here we go! 



EXPLANATION OF THE PROGRAM 
Sprite Chase 



Line Nos. 

170-200 instructions. 
210-280 Set up variations for play. 
290-300 Reset for start of game. 
310 Make clock numbers reverse image. 

320-330 Put the Chaser somewhere in middle of the 
screen. 

340-360 Create the Chasees. 
370-390 The chase has begun. 

400-450 While waiting for a direction key to be pressed, 
keep the clock going and check for a coin- 
cidence when the Chaser is stationary. 

460-530 Start the Chaser in the direction of key pressed. 

540-590 While awaiting release of direction key, check 
for a coincidence when the Chaser is moving; 
keep clock going. 



600-610 Stop the Chaser; wait for another key to be 
pressed. 

620-650 Caught one; go for the next one. 
660-710 End of game. 
720 That's it. 

A FEW POSTSCRIPT NOTES: 

If a SPRITE is moving slowly in a vertical direction, it might go 
off the top or bottom of the screen for a while, but it can be caught 
there. 

If you insert COINC statements between a lot of the instructions 
and check the HIT field, you probably would reduce the number 
of times a coincidence is missed. 

If you leave the Chaser in its original position, all targets will even- 
tually pass through it. I wonder how long this would take? 

(If it sounded like I was talking to myself, I was! Doesn't 
everyone???) 
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109 
110 
120 
130 
140 
150 
160 
170 
180 



190 
200 



210 
220 
250 



240 

250 
260 
270 



280 
290 
300 
310 

320 
330 
340 
350 

360 
370 
380 
390 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
CALL 



PR 
W 
RS 



PRINT 
AOR 



PR 



PR 



CALL 
F 



NT 
R 

lOR 



YOU 
NUMER 



LETTERS 
KEY 
STATUSh 
|g|0T = 78 
I F 



9) 
CALL 
CALL 
FOR 
CALL 
ND 
NEXT 
CALL 
FOR 
CALL 



iG|OT = 
ELSE 



NT 



F 
Y( 
10 
PR 
R 

CIALL 
F 
F 

LSE 
64 

CALL 
RANDlOlMll 
COUNT 
CALL 



NT 



NT 



KEY 
STATUS 



50 



SPR 



CLEAR 
USE 



NUiMBERS 

MUST 



GOT 
ELSE 250 
CLEAR 
ZE 



C 

PRESS 



76 



FOR 



COLOR 



SPR 
25 



CHAR 
SPR 



SOUND 
TO 
CIOLIOR 



TE 



THE 
KEYS 



TE 
T|0 
TE 



CATCH 
SEQUENCE 



FOR 



GOT 



THEN 
76 



96 



INT 



CHASE 



GlOT 
THEN 
THEN 
GOT 



FOUR 



TO 



FOR 

SlMlALL 



STATUS 
210 



NUMBERS 
PRESS 



THEN 



28 

TARGS 



#A 



ff A 



100 

TARGS 



TARIGS 
THEN 



CHASE 
PRI 



16 



83 



STATUS 



FFFFFFFFFFFFFFFF 



16 



A + CH 
RND 



555 



250 



96 



ARRlOW 
THE 



THEN 



PRESS 



50 



NT 
THElM 



10 

TARGS 



CALL 



90 



25 



LARGE 
TARGETS 



CALL 



T = 



90 



120 



KEYS 



26 



IN 
PR 



COLOR 



120 



INT 



CH 



MAGNI 
ELSE 



LETTS 

ALPH 
INT 
TARGETS 



AND 



47 



CH 



NT 



FO 



410 
420 
430 
440 
450 
460 

470 

480 

490 

500 

510 

520 

530 

540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 



CALL 
COUNT 



DI 



CALL 
HI 



30 



F 
30 

CALL 
CALL 

HI 
COUNT 



DI 



SPLAY 



STATUS 



GOT 



GOT 



30 



GOT 



SPLAY 



F 

CALL 



GOTO 
CALL 
CALL 
CALL 
NEXT 
CALL 



PR 



CALL 



GOT 



GOT 



GOT 



STATUS 

IION 



KEY 



COI NC 



GOT = 



COUNT+1 



69 

GlOTO 
88 



GOTO 
!GiOT = 68 
GOTO 



KEY 



COI NC 



COUNT+1 



AT 



83 

GIOTIO 
87 



(GlOT 



GOTO 



82 

IGOTIO 
90 

iGOTiO 
67 

IGIOTIO 



STATUS 
GOT=89 
NT 



IMOT 
400 
DELSPR 
SIOUND 
ION 



MOT 
A 

CHARSET 
YOUR 
PRESS 
KEY 



AT 



24 
28 

THEN 

THEN 
THEN 
540 
THEN 
540 
THEN 
540 
THEN 
540 
THEN 



THEN 

540 
THEN 

540 
THEN 
540 
GOT 
( #28 
THEN 



540 



TE 
100 



STATUS 



) 

it A 
620 

400 
CALL 

CAL 

CALL 

CALL 



CALL 



S 

THEN 
28 



28 



SCORE 
Y 



IGIOT 
THEN 



THIEN 
BYE 



STATUS 



» A 
620 



MOT 



MOT 



MOT 



CALL 



CALL 



CALL 



690 
280 



TO 
STATUS 



ZE 
540 



MOT 



MOT 



MOT 



MOT 



MOT 



COUNT 



HI 



ION 



ION 



ION 



I ON 



I ON 



I ON 



ION 



I ON 



PLAY 



COUNT 



COUNT 



28 



28 



28 
28 
2 8 
28 
28 



28 



AGA I 



30 
30 




30 



30 
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DOGFIGHT 



DogHght is a two-player game written in Extended 
BASIC. Each player has control of one aircraft— a 
biplane. You must outmaneuver your opponent and 
shoot him down before he can do the same to you. If both 
planes crash into each other, the score will not change. The 
first player to destroy 10 enemy aircraft wins the game. 

Your plane is controlled with four directional keys. Unlike 
most games, the key pressed will not cause your plane to 
immediately move in that particular direction. For exam- 
ple, if your plane is traveling down and to the right at a 
bearing of 135 degrees and you press E or the up arrow, 
your plane will turn its nose up and first change its heading 
to 90 degrees, then to 45 degrees, and finally to due north— 
i.e., straight up. This gives the plane a more realistic move- 
ment and makes unrealistic, 180-degree hairpin turns 
impossible. 

To make a 180-degree turn to go due west, you must first 
press either E or X to indicate the upward or downward 
turn. Pressing S, the left directional key, will have no ef- 
fect. In a similar way, the player using the right-hand side 
of the keyboard uses I, J, K, and M to move the plane. 
(If you have the overlay for the Video Games Command 
Cartridge, you might find it convenient.) 

Pressing the F and H keys will fire the guns, but only one 
shot can be fired at a time. Each shot has a limited range and 
cannot be carried over the edge of the screen to the opposite 
edge. You can't terminate a bad shot; it must first go off 
screen. The limit of only one shot at a time was placed in 
the program so that the computer could make accurate coin- 
cidence checks with rapidly moving objects on the screen. 

Four levels of difficulty make the game easy enough for 
beginners and challenging enough to hold the interest of ex- 
perts. The higher the level of difficuhy, the faster the planes 
and shots will move. The option to fly a day or night mis- 
sion will change the screen color to either light blue or black. 

Features of Extended BASIC Used in Dogfight 

For you 99'er readers who are also programmers. 
Dogfight illustrates many features of Extended BASIC. 

Lines 190-280 define special graphics characters four at 
a time. Then line 290, CALL MAGNIFY(3) indicates that 
sprites will actually consist of four regular size characters, 
and only the first character number needs to be specified. 

CALL SPRITE(#1,%,2, 120,20,0,5) defined Sprite #1 (the 
first plane) as characters 96, 97, 98, and 99, black, starting 



in dot-row 120 and dot-column 20, and going zero velocity 
up or down, and to the right at velocity 5. More than one 
sprite may be defined at a time, as in line 310. 

CALL DELSPRITE(#1) deletes Sprite #1, and more than 
one sprite may be deleted at a time. This statement is used 
when the planes are hit or they crash, or when the bullet 
leaves the edge of the screen. 

Complex IF-THEN-ELSE statements are used in lines 
530-780 to determine in what direction the plane is headed. 
CALL PATTERN then draws the plane depending on its 
heading; all other sprite characteristics remain the same. 

CALL POSITION(#l,Bl,B2) in line 1000 returns the row 
and column position of Sprite #1 so the bullet can be shot 
from that same position. 

CALL MOTION can change the motion of a sprite 
without affecting other characteristics. 

CALL COINC(#2.#3,3*V,PC) determines if Sprite #2 (se- 
cond plane) and Sprite #3 (bullet from first plane) are coin- 
cident within a tolerance of 3*V. If so, a value of - 1 is 
returned for PC. Coincidence is reported only when the 
CALL COINC statement is actually executed during the 
program. At greater velocities of the sprites, coincidence will 
not be detected if the program is busy elsewhere. 

There are several ways to avoid concidences not being 
detected: 1) CALL COINC more often; 2) increase the 
tolerance level with increasing velocity; or 3) increase the 
execution speed so that the CALL COINC statements are 
executed more often. But, as with many programming pro- 
blems, the solution involves a trade-off: The first slows down 
other action; the second could have planes crash when 
they're not touching; the third means cutting back on other 
types of action. One low-cost way to speed up execution, 
however, is to use multiple statements per line: CALL 
MOTION (#1,0,V):: RETURN executes faster than two 
separate lines with those statements. 

Although kept to a minimum, the coincidence problem 
does still exist in this program: Once in a while a bullet will 
pass right through a plane. You'll just have to visualize a 
three-dimensional situation— a bullet passing directly over 
or under the plane but at a different altitude. Also, once 
in a while a bullet won't disappear at the edge of the screen, 
but will "wrap." Just consider it a stray bullet— a frequent 
occurrence in a real dogfight. 
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Line Nos 

170 
180 

190-290 



300-340 
350-360 
370-420 
430-460 
470-490 

500 
510 

520-660 



670-810 
820-850 



860-890 
900 

910-980 
990 

1000-1100 
1110-1180 

1190-1210 

1220-1340 



1350-1410 
1420-1490 
1500-1560 
1570-1630 
1640 

1650-1680 
1690-1720 



EXPLANATION OF THE PROGRAM 
Dogfight 



Clears screen, makes screen light blue. 
P is the orientation of Plane 1; PI the orientation 
of Plane 2. 

Defines special characters for graphics. Using 

CALL MAGNIFY(3) allows sprites to be defined 

as 4 regular-sized graphics characters. 

Draws title screen with two planes and sound. 

Receives players' names for scoring. 

Allows choice of one of four options. 

Allows choice of day or night mission. 

Starts Dogfight with planes going toward each 

other at velocity V. 

Waits for players to press key. 

If no key is pressed, branches to checking 

coincidence. 

If key on left half of keyboard is pressed, 
checks which key and either moves Plane #1 that 
direction or shoots. 

If key on right half of keyboard is pressed, 
moves Plane #2 appropriately or shoots. 
Checks for coincidence between bullets and planes 
or between planes. If the sprites are coincident, 
branches to section of program for crashing. If 
not, continues sound of flying. 
Deletes the bullet at the edges of the screen. 
Returns to line 500 to check players' action. 
Subroutines to move Plane #1 the correct direc- 
tion after turning. 

Returns if a bullet from Plane #1 is in motion. 
Starts a bullet from the plane. 
Subroutines to move Plane #2 the correct 
direction. 

Returns if a bullet from Plane #2 is already in 

motion; otherwise shoots from Plane #2. 

Procedure if planes crash into each other; makes 

crashing noise; draws planes falling; deletes sprites 

at the bottom of the screen. 

Procedure if Plane #1 is shot. 

Increments score for Player 2 and prints score. 

Procedure if Plane #2 is shot. 

Increments score for Player 1 and prints scores. 

Ends game if either player's score is 10. 

If score is less than 10, players may choose to try 

again or stop. 

Prints final score and ending remarks. 



109 
110 
120 
130 
140 
150 
160 
70 
180 
190 



200 
210 
220 
230 
240 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

CALL 

P = 1 

CALL 



217070 



CAL 



6FFFF7E4A0202209O086CFAE9D8 



8' ) 
CALL 



CALL 
B1 



CALL 



00804 

CALL 



DOG 



CLEAR 

PI 
CHAR 



CHAR 



FFF7C524e4e 



6070703O60E1 
OCO80COE0F0 



CHAR 



CHAR 



CHAR 



CHAR 



IGHT 



96 



100 



104 



108 



112 



116 



CALL 



OO00Oe0O8lC0E2F73F3E 
7DFDFF05FD 



0000010204090106070 
B07CDC9 



EE0OOCOFCFEFEFEFEFCC0C 



E9D4B3C1O08043O3C383CF8F 
OEOCO 



0FO1077FFFFFFFFF7F0 



O4O910365F971BOD3E3 



SCREEN 



000000001 



F80BEBFFFA 
EFFCFCF 



00000000050811 2 74F1 
FBO60C08OE 



2 5|0| [CIA L L 
2 6I0I CIA L L 



2 70 CALL 



F7F7F3F03O007787O60COEOEO60FEFF 
FFFFEE08OFO 



301O7e703O00OO0OOOO00AO1O88E4F2 78 
9D27CO81O20 



2 80 CALL 



2 90 
300 
310 

3 20 

330 
340 
350 



3 60 



3 70 
3 801 
3 90 



3eiC1Fe3OOOOFC78387OF0604080O4OCO 
C38F0C0 

jCALL MAIGNIFY 

Idi splIay Iat ( 12 



SPLIAY 
CALL 
112 
FOR 



40 D I 



410 
420| 

430 



440 
450 



460 I 



470 



490 

500 

1510 
5 20 



10 

NEXT 
CALL 
pi 
R ' S 

) 

pi 
YER 
E ( 8 
CALL 



CHAR 



SPLAY 

NAMlE 
PLA1 $ 
SPLAY 



01 
pi 

|l SPLAY 



NAL 
CALL 



I 

V|=2 
jCALL 
YOU 



cIhIar 



CHAR 



CHAR 



SPRI 
70 



220 

TD 
DELSPR 
AT 



SPLAY 
SPLAY 



SPLAY 



Ml 

IClA L L 



530 I 



5 40 
55 
560 
5 7 



580 
5 90 
600 
61 



6 2 
6 3 



640 
6 5 



66 
6 70 
680 



Dl 



KEY = 
470 

KEY = 



4 40 

;CALL 
C A L L 

caIll 

12 

CAiLL 
S2 
F 
F 
F 

P<|8 

thIen 

11 F 
I 

GjOlTlO 



II F, 
P<7 

thIen 

11 
I 

GlOlTiO 
I 



|P + 1 

:oTlo 



11 



p >i 
p+1 



(CALL 
SUB 
18 0[ 
I 



P1 



K1 
S2 
K2< 
Pi1<8 



AT 
NAME 
PLA2$ 
CLEAR 



SS 



IAT 
TE 



SPLAY 



KEY 
KEY<49 
KEY 
CLEAR 
IWANT 



CLEAR 
SCREElN 



'If2l0 



124 



128 



132 



240 

TO 



AT 
AT 



AT 



AT 



ION? 
KEY 



SPRI 
70 

KEY 



<> 



THEiN 
P + 1 



K1 



THEN 



K1 



K1 



650 

<> 



650 

<> 



= 8 



650 



<> 
THEN 



2 

1000 

CALL 
TE 



OR 



48 



TE 
240 



11 



'|0F0703010303|O3l3F 



#1 



KEY 

KEY>52 



DAY 

(D/N) 



KEY 
THEN 



THEN 



AND 
TIHEN 
THEN 



P = 



THEN 
THEN 



THEN 



P = 



P- 
THEN 
THEN 



THEN 
ELSE 



THEN 
PATTERN 



910 



12 



GOTO 



5 

THEN 



THEN 



THEN 
P 



920 



THEN 
THEN 



AT 



0C3C1C1C3C1FFFODO6O 



) 

FC7E3C38180CO4012e3 



96 



#1 



) 

[ACCEPT 



K1 



(|C01 
#1 



CALL 
30,-8 
SOUND 



ENTER 
ACCEPT 



12 



DI 
Ml 



S 

cpi 

C01 



S2 



680 
570 



P + 1 



SI 



96 



) 

EjNTER 



DiOlG 
2 



120 



OPT I ONS 

BEGIlNNER 
NjOVICE 

NTERblED 



SPLAY 



SS 



AT 



I ON 



ELSE 



610 



THEN 
P1 = 



670 



P1 = 



#1 
930 



THEN 



ELSE 



630 

P<5 



660 



ELSE 



720 

PI 

P1I+1 



GOSUB 
820 



FI GHT 



SOUND 



20 



AT 



9999 

cIall 

RST 



SECOND 



THEN 



AT 



70 



CALL 



ELSE 



ELSE 



ELSE 
AND 



ELSE 



7F7 
FFF 



ATE 
PRiOFESS 



820 



ELSE 
ELSE 



16 



I 

P<3 



F 

P<3 



F 

P>1 



)N-92 
950 

990 



410 



OR 



C02 = 



C02 



1500 

30 

CLEAR 
PLAYE 
ZE 



KEY 



P>3 
OR 



3 

lOR 



P>5 



P<5 



960 



PI 
PI 



THEN 



PLA 
S 



I 



ELSE 

DO 
NI GH 



ELSE 



K2 



AND 



AND 
P 



THEN 



ON 



THEN 



AND 



970 



AND 
OR 
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90 
00 
10 
20 



30 
40 
50 
60 



70 
80 



90 
00 



10 
20 

30 

40 

50 
60 
70 



80 
90 



00 
10 
20 
30 
40 

50 
60 
70 
80 
90 
1 00 
1 10 

1 20 

1 30 



1 40 

1 50 

1 60 

1 70 

1 80 

1 90 

1 00 

1 10 
2 
1 30 
1 40 

1 50 
1 60 
1 70 
1 80 
1 90 



GlOTiO 
F 



GOTlO 
F 



PI 



EN 

GiOTjO 
K2 
P1 >1 



CALL 
60SUB 



CALL 



CALL 



CALL 



CALL 



I 

CALL 



OR 
ALL 
I 



CALL 



THEN 



THEN 



lOlN 




I F 



K2<>0 



1170 
K2 



SHI 
P 

> 



OR 
ALL 
GOTjO 
CALL 
CALL 
CALL 
CALL 
RN 

CALL 
CALL 
CALL 
CALL 



CALL 
P3 
SH1 



ClALL 
) 

CALL 
6 

CALL 



CALL 



CALL 
) 

CtALL 
6 
C 




ClALL 
) 

ClALL 
6,V» 
CALL 
CALL 
CALL 
CALL 
RN 
CALL 
CALL 
CALL 
CALL 



COI 
THEN 
SOUND 



B3 



DELSPR 



SH2 



800 

<> 
PI 



800 



THEN 
THEN 



P1+1 



THEN 
P1 + 1 
THEN 
PlATTERN 



COI 



COI 



1110 
1180 

THEN 
NC 
50 
NC 



1500 





PlOS 



186 



POS 



C3>186 
DELSPR 
500 

MOT llON 

mIotion 

I ON 
I ON 

I ON 
I ON 
I ON 
I ON 



MOT 
MOT 

MOT 
MOT 
MOT 
MOT 



SHI 



POS 



P3 
1080 



S|H2 



GOTO 



SPR 



RETURN 



THEN 
THEN 



THEN 
THEN 



( 

350 

NC 



SPR 



SPR 



SPR 



SPR 



SPR 



SPR 



SPR 



MOT 
MOT 
MOT 
MOT 

MOT 
MOT 
MOT 
MOT 



THEN 



THEN 
ELSE 



THEN 
PI 



#1 



#1 
220 



THEN 
ION 
lOR 



THEN 
I ON 

lOR 



THEN 



1090 

TE 



RETURN 



TE 

TE 
RETURN 



RETURN 



TE 



I ON 
I ON 
ION 
ION 

ION 
ION 
I ON 
ION 



PI 
2 

1120 



Plh 
PI 



iGlOSUB 
3 

3 



4250 



TE 



TE 



I ON 



RETURN 



RETURN 

( 



THEN 



760 

P1+1 



PI 



780 



810 

PI 



RETURN 



1030 
1100 

SP 



RETURN 



1130 

GlOTO 



880 

( 

B4<8 

) 

900 
4 

C4<8 
#4 



28 

28 

RETURN 



SP 



ELSE 
ELSE 



ELSE 



PI 



ELSE 
ELSE 



PI 



110 

B3 

OR 



C3 



B1 



|A1 
1040 



m 

6 

) 

6 



128 
R 
1 



28 
128 



RETlURN 



2 8 



B4 
B 

SHI 



C4 
C 
SH2 



B1 



128 
28 



AND 



220 



I 

B4>250 



C4>250 




RETUlRIN 
) 



B2 



1050 



+ 92 
1140 

820 

90 

PC 

PC 



PC 



C02 
C02 
C02 
C02 
C02 
C02 
C02 
C02 



PI 
PI 



PI 
PI 



PI 



RETURIN 
6 



) 

RETlURiN 



A2 



RETURN 



A1 
A1 
A1 
A1 
A1 
A1 
A1 
A1 



ON 
1150 



RETURN 



RETURN 



RETURN 



1060 



A2 



RETURN 



) 

RETURN 



RETURN 



RETURN 



AND 
OR 



THE 
TH 



AND 
TH 



B3 

TlHEN 



C3<6 
THEN 



B2 



A2 



A2 



A2 



A2 



A2 



RETU 



RETURN 
RETU 



RETURN 
RETURN 



PC 



107 

V 

1 



1200 
1210 

1220 

230 

1240 
1250 
1260 

270 
1280 
1290 
1300 
1310 

320 

1330 



340 
350 
360 



1370 

1380 
1390 
1400 
1410 
1420 
1430 
1440 

1450 

1460 
1470 

1480 
1490 
1500 
1510 

520 

1530 
1540 
1550 
1560 
1570 
1580 
1590 

1600 



1610 
1620 

1630 
640 
1650 

1660 

1670 
1680 

690 



1700 



710 
720 



CALL 
A1 



SH2 
CALL 
POS 
CALL 
2 

CALL 
CALL 
F 



LSPR 
CALL 



DI 



CI 



CR1 



F 

CALL 
CALL 



CR1 



SPLAY 
SPLAY 



SPLAY 



GOTO 
CALL 
CALL 
#1 
CALL 
) 

ClALL 
CALL 
F 

CALL 

RED 

CALL 



SPLAY 

BATTLE 

SPLAY 

SPLAY 
SPLAY 



DI 
GOTO 
CALL 
CALL 



SPLAY 



CALL 

) 

CALL 
CALL 



I 

F 
DI 
N? 
PC 
1 

ClALL 



PR 



CR1 



F 

ClALL 
BLUE 
CALL 



WON 
IGOTO 



WON 
IGOTO 



POS 



MOT 

I ON 

SPR 

32 

POS 

POS 



TE 



SOUND 



DELSPR 
SCREEIN 
AT 



640 

DELSPR 



CR3< 



KEY 
TIHEN 



BOTH 
EIND 



<> 



IMOT 
P01 



SPR I 



SOUiND 
POS 



DELSPR 
RED + 1 
SCREEN 



IDELSPRI 

BLUE+1 

SCREEN 



SPLAY 

BATTLE 

SPLAY 



SPLAY 
SPLAY 



SPLAY 

RED 
SPLAY 



NT 



186 



186 



iMOT 
P01 
SPR 



A2 



I ON 



IGIOTO 
#1 



TE 



AT 



AT 



HON 
P02 



TE 



AT 

AT 

AT 
AT 

AT 



SOUND 



POS 



186 



Y/N 



KEY 



I Ion 

C2 



( 

lOR 

I 



P|01 



P03 
IpN 
I ON 

OR 



1640 

DELSPR 
I ON 



P02 
TE 



AT 
AT 

AT 
AT 



AT 
10 
AT 



BLUE>RED 



THE 
720 



RED>BLUE 



THE 
720 



89 
1670 



THE 



SHI 



( 

lOlN 



TlHEN 
TE 



11 



11 



10 



( 

lOR 



10 



20 



KEY 
TlHEN 



WAR 



DES 



WAR 



1020 


P|02 
32 
P04 



1 
2 

CR3 



2 

1000 

CR3 
TE 



#1 



26 



TE 



26 



QN 
THEN 



TE 



WAR 



000 

I 



<> 



CI 



CR1 
CR3 



110 



C2 
P3 = 



186 



#1 



PLA2S 



PLA2$ 



RED 
PLA1 



BLUE 



3 2 



440 

CRS 
530 
, *1 

PLA1 
PLA1 



26 

BLUE 



THEN 



THEN 



ARE 



370 



HAS 



CRAAAASSSH 



BOTH 



NO 



440 

CR1 
380 



PI 



P03 
PlOl 

CR2 
CR4 
THEN 



THEN 



10 



BLUE 
PLA2$ 



RED 
10 



WANT 



SH2 = 



PR 



SORRY 



PR 



SORRY 



NOW 



POI 



2 

C|R2 



10 



ELSE 



CALL 
PPI 

220 

|CR4 



NT 



I NT 



AT 



220 
1 
«4 



220 



P04 
P02 



TEAMS 



NTS 



CALL 



POI 



HAS WlOlN 
SCORE 

SCORE 



HAS 



THEN 
TO 



ENDED 



SP = 



CALL 



1240 

) 



POS 



P02 



SCORE 



SCORE 



PLA1 



PEACE 



CALL 



P02 



CRASH 



AWARDE 



POS 



TH 



20 



WON 



1690 

TRY 



KEY< 



$ 

PLA2$ 

PLA2$ 
PLA1 



AGA 



I 



TH 



78 

HIAS 

HAS 



Copyright © 1983 Emerald Valley Publishing Co. 



The Best of 99' er Volume 1 



271 




YDu are sitting there enjoying a cup of coffee at the 
Interplanetary Rescue Lounge when the news arrives: 
A cave-in on Moon Base 2 has seriously injured a 
miner. Instantly you race for the shuttle, knowing you must 
reach the moon base, pick up the injured miner, and return 
to the base medical facilities. There's no time to waste! 

Your ship is fueled and ready at the docking pad. In your 
ship you sit in front of your TI-99/4A controller panel and 
view the radar and instrumentation screen. You are now 
ready to take off. Press T on the control panel and the shut- 
tle begins to lift. Using your six thrust control buttons, you 
adjust your climb to the desired level. The terrain between 
you and Moon Base 2 is treacherous, and you must quick- 
ly ascertain the best route. Using your horizontal thrusters 
(arrow keys), you start your trip across the lunar landscape. 

Accidents may happen anywhere, and right now your In- 
terplanetary Rescue Team is in charge of the moon. Mars, 
and Venus. Use the arrow keys (E,S,D,X) to control 
horizontal movement. Horizontal velocity is listed on your 
control screen. 

The elevations of the terrain show up as different colors 
on the map. At the right-hand side of the screen is a visual 
representation of your altitude in relation to the elevation 
colors. Your ship must be above the color on the right of 
the screen to safely pass through that color on the radar 
screen. Be careful not to overshoot the highest elevation col- 
or you plan to cross: You will waste valuable time getting 
back down and precious fuel needed for the return voyage. 

When you land on Moon Base 2, you must be traveling 
at a vertical speed of less than 6 meters/second to make a 
perfect landing. A rough landing of 6-10 meters/second will 
cause a leak in your main fuel valve, causing a loss of half 
your fuel. Any faster than 10 meters/second and you'll 
crash, never to return home. Once safely on the ground. 



the injured miner is put on board, and you're ready for the 
return trip. You won't have as much fuel holding you down, 
so it won't take as much thrust to accelerate vertically. Good 
luck on your rescue mission . . . you may need it! 

Instrument Displays: 

ALT = altitude in meters. Each succeeding color on the 
radar represents 2000 meters. 

HVEL = horizontal velocity across the radar screen (depen- 
dent upon arrow keys). 

VVEL = vertical velocity; + is climbing, - is falling. 

TIME = number of seconds into the mission. 

FUEL = weight of fuel remaining, in kilograms. 

PWR = amount of thrust being generated. Each unit of 
thrust equals 1000 newtons; each newton equals 
approximately 2.05 kilograms of thrust. 

Calculations and Variables 

The gravity formula in line 950 is the formula for speed 
of a falling object. V2 is the change in velocity in m/sec, 
F is the thrust in newtons, S is the weight of the ship in kg., 
E is the weight of remaining fuel in kg., and G is the gravi- 
ty in m/sec^. The time is one second in this calculation. All 
variables starting with D pertain to distance, and H is the 
altitude. 

Graphics 

Characters accessible on the keyboard but not used in 
printing messages have been redefined (lines 190-290). Then 
by using DISPLAY AT and a string, you can display col- 
orful graphics very quickly without calling each square one- 
by-one. This method was used to display the radar map 
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much more quickly than by using HCHAR and VCHAR. 
The strings are read in as 21 DATA statements. By chang- 
ing the DATA statements in this program or adding some 
of your own, you may easily change the maps. 



Option 


G 




E 


Take-off 


chosen 


(Gravity) 




(Fuel) 


thrust 


Moon 


2 




20000 


65000 


Mars 


4 




45000 


230000 


Venus 


6 




80000 


540000 


Thrust 




T 


= initial thrust (displayed 


keys 






as 65, 230, or 540). 




Key: 


1 





P 


Units added: 


+ 1 


+ 5 


+ 10 




Key: 


J 


K 


L 


Units decreased: 


1 


-5 


-10 



Sprites were used to depict the two crafts on the screen 
in order to be able to move with high resolution. Instead 
of using CALL MOTION which makes control of position 
difficult, we used CALL LOCATE which provides absolute 
control of the sprite's position. 



EXPLANATION OF THE PROGRAM 
Interplanetary Rescue 

Line Nos. 

100-160 Program header 

1 70-3 10 Clears screen; defines special characters and colors. 
320-350 Initializes variables; branches to title screen and 
options. 

360-460 Main control loop; GOSUB 790 receives the 
player's key presses. The VOL in the CALL 
SOUND statement depends upon the power. H 
is the altitude, and line 400 tests for crashes. If the 
rescue craft has landed at either base, the program 
branches. 

470-680 DATA statements to draw the "Novice" map. 
690-780 Subroutine to label the parameters and draw the 
altimeter. 

790-1020 Receives player's key responses and calculates 
parameters. 

1030-1090 Prints updated altitude, time, velocities, fuel, and 
power. 

1 100-1 1 50 Message and procedure for crashing into the hill. 
1160-1180 Subroutine for procedure for any crash. 
1190-1260 Prints score and option to play again; branches 
appropriately. 

1270-1400 Messages and procedure for crashing at high 
velocity. 

1410-1460 Procedure if craft lands safely; starts return trip. 
1470-1580 Procedure for craft landing on return trip. 
1590-1640 Prints and receives options of planet and level of 
difficulty. 

1650-1750 Depending on the options chosen, sets gravity, 
fuel, and initial thrust, then prints appropriate 
map. 

1760-2380 DATA statements for three maps. 
2390-2460 Prints title screen. 



110 
120 

30 
140 

50 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 

340 

350 
360 
370 



380 
390 

400 



410 
420 
430 
440 
450 

460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 



620 
630 
640 
650 
660 
670 
680 
690 



710 
720 
730 
740 
750 



BEST 



99 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
CALL 
GOSUB 
CALL 
CALL 
CALL 
CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
CALL 



TR 

D3 

GK}SUB 



REM 
GOSUB 
000 



OL 

CALL 



AR 



CC 
CC 
<4OO0 
AND 
TR 



MA 



V0L<9 



220 



P|0S 
ABS 



CAL L 
10 



CLEAR 

190 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
iCHAR 
CHAR 
CH$R 
ClfAR 
COLOR 



TR 
TRI 



370 



IME 


GbTO 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
RETURN 
SPLAY 
SPLAY 
SPLAY 
SPLAY 
SPLAY 



NTERPLANETARY 



ER 



SCREEN 
VI 



25 



1590 

ClON THIOL 



790 

I 



I 

94 

lOR 



H<800O 
P 



rTHEN 



VIOL 
T 



3 

iMEj+l 



30 



SPLAY 

VCHAR 



OF 



99 

VERS 



96 

6 2 

99 

100 

33 

94 

95 

42 

63 

98 

104 



AND 
2 



42 



1 ME 
D4 



VOL 
THEN 



10 

I ION 



XC + 4 

AND 
CC 



AT 
AT 
AT 
AT 
AT 
AT 



CALL 



AND 
TR 
AND 
AND 



GOTO 



VOL 

> 



H< 
42 



THEN 



81423C3C3C3C4281 
FF818199998181FF 
e26C9ElC24424201 
O0CC86C300107C20 

FFFFFFFFFFFFFFFF 

) 

FFFFFFFFFFFFFFFF 
FFFFFFFFFFFFFFFF 
FFFFFFFFFFFFFFFF 
183C3C7E7E7E66C3 
5A5A5A185A 
5 



V2 



41 



30 

VOL 



VOL 
1 

8l+ 



2000 

AND 



30 



H>0 
P 

H>0 
H 



15 



320 



LOOP 



( 

THEN 



ABS 
H 


SlOUND 



6 3 

CAL 



VOL 



5 

YC 
ABS 



OR CC 
H<60OO 



1100 

THEN 
THEN 
THEN 
THEN 

H< 



RESCUE 



2XB 



ALT 
HVEL 
VVEL 
I MlE 
FUEL 
PWR 



VOL 



VCHAR 



TR 
1270 
TRI P 
470 
THEN 



30 
4250 



5000 



D2 



) 

CALL 
YC + 4 



95 

lOR 



CAL 
14 



ELSE 
110 



AND 
CC 



VI 



GCH 
8 + 



30 



20 



VCHAR 



63 



95 
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760 

770 

780 
790 

800 
810 

820 

830 

840 

850 
860 
870 

880 
890 
900 
910 
920 
930 
940 

950 

960 

970 
980 
990 



1010 

1020 
1030 
1040 
1050 

1060 
1070 
1080 
1090 
1100 

1110 

1120 

1130 
1140 
1150 
1160 



1170 

1180 

1190 
1200 
1210 

1220 



1230 
1240 

1250 
1260 



ClALL 
22 
CALL 
D3 



D4 
RETURN 



CALL 
S2 



SI 
K1 
GOTO 
K1 

gIotIo 

K1 

giotIo 

K1 

GiOTp 
K1|= 
K2 = 
K2 = 



RETURN 



CALL 



CALL 
YOU 



E 
F 
F 

CALL 



D3 
I 

D4 

SE 

CALL 
SPLAY 



SPLAY 
SPLAY 
62 
SPLAY 
SPLAY 
SPLAY 



GOTK) 
FOR 
10 
ERN 
CALL 

REP 
CALL 



FOR 
NEXT 
CALL 
SH 



F 

<> 
CALL 
STIOP 



KEY 



VClHAR 
33 



28 

SPR 



5 

860 


860 
2 

860 
3 

860 
11 
3 



K2 
K2 
K2 
K2 
E< 
F<0 
F = 
CALL 
F 



V<0 
V1+I V2 



ABS 
H<!=0 



H>9935 



168 
D3 + D1 

D3>160 
D4 + D2 



TR 
2000 

SPLAY 
SPLAY 



500 

ACCEPT 



CALL 
TD 



TO 



SPLAY 
NT 



TE 



SI 
THEN 
THEN 



THEN 

THEN 

THEN 

THEN 
THEN 
THEN 

THEN 
THEN 
THEN 
THEN 



THEN 
THEN 



SH-E 
AND 



LIOCATE 
H 



D4>208 
LOCATE 



HCHAR 



CHARSET 
CRASHEDD 



ANS$ = 



1190 

REP 
110 
9 9 

SIOUND ( 
CALL 



TD 
CLEAR 
PLAY 



AT 
2000 



CR 
AT 



THEN 
CLEAR 



AND 
ELSE 



THEN 
PATTERN 



F 

THEN 



G 
H< 

2 

2000 



CLEAR 

CHARSET 



TO 



TO 



30 



860 
D1 

D1 

D2l= 



D2 



98 



SI 

AND 



F 

CALL 



THEN 
« 



500 

I 

THEN 



CR 
23 
24 



110 
400 



23 



AGA 
10 



THEN 
D3 

) 

20 



500 



1230 



3 

THEN 



D1 



D1 + 1 
D2 
D2|+1 

tIoff 

5000 



VI 



1000 
160 
8 

D3<1 

D3 
D4<1 



D 

NTO 



110 

PATTERN 



DI 



N? 



I ME 



GOTO 



94 



S2 



F+1000 
F+5000 
F+10000 




PATTERN 
104 



V + V2 
THEN 



32 



I|ME<250 
15 



CALL 



160 



CALL 



10000 



160 



ZE 



ZE 



ZE 



SPLAY 
THE 



ALT 
VELOCI 



CALL 
8 



SPLAY 
Y/N 



BEEP 
1260 



ZE 



96 



222 

THEN 



YOUR 



DV 



DELSPR 
RETURN 



THEN 



E = 



THEN 
208 



CALL 



222 



KEY 



500 

) 



AT 
I LL 
THEN 



110 
100 



170 



AT 



+E/G+{ 0PT1 



ANS$ 
ELSE 



D3 



SQR 



DV 



GlOTO 
GOTIO 



GOTO 
GOTO 
GOTO 



DV 



H + D 



D4 



llMiE 
DI 



GOSUB 



TUDE 
TY 



SIOUND 
CALL 



20 



SCORE 



«1 



920 
5 
50 
50 
50 



1000 



22 



TE 



32 



HCHA 



96 



K2 



920 
92 



920 
920 
920 



ELS 



222 



ELSE 



17 



CR 



220 



ALL 



300 

PATT 



I 

0PT2 



ANS$ 



EL 



2 + D 



116 



IM 



NEXT 



WI 



127 
1280 



12 90 



13 00 

131 
13 20 



1 3 30 I 



13 40 

1 3 501 
13 60 



1 3 70 I 



1380 

1 3 90| 
1400 



141 I 



) 

11412 01 DI 



143 

1440 

145 01 

1460 

147 
1480 

11490 

15 00 

|l 5 1 

115 20 

Il5 30 

15 40 
15 50 

15 60 

15 70 

1580 

15 90 

160 

161 
1620 

16 30 

1640 
1650 
1660 



CALL 



11160 

YOU 



DI 
DE 
DI 



HAS 
I 



YiOU 
SPLAY 



IGOTIO 
V> 



G 

DI 

U 

DI 



;giot|o 
v> 



D 

BADLY 



b 

T 

DI 
FF 



ILAY 

lU 



DI 
FOR 



NEXT 
190 
iCALL 
CALL 
CALL 
ELSE 



F 
F 

HEN 
F 



DI 



CR 
ID I 



T 
DI 



SPLAY 



XC0I37 
CR 



V> 
DI 



D 
TIWO 



ARE 



FL 



CRASHED 



SPLAY 



SPLAY 



SPLAY 



SPLAY 



SPLAY 
FUEL 



1450 

CALL 



SPLAY 
RETURN 



SPLAY 
TD 



6 

CALL 



AT 
ARE 



YOUR 



DI 
FOR 



NEXT 
ICALL 
LEAR 
IONS 



RS 
ACCEPT 



b 

TY 
DI 



I 

OFF 



SPLAY 
TD 



SPLAY 



OFF = 



HCHAR 



MI 



SPLAY 
LEFT 



30 



1190 
20 



1190 
10 



IGHT 



RIOUGH 
AT 



TR 
1270 

SPLAY 



SPLAY 
PROUD 



ACCEPT 



SPLAY 



3000 

THEN 



SSED 



SPLAY 



CREWMEN 



AT 



HURT 



AT 



DAMAlGED 
AT 



CLEAR 
22 



1270 
P 



CR 

SPLAY AT 
PERFECT 



TD 

GOSUB 
DELSPR 
CLEAR 
CHARSET 

c|all 

THEN 



THEN 
AT 



THEN 



THEN 



AT 



1430 

CHARSET 



AT 



AT 



SHI 
75 



TD 
CLEAR 
DI 



0PT1 
SPLAY 

SPLAY 



PROFESS 



0PT2 
iOPTI 



65000 



|0PT1 = 
230000 



AT 



AT 

AT 
TlO 



NTERMEDI ATE 



AT 



AT 



AT 



AT 



(22 
AND 



23 



24 



24 



AND 



AND 



08 

THE 



AT 



23 



23 



AT 



LANDING 



24 



500 




TE 



22 



22 



23 



YC0I85 



32 



DI 
PAD 



330 
22 



1370 
22 



CR 



1410 
22 

1 

CR 
1 

GlOTO 



IGOTO 
ELSE 



) 

2 

CALL 



CR 



HCHAR 
1550 



1680 



#1 



BARELY 
GOTO 



2|4 
2000 

TO 



SPlLAY 
1 

VE|NUS 
10 



lONlAL 
(12 



GOSUB 



THEN 



THEN 



ICALL 
4 



CRATER 



VELOCI 



ELSE 
A 



ARE 



VELOCI 



THI 
25 
VELOCI 
1190 



ELSE 
DI 



LlOST 
CR 



PERFECT 



XC0I 37 



D3<>25 



VAL 



GOTO 



VAL 



G 

IGOTIO 



1190 



AT 



I DATE 
CLEAR 
LEVEL 



96 



SPLAY 



ELSE 



V< 



LAND 



VEL 



YOUR 
1190 



THEN 



GOSUB 



YOU 



DEAD 



YOUR 



CALL 
SPLAY 



YOU 



CHARSET 



GOOD 



VELOCI 



TY 



AT 



GPSUB 
22 



BLEW 



MI 



GOSUB 



BAD 



GOSUB 



TY 



TY 



TY 



GlOTiO 
3 



OR 



OR 



2|3 90 
7 

ON 



DATE 



1680 



1618 



CI 



ROUGH 
M|ADE 
1570 
CONGRADULAT 



D4<>41 



NG 



OF 



B EG I 



E = 



NOVI 



SHI 



YOUR 



AT 
HIAVE 



LANDI 



SH 



LE 



LAND I N 



AND 



OF 



SHAPE 



GjOSUB 
370 



YC0I85 



THEN 
96 



TY 



CALL 
PLIANET 



CLEAR 



EARTH 



123 



DI 



NNER 



12 34 



20000 
45000 



CE 



1160 



1160 



1160 

I 



LAS 



NG 



WI 



22 



YOUR 
GlOTO 



LANDING 



ONS 



YO 



SP 



TO 



127 



THE 



FF 



OP 

HA 

ZE 

ICUL 

2 
4 
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1670 

1680 

1690 

700 

1710 

1720 
1730 
1740 

1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
910 
920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 



F 0PT1= 



OFF 



000 



0PT2 
1730 

0PT2 
1730 
0PT2 
1730 



CALL 
FOR 



TER 
SPLAY 



0PT2 = 



GOSUB 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



TR 



540000 



CLEAR 



AT 



690 



THEN 

AND 

THEN 

THEN 

THEN 

THEN 



TO 
TER 



21 



RETURN 
! 



G = 
0PT1 



CALL 



RESTORE 



RESTORE 



RESTORE 



RESTORE 



TERNS 



COLOR 
READ 



80000 

THEN 



1760 
1970 
470 



2180 
8 



10 

TERNS 
NEXT 



A * A « * A A 



TOFF 



T 

250 

GOT 
GOT 
GOTO 



12 



D 
TER 



2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 

2400 

2410 

2420 

2430 

2440 

2450 



2460 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



DI 



DI 



CALL 



BEGI 
CALL 
104 



CALL 
HEN 
10 
CALL 



SPLAY 



SPLAY 
RESCUE 
SPLAY 



SPLAY 



N 

SPR 
9 

KEY 
CALL 



SlOUiND 
) 



AT 

TE 
188 

( 



D E L S P R 



SOUND 



11 



12 



24 



125 

KEY 



4250 



TE 



) : 



GOTO 



STAT 



110 



1000 



PRESS 



2450 



180 



110 



220 



ANY 



125 



I NTERPLANETARY 



STATh 
220 

RETURN 



110 

KEY 



TO 
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EXTENDED 
BASIC 



N-VADER 




N-Vader is a game for one or two players written in 
Extended BASIC. Each player controls a "defense 
ship" whose mission is to prevent alien creatures 
from reaching Earth. The game is played using either the 
keyboard or joysticks. If joysticks are used with the 
TI-99/4A, be sure to put the ALPHA LOCK key in the 
up position after setting the parameters of game play in 
response to the screen prompts. 

Aliens are destroyed by positioning the defense ship in 
the immediate vicinity of the alien. No fire button or key 
is needed. Every time an alien is destroyed, the player scores 
a point and another alien is introduced at the top of the 
screen. Whenever an alien reaches Earth (bottom of the 
screen), the aliens score. 

One unusual feature of this game is its flexibility. When 
the game starts, the player(s) can select the number of aliens, 
their speed, the speed of the defense ship and the defense 
range. Defense range defines the proximity necessary for 
a defense ship to destroy an alien. 

Features of Extended BASIC Used in N-Vader 

Several Extended BASIC features are used to make N- 
Vader work. Sprites are, of course, fundamental to the pro- 
gram. CALL DISTANCE is used to determine the prox- 
imity of alien and defensive ship(s). CALL COINC is used 
to determine when aliens reach Earth. 

Because sprites move independently of the program, alien 
destruction is sometimes delayed or missed altogether. Aliens 



EM 
EM 
EM 
EM 
EM 
EM 
EM 



can also descend through the Earth for the same reason. 
Fortunately, these quirks of sprites actually make the game 
more enjoyable. For example, it is sometimes possible for 
a defense ship to swoop down into the Earth and pick off 
an alien at the last possible instant! 

A subprogram (lines 1390-1510) is used to allow keyboard 
input to be processed by the main program as joystick in- 
put. Programmers with diskettes may want to save this sub- 
program in a MERGE file for inclusion in other programs. 



EXPLANATION OF THE PROGRAM 




N-Vader 


Line Nos. 




100-160 


Program header. 


170 


Define invader character. 


180-270 


Display title screen with sprites. 


280-470 


Instructions. 


480-700 


Get parameters. 


710-790 


Draw Earth. 


800-820 


Draw invader sprites. 


830-840 


Draw player sprites. Note that positioning 




changes for Player #1 depending upon number 




of players. 


850-890 


Check for player scoring. 


900 


Check for invaders at Earth. 


910-940 


Adjust player motion. 


950-1140 


Process end of game. 


1150-1170 


Subroutine to introduce new invader during 




game. 


1180-1190 


Subprogram to simulate joysticks on keyboard. 



I ) 

TO 
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260 

270 
280 
290 
300 
310 
320 
330 
340 

350 



360 

370 
380 
390 
400 
410 



420 

430 
440 

450 



460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 

740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 



850 



PRINT 

KYOU 

CALL 



CALL 



ClALL 
) 

CALL 
CALL 
ACCEPT 



CALL 
INPUT 
IF XS 
CALL 



ESHI 



PR 



NPOT 



PR 



ANGE 



GAME 



OF 



HI 



PR 



CALL 



INT 

NG 

INT 



NVADERS 



THE 



SPEED 



NVADERS 



RANGE 



NPOT 



NPOT 



I 
I 

PRI 



THE 



INT 



NT 



NT 



NT 



NT 
THE 

iGlAlME 
NT 



NT 



INPOT 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CAL 

FOR 

CALL 

NEXT 

FOR 

CALL 



NEXT 



PS 



NPOT 



NPOT 



NP 
NPOT 



NPOT 



INT 



NPOT 



NPOT 



NPOT 



WI 



)|+1 
) 



DELSPR 



<> 



CLEAR 



THE 



SPR 



CLEAR 



NOlMlBER 
YOOR 



OF 



NP 



NT 



NT 



SPR I TE ( < 2 , 



SPR 
SPR 



THE 
lONLY 



SMALLER 
HARDER 



EARTH 



NV 



SPD< 
NT 



RNG<1 



SEGS 



AT 



AL 



YOO 



HI 



NOMBER 



ZAP1 



WI 



SPR 



NSTROCT 
THEN 



ONBOARD 



LASERS 



YOOR 
SOGGESTED 



YOO 



KSA^E 

ENTER 



ENTER 



SPD 



RNG 



COLOR 



COLOR 

cIolIor 

22 

HCHAR 



EARTH 



TE 



DELSPR 



OR 



NP 



END 



N<1 
CHAR 

CHAR 
SCREEN 
CLEAR 



NT 



I OYST 



XS 



22 



EN 



COMMAND 



TH 



ALSO 



ZAP2 
NOMBER 



LAYER 
THEN 
LAYER 
NOIMBER 
NV 
1 
I 
S 



OR 



THEN 



DEFENSE 



OR 



TE 



NVADERS 



I 

THE 



ENTER 



S 
lOF 



FOR 



NVADER 



DEFENDER 



THEN 



100 

96 



RND 



3 
#4 
22 

TE 



CREATORES 



SPEED 



WHEN 



NP 



THEN 



OF 



WH 



SPEED 



WHEN 



OF 



TE 



NV 



) 

ALL ) 
llONS 
490 



GAME 



( 



OF 



1 

560 
2 

OF 



NV 



590 



lICKS 
1 



104 

104 
104 



COMPOTERS 



EARTH 



104 



CONTROL 



THE 



RNG>200 



9 
4 

BEEP 



CH 



WHEN 



NVADERS 



VALOES 



RANGE 



THE 



GAME 



100 



104 



SHI 



I MES 
GAME 



READY 



SPEED 



620 

RANlGE 



)+1 



THE 



11 



ASKED 



THEN 



NAME 



NAME 



SPEED 



CANDESTRlOY 
NOT 



WI 



YOO 



PS 



THEN 



32 



3 + X 



LL 



READY 



LAYERS 
500 



NVADERS 



65 



ARE 



ONLY 



YOOR 



MAKES 



THEN 



N 

THEN 



680 

FFFFFFFFFFFFFFFF 
0O08081C7F1CO8O8 



NT 



256 



THE 



ARE 



THE 
TO 



ClONTROL 
THE 



THE 



560 



256 



X$ 



PI 



P2$ 



RND 



AL 



650 



100 



XS 



DEFENS 
CONTR 



LASER 



SPEED 
THE 



NT 



ATTAC 



THE 
ATTAC 



20 



XS 



LENGTH 
END 



ENS 



BEOVER 



NP 



RND 
S 



20 
99 



860 



870 



890 
900 

910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 

1090 
1100 
10 

1120 
1130 
1140 

150 
1160 

170 
1180 
1190 

200 
1210 
1220 



230 
240 
250 



1260 
1270 



280 
290 
300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 



380 
390 



1400 
1410 



420 
430 
440 
450 
460 
470 
1480 
1490 
1500 
1510 



FOR 
CALL 



CALL 
CALL 
GIOSOB 

F B 
ZAP1 



GOTO 



GOSOB 
CALL 



100 
100 



100 



I 

ZAP2 



CAL 
I F 



CALL 



CALL 



NP 



SPLAY 
B2 



SPLAY 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



CAL 
I S 



SPLAY 
I 



CALL 



NP 
I S 
CALL 



FOR 

CAL 

CALL 

NEXT 

CALL 



SOB 
CALL 



128 
56 



HI 



P1+ZAP2 



F 
F 

ZAP2 



L 


iGpTO 
NEXT 
GOTO 
CALL 
CALL 
256 
/ 

RETORN 



SOBEND 



200 



COI 





PlATTERN 
SIOOND 
1360 



MOT 



NT 
ZA 
NP 
ZAP2 



ZAP1+1 



ZAP2+1 



1080 

POS 



360 

SiOOND 



+ 1 



T + 1 



SPR 



SPR 



8EYST 



KEY 



THEN 
ELSE 

THEN 



THEN 



AND 



THEN 



AT 



AT 



AT 
THEN 
KEYST 
I ON 
THEN 
THEN 
KEYST 
I ON 



PI 



TAB 



TO 
SlOOND 
SOOND 



HOT 
T<W|I N 
DELSPR 
SCREEN 
CLEAR 
COLOR 
COLOR 



DELSPR 
SCREEN 



170 

X 

880 

DELSPR 



THEN 



IGAME 
EARTH 



) 

THEN 

AL 
TlHEN 
HI 



I TE 
NT 



N 

THEN 
THEN 
THEN 
THEN 
THEN 

THEN 
THEN 

THEN 
THEN 

THEN 



23 



I ON 



TE 



NV 



»X 



B2 

#X 
500 



23 



THEN 



50 



23 



THEN 



CALL 
CALL 



CALL 



CALL 



14 

CALL 
I 
I 

1130 

CALL 
I 



TE 



TE 
#X 
RND 



980 



PER 
PR 

ENS 
PR 



TE 



1080 



ALL 



1 
1 

OVER 



T+ZAP1+ZAP2 



100 



440 
880 



RNG 
COI 



S 
V 

1080 



TS 



DESTOYED 



NT 



#X 
104 



SPR 
SPR 



SPR 



THEN 



Y 
340 



04 



NT 



NT 



ZE 



ZE 
IIOYST 
I 

SPD 

llOYST 
I Y 
SPD 



CENT 



)+1 



ZE 



100 



NC 



TAB 



P2$ 



TAB 



»X 



1020 



SOBEX 



ZAP1 



ZAP2 



18 

ZAP1 



ZAP1 



10 



10 



T 
X 

SPD 



PER 



RND 



10 



SPD 



96 



25 



NT 



DESTROYED 



15 



RNiG 



NT 
CENT 



RND 
S 



EL 



EL 



EN 

TH-ZA 
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EXTENDED 
BASIC 



SPACE 
PATROL 




The Earth is at war! Another planet is trying to gain 
control of our solar system. You are the captain of 
a patrol ship armed with high-powered lasers. Your 
mission— destroy a fleet of 15 enemy supply ships en route 
to their Battle Star. But be careful, because the supply ships 
are armed with "killer satellites." When launched, the 
satellites will move in on your ship and self-destruct unless 
you destroy them first. 

Your ship has a supply of 400 energy units, and energy 
is depleted by 10 units each time you fire your lasers. You 
also have a deflector shield that is automatically activated 



when a "killer" gets past your lasers and explodes near you. 
This will deplete your energy by 50 units. Your on-board 
computer will warn you if a "killer" has been launched. 

At the start of the game, your gun sight will appear in 
the center of the screen. You may use a joystick or the ar- 
row keys to position this on your target (depending on the 
option chosen at the start of the game). Then press either 
the FIRE button or the Y key to fire your lasers. 

GOOD LUCK AND GOOD SHOOTING, CAPTAIN!! 



Note: If using Joysticks with the TI.99/4A, release the ALPHA LOCK key, 



Line Nos. 
150 
160 

170-300 
310-330 

340-390 



400-410 



420 
430 

440 



450 

460-470 



EXPLANATION OF THE PROGRAM 480 
Space Patrol 

490-530 

Clears screen and makes it black. 
Sets colors of letters and numbers to white. 

Display tide and define characters. 540-590 
Clears screen; lets user choose joysticks or 
keyboard. 

Clears screen; initializes energy and ships 

destroyed; randomizes; lets user choose high or 600-610 
low skill level; sets magnification 3 for high 

level, 4 for low level. 620-680 
Sets colors for stars; randomly places 40 stars 

on screen. 690-720 
Creates gim sight in center of screen. 
Displays energy level and number of ships 

destroyed at bottom of screen. 730-760 
Randomly selects number from 2 to 6; if the 

number is 5 or 6, branches to the satellite 770-850 
routine; otherwise a supply ship is defined. 

Changes colors of stars so they will twinkle. 860-880 

Randomly sets speed, direction, and location of 890 

supply ship. 900-950 



Branches to joystick or keyboard input to move 
gun sight. 

Checks if fire button or key is pressed; if so, 
stops motion of gun sight, makes laser display 
and sound, checks for a hit, and decreases 
energy. 

If ship is hit makes red explosion and sound, 
increments ships destroyed, reduces energy, 
deletes sprite #3. Checks for end of game and 
branches. 

Sounds and prints warning for satellite 
launching. 

Creates satellite sprite and gradually increases 
the size. 

Moves scope if user indicates or tests for hit if 
fire button or key is pressed. Energy is reduced 
by 10 for each shot fired. 
If satellite is hit, it explodes; if not there is a 
larger blast and energy level is reduced by 50. 
Sounds and messages for end of game depen- 
ding on number of ships or energy level. 
Displays option to play again. 
Subroutine to move gun sight with joystick. 
Subroutine to move gun sight with arrow keys. 



ClHiA 
Q 




CH 



AR 



RO 







S[H|0 
2 
4 



CO 



) = 



1 


IGU 

1 
A 




01 
01 

IGH 



CA 
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290 
300 



310 
320 



330 



340 
350 



360 
370 

380 



390 
400 
410 



420 
430 

440 

450 

460 

470 

480 
490 

500 

510 

520 
530 

540 

550 
560 

570 

580 



590 
600 



260 CALL CH|AR{1 24, - 0000000000000201010 
270 
280 



CALL 



4OO0OeeO00O0OO0OO2OB0COEO6ecOBO2O0 
00000000000 



CALL 



CO 00000000000009 8D8E07OB870E0D898O 



00000000000 



CALL 



D0F0F13616eOO0O0686C8F0FOB87C3C78F 
0F0C8860600 



CALL 



D321F1F27C1C00383E4F85CBC5E5EAC5CF 



8F8E48303 



CALL 



AND 
CALL 



+ ( 



DI 



LlOCK 
TO 
ClALL 
NDOKlI 



D I 
EL 

L|0|W1 
CALL 
+ ( 
48 
CALL 
CALL 
FOR 



SPLAY 
NPUT 
KEYBOlARD 



48 



KEY 
KEY>50 



SPLAY 



SPLAY 



KEY> 



DI 



SD 



DI 



8 + 87 

ClALL 



TAR 
600 

FOR 
ND + 9 

v|m=i 

19 

CALL 
10 
ON 



I 
I 

ClALL 


CALL 
2) 
CALL 
#1 



I 

CALL 



NPol 



X 

RND + 1 



SD 



CALL 



CALL 
700 

FOR 
LSPR 



24 



800 

CALL 
FOR 



-WARN 



NEXT 



CHAR 



CHAR 



CHAR 



CHAR 



CLEAR 



UP 
700 

ICLEtAR 
ZE 



KEY 
50 



HA6N I 
COLOR 



SPLAY 



104 

LB<10 



1 

TE 
SPLAY 
25 



INT 



NT 



1 

SDl+1 



) 

SD>1 4 



700 



) 

SPR 



SPR 
NT 



NP 
KEY 



AT 



AT 
FOR 



AT 



TO 



T 

ClOLlOR 



SlOUND 
) 

Tp 
#3 
AT 
LB 



I NIG 




NT 
RND 



256 



CALL 
SOUND 
CALL 
PATTERN 



PATTERN 



PATTERN 



) 

128 



132 



136 



140 



THEiN 
20 



AT 



ENERGY 



ClALL 
TO 



GOSUB 



THEN 



TO 



10 



ARROW 



KEY 



10 



FY 



TE 



THEN 



K5 



I OYST 
NEXT 
LB 



KEY 



NEXT 



RND 



11 



VM 



MOT 



THEN 



RE 



THEN 



FOR 



THEN 



SKH-2 
16 



23 



( 

RND 



300 

ClOI NC 



#1 



LB 
200 

80 

23 



26 



«1 



540 



SPLAY 



000004OD03O6O7030D0 



OOOCODO307OEO7O30D0 



OO6061130F0F1E3CAE1 



C0C1271F1F3A3D7A7A3 



KEYS 
STAT 



360 

) 



STAT 



UNI 
)+1 
^IHAR 



890 



I ON 



#1 



800 



RND-i-3 



)+1 



16 



LB 



17 



I 

TD 
400 



104 



9 

lOR 



CHOOSE 



lOYST 



330 



REMElMBER 
CKS 



CHOlOSE 
HIGH 



380 



CALL 
RND + 3 



16 

SHI 



TS 



120 

k:|ALL 



HM= 



20 



ALL 
112 



) 

AT 
EL 
116 



10 



NEXT 



CALL 
830 



104 

DI 



VMj 
900 

I 

#1 



11 



ELSE 



SD 



CALL 
FOR 



I 

ELSE 



CALL 



LB 



SPLAY 



) 

HiMl 




24 



CK 



F 

ELSE 



CALL 
SD 



10 

HCHAR 



REMAINI 



TRS 



NT 

HM) 



K<> 



CALL 



CjOLjOR 
I 



98 



COLOR 



LB 



25 
480 



METHOD 



SK 



NT 



14 





2300 

) 

CALL 



SOUND 



CLEjAlR 
3 



TAR>4 



NT 
THEN 



18 



CALL 



CALL 



LB 



GOTiO 
AT 



KEY<49 



130 



TAR 



I NP 



ALPHA 
FOR TD 
CLEAR 



LL 



KEY<49 
SK=KEY 



NG 



NEXT 



#1 



SPLAY 
16 



TO 



DESTROYED 



38 
460 

RND-(-3 



10 

PATTERN 



LB 



10 



KEY 



NT 

rn|d|+i 
) 



LB 
TlHEN 



RND 



TlHEN 
2 



CALL 



440 
.9) 
100 
30 



RA 



LEV 
FOR 



2800 



COLOR 



COLOR 



OF 



23 



SOUND 



THEN 



60 



610 
620 
630 



640 
650 
660 
670 
680 
690 



700 

710 

720 
730 

740 

750 

760 
770 
780 

790 



810 
820 
830 
840 

850 
860 

870 
880 



910 



920 
930 
940 
950 



DI 
20 
CALL 



FOR 
ATT 
FOR 
ON 
CALL 
NEXT 
GOTO 
CALL 
00 



NC 



CALL 
#1 


CALL 



1 

F 

NEXT 
CALL 

) 

CALL 
30 



CALL 
SK + 2 
25) 
20 
CALL 
# 

CALL 



SPLAY 



1000 



ER 



NT 



104 

LB<10 



10 



DI 
N 

SE 
EN 
DI 
TE 
CALL 

6 

L 



SPLAY 
DAMjAlGEiD 
OF 



CALL 
4500 



APTAI 



FOR 
Y AT 
N 

CALL 



KEY 



R 
I I 
LSE 
CALL 
R 

CALL 
HEN 



I 

THEN 
LSE 



CALL 
CALL 
CALL 
CALL 



ATT 
4 + 120 



UCCESS 
D 

DI 



KEY 



720 

IMOT 



CjOLlOR ( 
DI 



TlHEN 

ATT 
D E L S P R 



SPLAY 



SPLlAY 
HAS 



SPLAY 



BE 



) 

SPLAY 



SPLAY 



KEY 
9 
F 



AT 
NEXT 



SPR 



100 



S K 

PATTERN 



CALL 
SOUND 



CALL 
NEXT 
DELSPR 
LB 



PATTERN 



#1 



DELSPR 
110,0 
AT 



CENTER 



KEY< 



IGIOSUB 
2 



19 



KEY 
ClALL 



930 



MOT 
MOT 
MOT 
MOT 



KEY 
121 



CALL 
lOYST 



TE 



llON 
2 



DELSPR 



CALL 



ENERGY 



SENT 



DELSPR 
STEP 
{NEXT 
AT 



69 



RND+80 
TO 



AT 



AT 



AT 



AT 

TP 
1 



78 



KEY 
I ON 



I ON 
I ON 
ION 



2300 



PATTERN 



YOUR 



#1,16 
SPLAY 



1700 



LB 



700 

BEEP 

KEY 
THEN 
AND 
CLEAR 



ELSE 



890 



11 



TE 



SCREEN 

D 
TE 



14 



GOTO 



14 



TE 
250 
L 
8 



14 



KEY 



M]OT I ON 
THEN 



83 



#1 



» 
50 

LB< 



LB 



30 



TE 



SOUND 



CAUSED 



UNI 



YOU 



NEXT 
124 




2 

HI 



150 

YOUR 
BEYOND 



112 

TlHEN 



»1 



#1 



FAI 



AT 



116 
LB 
1 




860 

#1 



BACK 
IGIOTO 



YOUR 



RETURN 



920 



THEN 
6 



16 



2 

CALL 



900 



) 

2800 



( 

CALL 



ARE 



STAT 



II 



LURE 



60 



YOU 



YOU 



KEY 



CALL 



THEN 



10 



YOUR 



AT 



TO 



NEXT 
PLAY 



STAT 
310 
KEYollO 
END 



2 

760 



24 



CALL 
116 



ClALL 
DI 



SHI 
IREPA 



860 



950 

) 



NT 



18 



CALL 



DEMOTED 



FlOR 
CjALL 



ELSE 



FOR 



CALL 



SPLAY 



2000 



TO 
RETURN 



ONCE 
TO 



IGOT 

ss 



ION 



IMI 
HEREBY 



CALL 



PATTERN 



25 



FOR 
CALL 
SCREEN 



770 



CALL 



YOU 



FLEET 



80 



GOTIO 
CALL 



POOR 



THE 



AGAIN? 



PATTERN 



LB 



MAGN 



MAGNI 



FOR 



RUN 



SOUND 



D = 



THEN 



SOUND 
CALL 



HAVE 



THEN 



MOT 



THEN 



RETURN 
RETURN 
RETURN 

RETURN 



TO 
RNDl+20 



LB 



CjOLOR 
LB 



AT 
ELSE 



HAS 



TO 



TO 



EM 



KEY 



ClOLOR 
560 



KEY 



TO 
SCREE 
2 



SOUND 



BEE 
BEICAU 



SHOOT 
OUT 



YOU 
THAI 



2000 



I ON 



STAT 
RETURN 
68 



940 

RETURN 



#3 



690 



PR I 



100 

lALL 
A 



^AS 
PROlMiOTE 

COMMAND 



89 
870 



FY 



OF 
BASE 



NEXT 



WI 
NIN 



SPLlA 
OR 



BE 



VA 



TO 
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Computer 

Chess 




The game of chess has fascinated men and women for 
hundreds of years. People from all walks of life and 
all ages have enjoyed the challenges and entertain- 
ment it provides. The universal popularity of chess is un- 
doubtedly due to its resemblance to life: Mastery of chess 
requires many of the same elements necessary to mastery 
of one's life — logical thought, long-range planning, the abili- 
ty to recognize and act on sudden opportunities, persistence, 
patience, concentration, steady nerves, confidence, objec- 
tivity and, of course, lots of experience! Yes, to do well in 
chess does require all these things, but interestingly enough, 
practicing the game greatly helps develop and nourish these 
same characteristics and abilities! "Learning to play" is, in 
reality, one and the same as "playing to learn." 

And yet, for all its challenges and self-improvement at- 
tributes, the game is enjoyable at all levels of skill — from 
raw novice to international master. Over the years, chess 
has provided me with hundreds of hours of engrossing enter- 
tainment and many cherished friendships. 

With the advent of strong chess-playing computer pro- 
grams, chess has entered an important new stage of develop- 
ment. People can learn chess much more rapidly than before 
without the often deflating experience of losing many games 
in public. This is especially true for children; losing badly 
to adults or other children can often drive them from the 
game. Having a ready and discreet opponent does indeed 
have its advantages. . . 

The TI Video Chess Command Cartridge is one of the 
programs now available. It is a unique implementation since 
it is contained in 30K of ROM (no time-consuming cassette 
loading), can run on a "bare-bones" TI-99/4A (no disk 
drives or other peripherals are needed), uses a keyboard 
overlay to simplify commands, and has built-in chess clocks. 
This last feature is useful for users who wish to eventually 
play in tournaments where the use of chess clocks is man- 
datory. Playing under tournament conditions is now possi- 
ble in the privacy on one's own home! 

In this initial section, I'll look briefly at the main features 
of the video chess program, examine some of its strengths 
and weaknesses, and make some suggestions for using the 
program to learn chess. 

There are four main options available for using the pro- 
gram. You can (1) play chess against the computer, (2) play 
against another human opponent, (3) set up a problem for 
the computer to solve, or (4) have the program play as many 
as nine (!) opponents simultaneously. In addition, games 
or positions may be stored on cassette — an especially useful 



feature for postal players, or players without enough time 
to finish their games in one sitting. 

When playing against the computer, you can control the 
playing characteristics of the program by choosing the ex- 
perience level (beginner, novice, or intermediate), the time 
allotted to the computer for each move (30 seconds to 200 
seconds), and the style of play (normal, defensive, or ag- 
gressive). The program also allows you to take back a move, 
ask for advice, have your move evaluated, or even switch 
sides! 

In the problem mode, you can ask the program to solve 
a checkmate in two, three, or four moves. This is, of course, 
a potentially valuable learning tool, but the program's ver- 
satility doesn't stop there: You can also set up any position 
and have the computer play a normal game starting from 
the given position. 

Based on many years of tournament experience, I would 
estimate the maximum strength of the program to be slightly 
less than the average player in a typical chess tournament. 
This is superior to probably 90 percent of the world's chess 
players! And presumably, stronger versions of the program 
will be available in the future. To put this in perspective, 
the strongest chess-playing program in the world, running on 
the enormous and fast CYBER or CRAY computers, still 
does not play at the level of a human chess master. (It will, 
however, defeat 99 percent of the world's chess players!) 

As an educational tool, the Video Chess program is ex- 
cellent. A beginning player can make rapid improvements 
in his game by adjusting the strength of the program as his 
own playing strength increases. If you're a new player, you 
should have at least one good book on chess that is designed 
for beginners. (There are many good ones on the market.) 
Then as you learn new ideas and techniques from reading, 
you can try them out against the computer immediately. For 
example, it is important for every player to master the basic 
checkmates: king and queen vs. king; rook and king vs. 
king; two bishops and king vs. king. All good chess manuals 
discuss these in detail. After reading about how to mate with 
king and rook against king, for example, you can im- 
mediately try it out using the program. Learning can pro- 
gress much faster when a tireless, willing opponent is always 
ready to play! 

The weakest part of the program is in the problem mode 
when asking for a mate in two, three, or four moves. For 
example, when I gave the program Problem No. 1 A (below), 
it worked for two and one half hours without coming to 
a conclusion. I finally turned it off. And I have had similar 
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disappointing results with rather easy mates in Problem No. 
IB. Fortunately, this defect is not terribly important, and 
may be alleviated in future versions of the program. The 
best use for this problem-solving mode seems to be in set- 
ting up positions from which the computer will commence 
playing as in a normal game. (Note: You can do this to learn 
the basic checkmates mentioned previously.) 



Problem No. lA 

While: Pawns: A2. B2. C2, F2. G2. H2 
Knights: CI 
Bishops: D2, Fl 
Rooks: HI 
Queen: D3 
King: CI 

Black: Pawns: A7. B7. C6. G7. H7 
Knighis: B8. E4 
Bishops: 08. F8 
Rooks: A8. H8 
Queen: E5 
King: El 

White to mow and checkmate in ihive moves. 




Finally, 1 will leave you with two problems to solve. Pro- 
blem No. 1 A comes from a game between two grandmasters 
about sixty years ago. Problem No. IB is a famous 
position — especially memorable because after Black made 
the beautiful winning move, spectators showered the play- 
ing stage with gold coins. As it turned out, however they 
were not showing their admiration. . .but rather, paying off 
their bets in disgust! 

Problem No. IB 

While: Pawns A2, C2. F2. C2. H2 
Knighis: None 
Bishops: None 
Rooks: C5. Fl 
Queen: G5 
King: CI 

Black: PawTis: A7. B7, E6. C7, H7 

Knighis: D4 

Bishops: None 

Rooks: H3. F8 

Queen: C3 

King: C8 



Black to move and win 

(Black has a single avshins mow). 





Computer Chess 
PART TWO 

Ever wondered where your computer got the "in- 
telligence" to beat you in a game of chess? It's all 
in the program, you say? But then where did chess- 
playing computer programs come from? You might sup- 
pose that the impetus for the development of these programs 
came from chess players themselves. But in fact, this was 
not the case at all. It was researchers in the field of artificial 
intelligence (psychologists and computer scientists) whom 
we have to thank for those embarrassing checkmates. . . 

The goal of these reseachers was to determine the nature 
of intelligence itself: What precisely it was, and consequent- 
ly, what it was not. This was no easy task. They hoped to 
shed some light on this problem by getting computers to 
do things that if performed by a human would require "in- 
telligence." It didn't take long to figure out that chess was 
a natural: It presumably required highly intelligent behavior, 
and yet, it was "contained" enough so that initial programs 
designed just to play "legal" games would not be pro- 
hibitively large. As these programs were developed, it soon 
became obvious that to progress from legal games to good 
—or even just reasonable — play required close attention to 
basic theory and concepts as understood by humans. For 
example, the number of possible positions after only the 
first ten moves in a game is a number having over a hun- 



dred zeros in it! Hence, looking at all possible positions is 
clearly impossible. 

As a consequence of this need for a higher level of 
understanding of the game, strong chess players had to be 
consulted. One of these was international master David Levy 
of Scotland. Levy is perhaps best known for his $10,0(X) 
bet (made in August 1968) that even within a decade, there 
still wouldn't be a computer program that could defeat him 
in a match. In the years since his bet (which he won easily), 
Levy has been a frequent visitor at computer conferences, 
where he lectures and plays simultaneous exhibitions against 
several of the current programs. Incidentally, he also acted 
as a consultant to Texas Instruments in the development 
of the Video Chess program. 

Levy has therefore provided a valuable link between the 
artificial intelligence commmunity and the large communi- 
ty of chess players. He, perhaps more than anyone else, has 
been in the position to measure the rate of computer chess 
progress. In his view (and mine as well), the rather recent 
advent of microprocessor chess playing machines will make 
chess popular and accessible as never before. The revolu- 
tion has just begun! 

As indicated above, chess playing programs do not at- 
tempt to find a moye by searching all posssible combina- 
tions of moves. Rather, chess programs combine chess 
theory and concepts together with brute force searching 
techniques to choose a move. Therefore, they are limited 
by how well the program "understands" chess theory and 
can "think" like a human player, and by speed and memory 
considerations. The speed and available memory determine 
how far ahead the program can be examined and evaluated 
in a given amount of time. The number of moves the pro- 
gram can look ahead in a given position is called its search 
horizon (Levy's term). 

For these reasons, even though they play relatively strong 
chess, chess playing programs have certain characteristic 
weaknesses which can often be exploited. For example, a 
program may sacrifice a bishop or a knight on one side of 
the board to win a rook (with a knight usually) in a corner 
on the other side. This will leave the knight trapped after 
it captures the rook. To any human chess player, it would be 
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evident that the knight was permanently trapped and would 
eventually be lost— leaving the player with only a rook (5 
units) to show for the loss of two minor pieces (a total of 
6 units). However, the computer would merely consider the 
situation a gain of two units (lose a bishop or knight and 
gain a rook) as long as the stranded knight could not be 
captured within the number of moves in its search horizon. 
The limited search horizon leads to other situations where 
short term expedients are followed to the detriment of 
position. 

Future improvements in speed will extend the search 
horizon of chess programs and thereby increase their play- 
ing strength even further. In my opinion, without con- 
siderable improvement in the longer range strategic 
capabilities of these programs, they will not be able to reach 
the level of world-class human players. However, we players 
in the other 99.9 percent had better watch out! 

As an experiment, I recently pitted my Video Chess (a 
Tl Command Cartridge) program against the Boris machine 
with the Morphy cartridge. Boris-Morphy is reputedly the 
strongest comercially available microprocessor chess play- 
ing machine. The match consisted of playing the Video 
Cliess program at its highest level (Intermediate, 200 seconds 
per move) against the Boris-Morphy machine at three dif- 
ferent levels from high to low. Although the Boris-Morphy 
program won all three games, the Video Chess program did 

Problem No. 2A 



While: Pawns: A2, B2. 02, D4, F2, CI. H2 

Knights: E4. ES 

Bishops: D3 

Roolcs: Al, HI 

Queen: H5 

King: EI 

Black: Pawns: A7. B6, C7, D7. E6. 07. H7 

Knights: B8 

Bishops: B7, F6 

Rooks: A8, F8 

Queen: E7 

King: G8 

VWufe to move and mate in several moves. 
Can you Find the fewest necessary? 




obtain a vanning position against the two lower levels (but 
could not find the knock-out punch). The top level of Boris- 
Morphy seems clearly stronger than Video Chess. All in all, 
the results were not bad, and since the top current level of 
Video Chess is called "Intermediate," we may look forward 
to further strengthening of the program. 

The two problems I'll leave you with are from games by 
famous chess players. The first position is from a game of 
"speed " chess played in 1912 between American Edward 
Lasker (who died recently at age 96!) and former English 
champion Sir George Thomas. The rules were, I believe, 
that neither player could allow his own clock to get more 
than five minutes ahead of his opponent's clock. To find 
such a pretty mating combination at that speed is impressive. 
The second position was played by the great American 
champion Harry Nelson Pillsbury near the turn of the cen- 
tury in an exhibition where he played blindfolded against 
22 different opponents simultaneously! Blindfold play is not 
as difficult as you might think — try it against your Video 
Chess program sometime — but to play 22 such games suc- 
cessfully is phenomenal. In recent times George Koltanowski 
has played blindfolded against more than 50 opponents 
simultaneously. But Pillsury's achievement is magnified by 
the fact that he could perform well in blind simultaneous 
play against mastersl 



Problem No. 2B 

While: Pawns: A2, O. H2 

Knights: None 

Bishops: E3. E4 

Rooks: None 

Queen: H4 

King: HI 

Black: Pawns A7, 86, OS, H7 

Knights: None 

Bishops: C6 

Rooks: None 

Queen: F7 

King: H8 

fibril; to move and mate in three moves. 




Computer Chess 
PART THREE 

We have discussed the relationship between chess 
programs and artificial intelligence, and examin- 
ed some general characteristics of chess playing 
programs— both strengths and weaknesses. In this arti- 
cle, I'm going to illustrate some of these characteristics 
through an actual game played between the TI Video 
Chess program and myself. The game was played with 
the program set on intermediate level, normal mode, with 
200 seconds per move allowed. 



White: J. Wolfe 

1. E2 - E4 

2. D2 - D4 



Black: TI-99/4 
with Video Chess 
G7 - G6 
F8 - G7 



These first two moves constitute the Pirc-Robatsch 
defense to the opening move E2 - E4. You may have 
noticed in your play that the program often makes the 
first several moves quickly and then slows down. This 
is because certain standard opening sequences are stored 




in the program and played automatically in the ap- 
propriate situation. As soon as these run out, or as soon 
as the position is no longer standard, the program reverts 
to its main programming and hence slows down. 

3. Bl - C3 C7 - C6 
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The main purpose of the opening part of the game is 
to bring out the pieces and to get a reasonable foothold 
in the central part of the board. (More precisely, the 
center is the square region whose corners are C3, C6, F6, 
and F3. The squares D4, D5, E4, and E5 are especially 
crucial.) Long experience has shown that the success of 
future maneuvers depends on an adequate control of this 
area. The last moves for each side fit well into this plan. 
White brings out a knight that bears down on the center 
while Black prepares to play D7 - D5 establishing his own 
foothold there. 

4. Fl - C4 B7 - 85 

5. C4 - B3 

White develops a piece and temporarily prevents 
D7 - D5. Black responds by driving back White's bishop 
and preparing a later pawn advance on the queen-side 
(i.e., the left-hand portion of the board). 

5. . . . D7 - D6 

This is a weak move because of the following tactic. 

6. C3 - B5 

Black cannot capture the knight because White then 
plays 7. B3 - D5 and captures the rook at A8 coming out 
with a two unit gain in material. (Recall that a rook is 
worth 5 units and a bishop 3 units. These units represent 
the relative strength of the two pieces.) 

You might be wondering why the program missed such 
a short sequence of moves. Well, the reason is fairly com- 
plex. The program has two basic features: The first is a 
static evaluation feature which takes a given position and 
evaluates it to decide which side is better and by how 
much. This is done by assigning numerical values to cer- 
tain features of the position and summing these values 
to get a numerical value for the position. For example, 
being a pawn ahead in material might be worth, say, 75 
points, while not being able to castle (ever) might be worth 
minus 15 points. The program does this for both sides, 
and the side with the largest score is judged to have the 
best position. In this evaluation scheme, material advan- 
tage is given the largest positive weight by far. 

The second basic feature of the program is a searching 
procedure. When combined with the static evaluation 
program, it allows the program to evaluate the conse- 
quences of various moves and to pick what it deduces 
to be the optimum one. Unfortunately, time and memory 
considerations limit the number of moves the program 
can look ahead (i.e., its search horizon) and can also limit 
the number of moves that are considered in response to 
a contemplated move. 

Thus, in examining the position after 5. ... D7 - D6, 
White has 38 legal moves. In deciding which moves to 
consider first as possible replies by White, the program 
will not begin with moves that result in immediate 
material loss by White. This again is due to the heavy 
weight assigned to material superiority. Thus the con- 
tinuation 6. C3 - B5 might not even be reached in the 
search within the time limit. Sacrifices of material are dif- 
ficult for all but the most advanced and powerful pro- 
grams to either make or predict. 

6. . . . D6 - D5 



This is a good move and is the other side of the argu- 
ment above. The program finds the only possible way to 
regain the lost pawn. Here the emphasis on material is 
helpful to the program. 

7. B5 - C3 D5 - E4 

8. C3 - E4 G7 - D4 

9. Gl - F3 

Thus, Black has not lost a pawn after all. However, 
Black's position now has two unpleasant features: First, 
his pawns at A7 and C6 are weakened since they cannot 
be protected by pawns if attacked, but must be protected 
by pieces. This can tie down Black's pieces and will make 
the pawns vulnerable, especially in the later part of the 
game when fewer pieces remain. Second, to regain the 
pawn. Black has exposed his bishop to attack. Thus White 
can develop a piece (01 - F3) and at the same time force 
Black to waste a move either guarding or retreating his 
bishop. Note that White has three pieces developed and 
no pawn weaknesses, while Black has only one developed 
and definite pawn weaknesses. White already has a 
distinct advantage. 

9. . . . C6 - C5 

This is another weak move. Black cannot retreat the 
bishop to 07 or F6 because of the B3 - F7 check winning 
the queen, but D4 - B6 is possible— preserving material 
equality. There is some evidence from this game and 
others I have played that the search horizon of Video 
Chess is about two moves in complicated positions. This 
would explain why C6 - C5 (so as not to waste a move 
retreating) was considered best. 

10. C2 - C3 D4 - F2 check 

Now looking ahead two moves, the program apparent- 
ly can see that if D4 -07, then B3 - F7 check and White 
wins the black queen on the next move. However, later 
when I set up the position after D4 - 07 and asked the 
program to play White, it played Dl - D8 winning only 
two pawns (the one on F7 and then the one on C5), leav- 
ing White two units ahead. Since giving up a bishop for 
a pawn also leaves Black two units behind without hav- 
ing to trade queens, the move 10. ... D4 - F2 was 
chosen. Thus it appears that the program made the right 
move for the wrong reason! 

11. El - F2 08 - F6 

Again the program does not see the third move in the 
coming sequence. 

12. E4 - F6 check E7 - F6 

13. Dl - D8 check E8 - D8 

14. B3 - D5 

Thus White wins another piece. 

14. . . . B8 - C6 

15. D5 - C6 A8 - B8 

White is so far ahead in material that winning is sim- 
ple. Accordingly, I will relate the rest of the game with 
little comment. 

16. B2 - B4 

This move allows White to play CI - F4 without an 
annoying check at the B2 by the black rook. 
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16. ... C5 - 34 

17. CI - F4 B8 - B6 

18. Al - Dl check Dl - E2 

19. F4 - D6 check E7 - D8 

19. ... E7 - E6 leads to a quick mate after 20. HI 
-El check E6 - F5; 21. Dl - D5 check F5 - G4; 22. 



H2 - H3 mate. 






20. D6 - C5 check 


D8 


- C7 


21. C5 - B6 check 


A7 


- B6 


22. C6 - D5 


B4 


- C3 


23. HI - El 


C7 


- B8 


24. D5 - F7 


C8 


- G4 


25. El - E7 


G4 


- F3 


26. G2 - F3 


F6 


- F5 


27. Dl - D7 


B8 


- C8 




Computer Chess 
PART FOUR 

The computer chip has already revolutionized the game 
and toy industry, and even bigger changes are ahead. 
Chess playing machines, a specialized branch of this 
new technology, are now widespread. There are several com- 
panies making what are essentially simple microcomputers, 
completely devoted to playing chess (at least eight companies 
at last count). This is, of course, in addition to numerous 
packages of chess software that run on personal computers. 

Competition between chess-playing machines has resulted 
in a continuing strengthening and evolution in performance 
to the point where there is now a world microcomputer chess 
championship held each year. This now complements the 
annual world computer championship which has been held 
for several years, and which features powerful programs, 
typically requiring large, fast computers. 



White: Cray B8tz 


Black: Bdle 


1. E2.E4 


E7-E5 


2. Gl - F3 


B8-06 


3. Fl - 04 


G8-F6 


4. F3 - G5 


D7-DS 


5. E4 - OS 


06- A5 


6. 04 • BS check 


07 - 06 ' 


7. D5 - 06 


B7-C6 


(This is Two Knight's 


Defense in which black sacrifices a 


pawn to gain a lead in development and lovely piece play.) 


8. Dl - F3 


AS - B8 


9. B5 - 06 check 


A5-06 


10. F3- 06 check 


F6-E7 


11. D2-D3 


F8-E7 


12. G5.E4 


08-B7 


13. 06-A4 


D8 - 07 
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28. F7 - E6 B6 - B5 

29. D7 - A7 check C8 - D8 

30. E7 - D7 check D8 - E8 

31. A7 - A8 checkmate 

Currently, the most powerful chess programs can look 
ahead about six moves in fairly complicated positions. 
Advancements in hardware should extend the capability 
to nine moves. This is about twice as many moves as chess 
masters can look ahead in complicated positions. Such 
programs will be virtually impossible to trap in simple 
tactical sequences and, in fact, the human player will most 
likely be victim. To defeat such a program will require 
superior application of chess theory and strategy, as well 
as avoidance of open tactical situations where an eight 
or nine move look-ahead program would be at its best. 



In September 1981, the second annual World Microcom- 
puter Championship was held in Hamburg, Germany. Four 
machines competed in the commercial division and eight in 
the experimental group. The Chess Champion Mark V (Sci 
Scys, Hong Kong) won the commercial group while the 
Champion Sensory Challenger (Fidelity, U.S.A.) was a close 
second and defeated the Mark V in their individual series 
2'/2-l '/2. In the experimental group. Fidelity Experimental 
(USA) was first, with Princhess (Sweden) second and a two- 
way tie for third place between Pilidor Experimental 
(England) and the Phoenix/Novag Experimental 
(USA/Hong Kong). 

Later in November, the twelfth annual North American 
Computer Championships were held in Los Angeles. Six- 
teen programs were entered — from microcomputer pro- 
grams like Philidor mentioned above, to powerful "move 
crunchers" like Belle of Bell Labs, and Cray Blitz using the 
powerful Cray computer that carries out 80 million instruc- 
tions per second! The winner was the impressive program. 
Belle (also the world computer champion!) which features, 
in addition to the basic program, special hardware developed 
expecially for chess. This program and hardware can ex- 
amine 23 million (!) chess positions in a three minute 
period — almost seven times as many as its nearest com- 
petitor. Finishing in a tie for second were Cray Blitz, 
Nuchess and Bebe. Even though Cray Blitz is backed up 
by a computer a hundred times faster than Belle's, it can 
only examine only about a million positions in a three minute 
period. This demonstrates the great advantage of having 
special hardware! 

Just in case you're curious about how well these programs 
play chess, I give you here the crucial last round game 
between Belle and Cray Blitz for the championship. 

25. Fl - F8 check B8 - F8 

26. H2 - H3 E4 - El check 

27. Gl - H2 H7 - H6 
(So he can move his rook to Fl) 

28. E6-B6?? 

(A blunder. Correct is 01 • H6! which leads to perpetual 
check and a draw) 

28. . . . F8 - Fl 

29. B6-D8 check H8 - H7 

30. D8 - Fl check E5 - F4 

31. D3 - Fl El - Fl 
(D3 • Fl is forced to avoid checkmate.) 

32. A2-A3 E4-E3 

33. 01 - E3 Fl - Al 
and Black won in a few more moves. iSHU 
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(13. . . • may be bener) 

14. B8 -03 B7-06 

15. A4-04 O-08(?) 
(O • B7 is better, preventing 03 - D5 and maintaining 
pressure on the A8 - HI diagonal.) 

16. 03-D4 06-D5 

17. 04 - D5 07 - 02 

18. 0-0 F7-F6 

19. F2-F4? D7-B6 
(19. 01 - E3 was better for White who would then have the 
advantage.) 

20. D5-A5 0-D3 

21. A5-A7 0-0 

22. A7-E7 D3-E4 

23. E7-E6 check C8 - H8 

24. F4-E5 F6-E5 




Computer Chess 
PART FIVE 

In this section we are going to look at some variations 
of standard chess problems, as well as a few interesting 
challenges associated with chess but not directly related 
to playing the game. You'll be able to try all of this on your 
TI-99/4A computer with the Video Chess Command 
Cartridge. 

Diversions 

By now, of course, you are already well acquainted with 
chess problems taken from positions in actual games. But 
chess literature also abounds in problems that have little or 
no relevance to practical play, but are nevertheless extremely 
intriguing. Here are a few: 

Problem 5A: This is called the "Knight's Tour." Place 
a knight on an empty board (on Al for example) and move 
the knight 63 consecutive times in such a way as to land 
on each square exactly once and return to the beginning 
square on the 64th move. 

Problem 5B: Remove the squares HI and A8 from the 
chessboard. Is the "Knight's Tour" still possible now? You 
are required to prove that your answer is correct! 

Problem 5C: This problem involves a knowledge of chess 
plus the ability to make logical deductions. While playing 
a game of chess, Black became irked at his losing position 
and petulantly removed his king from the board. At that 
moment. White was in the middle of making his move; for 
an instant after removal of the black king, the board was 
completely empty. After White completed his move, Black 
cooled down and replaced his king. But then he made the 
worst possible move on the board and White announced 
mate in two moves. Your task is to reconstruct the position 
just before White moved and give the exact sequence of 
moves leading to the checkmate of the black king. (Yes, the 
problem has a solution.) 

Problem 5D: Place eight queens on an otherwise empty 
board in such a way that no two queens are attacking each 
other. 

Problem 5E: Find the shortest number of moves necessary 
to produce a stalemate starting position. 



The above problems represent only a small sample, but 
perhaps give some idea of the variety of possiblities. Oh yes, 
I will provide solutions (for all but Problem 5E, for which 
the minimal number is not known). It is a much smaller 
number than one would think on first seeing the problem. 
Try it and see what you can come up with. . . 

Versions 

Besides the diversions provided by such puzzles, chess 
players have also been attracted by variations on the basic 
game of chess. "Speed Chess" (or five-minute chess) is a 
version requiring a chess clock. Initially each player is given 
five minutes of time. Play then proceeds until one side is 
checkmated, a draw is declared, or until one side runs out 
of time. (For those of you who are not acquainted with the 
use of a chess clock, I should explain that the player has 
his clock running until he makes his move. He then pushes 
a button stopping his own clock and starting that of his op- 
ponent.) Thus each game lasts no more than ten minutes. 
This version is widely popular at chess clubs and among 
tournament players. 

Another currently popular version, especially with 
younger players, is called "Siamese Chess." This involves 
four player divided into teams of two players each and re- 
quires two chess sets and (usually) two chess clocks. The 
partners sit on the same side of the table and play opposite 
colors. Thus the pieces that one partner captures will be the 
same color as those his partner will be playing on the adja- 
cent board. As one partner captures a piece from his oppo- 
nent, he passes it to the other partner. The reason for this 
is that, in addition to the usual moves of chess, one is allow- 
ed to place new pieces on the board anywhere that is not 
occupied — with the one exception that pawns may not be 
placed on the back ranks (squared A I - HI or A8 - H8) 
where they could be promoted instantly to a more power- 
ful piece. 

The placement of new pieces on the board causes the chess 
battle to take place at an accelerated pace, and causes 
unusual and often hilarious positions to occur. To make 
matters worse, the clocks on each board are set for five 
minutes as in speed chess! The game ends when either a 
checkmate occurs in one of the games, both games are 
drawn, or one side runs out of time. 

Although chess is far from being "played out," so much 
study has been devoted to the opening portion of the game 
that it is possible to go through the first twenty moves in 
some openings simply repeating moves that are already 
known to be good. These are called "book moves" because 
they can be found in chessbooks dealing with openings. This 
means that a player may obtain a substantial advantage in 
the opening stages of a game simply by memorizing several 
sequences of moves found in opening books. At the grand- 
master level, this tendency is so refined that victory often 
hinges on knowing the latest wrinkle in the theory of some 
particular opening variation, and springing it on a less 
prepared opponent — one who must then expend extra time 
on his clock searching for the best reply to this surprise. 
To combat this over-refinement of opening theory, a sim- 
ple variation of chess has been proposed. It is called 
"Prechess" and is played exactly like ordinary chess except 
for the first eight moves of the game. These proceed as 
follows: Both sides line up their pawns in the usual 
way, but leave the row behind the pawns empty. Then the 
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first eight moves consist of each side alternately (beginning 
with White, as usual) placing down one piece at a time on 
the back row anywhere that is unoccupied. This is done until 
all eight pieces on each side are placed. Then the game con- 
tinues in the usual way. Since all opening theory is based 
on the standard starting position (which this is usually not), 
the printed variations found in the opening books are 
useless. 



This version of chess appeals to many serious players and 
has the advantage that it can be played using a standard 
set without any bizarre rule changes; basic chess principles 
still apply as strongly as ever. By using the problem mode 
of the Video Chess program to set up the initial position, 
you can play "Prechess" on your computers. Try it some 
time. Some very unusual and interesting games can result 
from it. 



Solutions to < 

Problem No. lA: 

1. D3 D8 cheek E8 - D8 <a)2- . . D8 - E8 

2. D2 - G5 double check 3- ^1 - D8 checkmate 

(b)2. . . D8 - C7 
3. G5 - D8 checkmate 

Problem No. IB: 1. . . C3 - G3!! 

Black appeared to be in trouble since after the apparently forced retreat of his queen out of danger, 
White could capture the rook on H3 and be decisively ahead in material. Black had forseen all this, 
however, and replied with the crushing move above. White has three ways to capture the black queen 
(which must be captured else mate on H2 is inevitable)— all unsatisfactory. 

(a) 2. H2 - G3 D4 - E2 checkmate, (c) 2. OS - G3 D4 - E2 check. 

(b) 2. F2 • G3 D4 • E2 check. 3. Gl • HI E2 • G3 check. 
3. Gl - HI F8 - Fl checkmate. 4. HI - Gl G3 - E2 check. 

5. GI - HI H3 - a 

andBlackisafuUpieoeaheadwithaneasywin.Intheactualgame, White resigned after I. . . C-G3. 

Problem No. 2A 

1. H5 - H7 check!! 08 - H7 

2. E4 - F6 Double check H7 - H6 (else EF - C8 male) 

3. E5 - G4 check 

4. F2 - F4 check 

(a) 4. . . GS - F4 

5. G2 - 03 check F4 - OS 

6. H2 - H4 checkmate or 

5. . . F4 - F3 

6. - checkmate. 

(b) 4. . . 05 - H4 

5. G2 - G3 check H4 - H3 

6. D3 - Fl check B7 - 02 

7. 04 . F2 checkmate 

Problem No. 2B 

1 n - Fl check 

2. E3 - Gl Fl - F3 check! 

3. E4 - B C6 - F3 checkmate. 



ess Problems 

Problem No. 5A: 



Here is a knight's tour beginning at A I . This solution is my own, found after an appropriate amount 
of trial, error and frustration! 



Al ■ 


• C2 


- El - 


G2 ■ 


H4 


• F3 - 


Gl - 


H3 • 


• F2 • 


HI ■ 


03 


- Fl 


H2 


• G4 


• H6 


- F7 


- H8 


- 06 


- F8 - 


H7 


- F6 


■ 08 


- E7 


- F5 


07 ■ 


■ H5 


- F4 ■ 


E6 ■ 


05 ■ 


E4 - 


D6 - 


E8 - 


C7 . 


A8 ■ 


B6 ■ 


C8 


A7 • 


C6 


- D8 ■ 


• B7 ■ 


• A5 ■ 


• C4 ■ 


E5 - 


D7 ■ 


38 - 


A6 - 


B4 - 


A2 


C3 ■ 


D5 


- E3 - 


Dl 


■ B2 - 


A4 . 


C5 - 


D3 ■ 


• CI • 


• E2 - 


D4 


• 05 



A3 - Bl • D2 ■ B3 - Al Home Again! 

Problem No. SB: 

Removing the square HI and A8 makes the knight's tour impossible. The reasoning is as follows: 
Both these squares are the same color (white) so there remain two more black squares than white. 
But on a knight's tour the color of the squares visited alternates from move to move so that the total 
number of dark squares and light squares must be the same if a tour is possible. 

Problem No. SC: 

It is clear that White must have at least two pieces to checkmate black. The only legal move in which 
two pieces of the same color may be moved is castling. Thus White was in the act of castling when 
Black removed his own king and hence White has a king and a rook. The remaining problem is to 
move the black king so that after White castles it can be moved to a square where checkmate in two 
can be forced (counting the first Black move). A little experimenting leads to the conclusion that the 
black king in on B3 and White was castling on the queenside. The final sequence is 1. - - B3 
- A2 2. Dl - D3 A2 - Al 3. D3 - A3 checkmate! 

Problem No. 5D: 

It is easy to convince yourself that this one is impossible but it isn't. One solution is to place the 
queens on A3, B4, C7, Dl, E4, F2, 08, and H6. 
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A MICRO 
BARTENDER 





TI BASIC ON THE ROCKS 



Entertaining guests can indeed be a chore— 
especially when you have to help them decide on 
the choice of drinks, remember how to correctly 
mix the selected drinks, and simultaneously explain to 
your curious visitors exactly how you use the exotic com- 
puter in your livingroom. Now, this three-part task can 
be handled much more enjoyably with Micro 
Bartender— a. TI BASIC program. 

The next time guests arrive just sit them in front of 
your home computer and let them choose their own mixed 
drinks. The program will not only provide easy-to-follow 
recipes, but will also show your guests how the finished 
drinks should appear — in full color, with proper glass and 
garnish! 

But what's the use of choosing drinks that are impossi- 
ble to make because you're missing one or more ingre- 
diants? It's definitely slow and frustrating when the on- 
ly way to find "possible" drinks is by scanning all the 
ingredients on page after page of recipes. But happily, 
this tedious process is now a thing of the past. With 
Bartender's built-in search routine, you can tell the com- 
puter what ingredients are actually on hand, and it will 
tell you what drinks you can, in fact, make. Then, you 
can look up the details of each recipe and see a graphic 
representation of the finished drink's appearance. 

Cramming nearly a score of drink recipes (plus the 
associated graphics) into the TI-99/4's 16K of RAM 
memory was no easy feat. Observant programmers will 
notice our extensive use of data reconstruction techni- 
ques. For those programmers who happen to be non- 
drinkers — and debugging alone could drive a man to 
drink — the program logic and control structure is suitable 



with many other types of reconstructed "recipes." [On- 
ly kidding, of course, about "driving a man to 
drink. . . ."—Ed.] mm 



EXPLANATION OF THE PROGRAM 
Micro Bartender 

Line Nos. 

200-240 Prints title screen. 

250-290 Subroutine to determine color for graphics. 

300-1350 Subroutine for graphics. 

1360-1650 Defines special characters. 

1660-1750 Reads data while title screen is displayed. 

1760-1860 Prints screen of two major options. 

1870-2220 First option. Prints two menu screens of the 

list of drinks, receives user's choice. 
2230-2250 Clears screen, sets colors of graphics for 

drink chosen. 
2260-2540 Prints name of drink and type of glass. 
2550-2580 Prints amounts and ingredients in recipe. 
2590-2650 Prints mixing instructions. 
2660-2710 Prints cocktail or whiskey sour glass. 
2720-2810 Prints garnish and sets colors for garnish. 
2820-2850 Prints instructions for stir rod or straws. 
2860-3000 Draws the drink. 

3010-3020 User may press any key to continue program. 
3030-3090 Second option. Prints instructions for ingre- 
dient inventory. 
3100-3200 Receives user's input Y or N for each ingre- 
dient in INV$ array. 
3220-3260 Prints message for no drinks possible. 
3270-3370 Compares each drink's ingredients with inven- 
tory list and prints possible drinks to make. 
3380-3400 User presses any key to go back to option 
screen. 

3410-3780 Data for DRINKS array of attributes for each 
drink. 

3790-3810 Names of ingredients for inventory list. 
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66'\ XT hy Mr. Templeton, you can't figure that!" 
%A/ said the lady at the finance company. I had 
V T merely asked her the formula for com- 
puting the payoff amount on the installment contract on 
my 1978 Datsun. 

This emphatic "can't do" sent me racing off to the 
library in my soon-to-be-liberated Datsun. And it was 
there that I discovered the existence of the Rule of 78. 
So, armed with this knowledge, I decided to write a pro- 
gram that applied the Rule to installment contracts and 
let my TI-99/4A do the figuring for me. 

From the name of this article you might have expected 
some sort of game, but the Rule of 78 is no game. It deter- 
mines the amount of money required to pay off an in- 
stallment contract at any given time, or the amount to 
be re-financed when you trade in before making all the 
payments. Should you be so unfortunate and have to 
default, the Rule of 78 determines the balance that 
becomes due and payable — the amount the finance com- 
pany would be entitled to recover by repossessing the car. 
This Rule also is the method recognized by the Internal 
Revenue Service for computing the portion of the finance 
charge deductible each year during the life of the contract. 

The Rule of 78 defines the fraction of the total finance 
charge that is on the unused portion. The numerator of 
the fraction is the sum of the numbers of the remaining 
payments; the denominator is the sum of the numbers 
of all payments. The number of the first payment is equal 
to the number of payments in the contracts — e.g., 48 
payments for a four-year contract. The number of each 
succeeding payment is one less; the last payment is 
number 1 . At the time the Rule got its name, 12-payment 
contracts were the usual type. The sum of 12, 11,. . ., 
and 1 is 78, the denominator of the fraction. A more ap- 
propriate name in our day would be rule of 1 176, which 
is the sum of 48 through 1. 

Many installment contracts allow an acquisition charge 
to be deducted from the finance charge before multiply- 
ing it by the fraction. This is almost a prepayment penal- 
ty, but not quite— because you usually pay only a por- 
tion of the acquisition charge. When applicable, the ac- 
quisition charge affects the payoff amount of the 
contract. 

The Rule of 78 is also known as the Sum of the Month- 
ly Balances Method and the Sum of the Months Digits 
Method. According to the Consumer and Commercial 
Credit Installment Sales, a subscription service published 
by Prentice-Hall, it is widely used in installment contracts. 
From these volumes, which contain federal and state law 
on the subject, I discovered that the Rule is required by 
law in some states and allowed by law in all states. It ap- 
plies to installment contracts on automobiles, furniture, 
and appliances, and to some types of loans. Internal 
Revenue Service Publication 545, Interest Expense, ex- 
plains the Rule and its application to income tax 
deductions. 

Running the Program 

The program is shown in the listing at the end of this 
article. It is written in TI BASIC, but will also run in TI 
Extended BASIC. Copy the program into your computer 
and enter the RUN command. 

Consult a copy of the contract. First, be sure it men- 
tions the Rule of 78 or one of its aliases in the section 



THE RULE OF 




on prepayment. Then locate the amounts requested in the 
initial display. All of the amounts are usually typed in 
except the acquisition charge; it is printed in the contract. 
The display is as follows: 

INSTALLMENT PAYMENTS 
AMOUNT FINANCED: $ 
FINANCE CHARGE: $ 
ACQUISITION CHARGE: $ 
AMOUNT OF PAYMENT: $ 
NUMBER OF PAYMENTS: 
FIRST PAYMENT DATE: 

The prompts of the displays are typical of the names 
used in contracts. The amount financed is the sum of the 
price of the merchandise, sales taxes, insurance, etc., less 
the down payment. The finance charge is the amount add- 
ed to the amount financed to compute the total of 
payments. The acquisition charge is printed in the sec- 
tion on prepayment. (It is $25 in many contracts.) It is 
easy to come up with the amount of payment: That's the 
amount you pay each month. Typically, you make 12 
payments on appliances and 48 on new cars. Enter the 
date of the first payment expressed as three numbers 
separated by slashes. The first number represents the 
month, 1 through 12. The second is the day of the month, 
1 through 31. The last number is the year, represented 
by the last two digits. For example, if the first payment 
were due December 23, 1984, you would enter 12/23/84. 

After you enter the figures, the program lists the op- 
tions as follows: 

CHOOSE ONE 

1. CONTRACT SCHEDULE 

2. CONTRACT STATUS 

3. TAX DEDUCTION 

4. NEW CONTRACT 
ENTER NUMBER: 

The Contract Schedule option provides the date, total 
paid, balance prepay amount, and amount saved by 
prepaying for the first payment. By pressing ENTER you 
request the next payment. By repeatedly pressing ENTER 
you can display these five items for each payment of the 
contract. On the display for December of each year, the 
program also displays the tax deduction for the year. 

When you specify the Contract Status option, the pro- 
gram requests a date. The program then displays the 
status of the contract on that date. If the date is during 
the period of the contract, the status display includes the 
date, total paid, balance, prepay amount, amount saved 
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by prepayment, and the tax deduction for the year if the 
contract is prepaid on that date. The status figures, of 
course, apply only if all payments have been made up 
to the requested date. 

The Tax Deduction option shows you the allowable in- 
come tax deduction for each year of the contract. This 
same information is provided in the contract schedule 
displays; because this option gives you only the tax deduc- 
tion, it is much faster. In many cases, prepayment is not 
possible, but deducting the proper portion of the finance 
charge is important. 

The New Contract option returns to the beginning of 
the program and requests the inputs previously described. 
If you were really into installment contracts, you could 
compute the figures for the contract on your car, then 
on your TV, etc. Option 4 would enable you to enter 
figures for each additional contract. 

If you select option 1, 2, or 3, the program lists the 
values you entered at the top of the screen, as follows: 

AMOUNT FINANCED: $2,545.73 
FINANCE CHARGE: $ 781.03 
ACQUISITION CHARGE:$ 25.00 
AMOUNT OF PAYMENT:$ 92.41 
NUMBER OF PAYMENT: 36 
FIRST PAYMENT: 12/23/80 

Below this display, the specific display for the selected 
option appears. For the Contract Schedule option, the 
following display is repeated for each payment: 

CONTRACT SCHEDULE 

AFTER PAYMENT ON 12/23/80 
TOTAL PAID $ 92.41 

BALANCE $ 3,234.35 

PREPAY AMOUNT $ 2,558.92 
SAVE BY PREPAY $ 675.43 

DEDUCTION FOR 1980 $42.22 

For the Contract Status option, the initial display requests 
the date, as follows: 

CONTRACT STATUS 
ENTER DATE: 

Enter a date in the format previously described. If you 
enter a date before the month of the first payment, the 
following is displayed: 

STATUS ON 11/30/80 
TOO EARLY 

On the other hand, if you enter a date later than the last 
day of the month in which you will make the last pay- 
ment, the following is displayed: 

STATUS ON 12/1/83 
PAID UP 

When you enter a date during the period of the contract, 
the following is displayed: 

STATUS ON 12/31/81: 

TOTAL PAID $ 1,201.33 

BALANCE $ 2,125.43 

PREPAY AMOUNT $ 1,838.23 

SAVE BY PREPAY $ 287.20 



DEDUCTIBLE IN 81 $ 451.61 
IF PAID OFF ON 12/31/81 

For the tax deduction option, the display is as follows: 

IF YOU PAY ALL PAYMENTS 
AS SCHEDULED, YOU MAY 
DEDUCT FINANCE CHARGE 
AS FOLLOWS: 



YEAR AMOUNT 

1980 $ 42.22 

1981 $ 415.14 

1982 $ 246.27 

1983 $ 77.40 



At the bottom of each screen, the program displays the 
following message; 

PRESS ENTER TO CONTINUE 

OR 9 TO QUIT 

For the Contract Schedule option, you get the figures 
for the next payment when you press ENTER. When all 
payments have been displayed, pressing ENTER displays 
the list of options previously described. For options 2 and 
3, which have one screen each, pressing ENTER displays 
the option list. 

The accuracy of the figures depends on the accuracy 
of the computer. Texas Instruments claims ten digits of 
accuracy for the TI-99/4A. In the case of the contract 
on my 1978 Datsun, the finance company's figures were 
not exactly the same as mine. The differences were a pen- 
ny or two, most likely due to differences in computer ac- 
curacy. Of course, I paid the amount their computer 
wanted. 

Changing the Program 

If you have a printer, you will want to change the pro- 
gram to print the data displayed on the screen and you 
will probably want to change the format as well. The con- 
tract schedule can be printed in tabular form, one line 
per payment, on an 80-column printer. 

The program has a subroutine for each option, but you 
may not want all the options; if not, you can leave one 
or two out. The contract schedule subroutine begins on 
line 680, and ends on line 1540. The contract status 
subroutine begins on line 1560 and continues through line 
2280. The tax deduction subroutine occupies lines 2300 
through 2650. Each subroutine is independent of the 
other two; however, the driver (lines 170 through 660) 
and the miscellaneous subroutines from line 2670 to the 
end of the program are required for all subroutines. 

Streamlining for TI Extended BASIC 

You can run the program in Extended BASIC as it is, 
or you can streamline it, exploiting some of the features 
of the more powerful language. The power of the 
DISPLAY statement of Extended BASIC is particularly 
valuable in this program. 

Line 170 is a DEF statement that defines a rounding 
function. A format defined by an IMAGE statement 
automatically rounds fractions, and this function is used 
to align decimal points in the displays. The function is 
not needed if you use a specified format. 

The subroutine beginning at line 2880 displays a string 
at a defined point on the screen. When you use a 
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DISPLAY statement with the AT option, this subroutine 
is not required. Similarly, the subroutine at line 2940 adds 
zeros to the right of the decimal point, where required. 
It also inserts a comma between the hundreds and 
thousands digit of numbers greater than 999.99. A 
defined format adds least significant zeros but does not 
insert the comma. If you want to use a format and give 
up the comma, omit this subroutine. 

To incorporate these changes, modify the program 
shown in Listing 1 by performing the following steps: 

1. Omit line 170 and modify line 180 as follows: 

180 IMAGE" mfttfM" 

2. Omit lines 490 and 500; modify line 510 as follows: 

510 PRINT USING "AMOUNT FINANCED 
: :$#####.##":UB 

3. Omit lines 520 and 530; modify line 540 as follows: 

540 PRINT USING "FINANCE CHARGE :$ 
#####.##":FC 

4. Omit lines 550 and 560; modify line 570 as follows: 

570 PRINT USING "ACQUISITION CHARGE: 
$####.##":AC 

5. Omit lines 580 and 590; modify line 600 as follows: 

600 PRINT USING "AMOUNT OF PAYMENT: 
$####.##":PMNT 

6. Omit line 630 and modify line 640 as follows: 

640 PRINT USING "FIRST PAYMENT: ##/##/##" 
;MO,DA,YR 

7. Omit lines 810, 830, and 840; modify line 850 as 
follows: 

850 DISPLAY AT (14, 17):USING "##/##/##": 
CMO, DA.CYR 

8. Omit lines 880-910; modify line 930 as follows: 

930 DISPLAY AT{15, 17):USING 180:TOTPD 

9. Omit lines 950-990; modify line 1000 as follows: 
1000 DISPLAYS AT(16, I7):USING 180:BAL 

10. Omit lines 1080-1110; modify line 1130 as follows: 
1130 DISPLAY AT(17, 17):USING 180:PREPAY 

11. Omit lines 1140-1170; modify Une 1190 as follows: 
1190 DISPLAY AT(18, 17):USING I80:SAV 

12. Omit lines 1280-I3I0 and 1330; modify line 1340 as 
follows: 

1340 DISPLAY AT{20,I):USING "DEDUCTION FOR 
19## $###.##" :CYR,ADED 

13. Omit lines 1430-1460 and 1480; modify line 1490 as 
follows: 

1490 DISPLAY AT(20,1):USING "DEDUCTION FOR 
im $####.##":CYR,ADED 

14. Omit lines 1830 and 1840; modify line 1850 as follows: 
1850 PRINT USING "TOTAL PAID $ #####.## 

":TOTPD 



15. Omit lines 1880 and 1890; modify line 1900 as follows: 
1900 PRINT USING "BALANCE $#####.##" 

:BAL 

16. Omit lines 1970 and 1980; modify line 1990 as follows: 
1990 PRINT USING "PREPAY AMOUNT $ #####.## 

":PREPAY 

17. Omit lines 2000 and 2010; modify line 2020 as follows: 
2020 PRINT USING "SAVE BY PREPAY $ #####.## 

":SAV 

18. Omit lines 2140 and 2150; modify line 2160 as follows: 
2160 PRINT USING "DEDUCTIBLE IN ## $ #####.##" 

:SYR,DEDUCT 

19. Omit lines 2440 and 2450; modify line 2430 as follows; 
2430 PRINT USING "I9## $#####.##" 

:DYR,DED 

20. Omit lines 2590 and 2600; modify line 2580 as follows: 
2580 PRINT USING "19## $#####.##" 

:DYR,DED 

21. Omit lines 2690-2710 and modify line 2720 as follows: 
2720 DISPLAY AT(23,1):"PRESS ENTER TO 

CONTINUE" 

22. Omit lines 2730 and 2740; modify line 2750 as follows: 
2750 DISPLAY AT(24,l):"OR 9 TO QUIT" 

23. Remove references to function RND2 in the following 
lines: 

1050 SAV = RUL 78 (AFC) 

1270 ADED = DEDUCT/DEN*FC 

1400SAV = X 

1420 ADED = DEDUCT/DEN*FC 

1940 SAV = RUL 78(AFC) 

2130 DEDUCT = DEDUCT -RUL78(FC) 

2200 SAV= 1 /DEN* AFC 

2420 DED = RUL78(FC) 

2510 DED = NP/DEN*FC 

2570 DED = RUL78(FC) 

2640DED=I/DEN*FC 

The subroutine beginning at line 2810 is not required if an 
ACCEPT statement is used to input the character. Omit 
line 2770 and modify lines 2760 and 2780 as follows: 

2760 ACCEPT AT(24,14):SEL$ 
2780 IF SEL$ = "9" THEN 2800 

And don't forget to omit the subroutines Oines 2810-3070). 
Extended BASIC allows further compression by putting 
several statements on the same line and by using statements 
in IF-THEN-ELSE statements. However, the changes I have 
suggested provide a significant reduction in the size of the 
program. 

With this program in your computer, you have all the 
secrets of the Rule of 78 at your disposal. Your computer 
will tell you everything you ever wanted to know about an 
installment contract, but didn't ask because you would not 
have been told. 
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PAYMENTS 
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TAB 
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TAB 



AC 
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DATES 



TAB 
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NC 
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26 



NC 



DA 



830 
840 
850 



870 
880 
890 



910 
920 
930 
940 
950 
960 
970 
980 
990 
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1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 

1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 

1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 



GOSUB 



GOSUB 



CMO = 



TOTPD 



XS 



GOSUB 



CALL 
GOSUB 
BAL 
XS 



GOSUB 



CALL 
GOSUB 



SAV 
I 
P 
R 



PREPAY 



XS 



GOSUB 



CALL 
GIOSUB 
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XS 



C = 



CALL 
GOSUB 



DEDUCT 



XS 



x= 



XS 



PR 



PRI 



INC+1 
14 



16 



2 

< 
P|+1 



17 



N + 1 



GOSUB 
NEXT 



ADED 
C 
R 



GOSUB 
CALL 
XS 



SAV = 
GOTO 
ADED = 



GOSUB 
C 
R 



20 

CALL 
XS 



CMO 
CYR 
GOTlO 
REM 



CALL 



2880 

CiMiO + 1 



STRS 



2940 

NC + 1 



STRS 



NC + 1 



RND2 
SAV<1 



STRS 



NC + 1 



STRS 



NC + 1 



20 



8eX$ 
GOSUB 
GOSUB 
RETURN 
SAV 
GOTlO 



NPUT 



BAL- 



NT 



NT 



HCHAR 
2880 



HCHAR 
2880 



HCHAR 
2880 



HCHAR 
2880 



DEDUCT 
DEDUCT 



STRS 



/DEN 



STRS 



bXS 
GOSUB 2880 
DEDUCT= 



DI 



TIOTPD + PMNT 
TOTPD 



BAL 
2940 



2940 



2940 



CM0>12 



RND2 



CYR + 1 
1230 



THEN 
THEN 



BAL 



RND2 



2940 

HCHAR 
DEDUCT 



1070 



1060 

RND2 



HCHAR 
DEDUCT 



HCHAR 



PiMjNT 
) 



PREPAY 



SAV 



2670 



2880 
2670 



RUL78 
THEN 



AFC 



ADED 
2940 



SPLAY 



ENTER 



DEDUCT+I 
THEN 



ADED 



STATUS 



16 



SAV 



17 



18 



20 

ION 



20 

I ION 



1390 
1370 



23 



THEN 



DEDUCT 



DEDUCT 



CONTRACT 



19 



19 



( AFC 
1370 



19 



19 



23 

FOR 



23 

FOR 



DATE 
1 , 32 

ION 



STATUS 



32 



32 



32 



32 



1420 



DEN 



32 
19 



1360 

DEN 



32 
19 



11 



FC 



STATUS 

SDATES 



32 

SDATES 



&STR$ 



FC 



&STR$ 



CYR 



CYR 
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1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
720 
730 
1740 

1750 
1760 
1770 
1780 
790 
1800 
1810 
1820 
1830 
1840 
1850 

1860 
1870 
1880 
1890 
1900 

1910 
1920 
1930 
1940 

950 
1960 
1970 
1980 

990 

2000 
2010 
2020 

2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 

2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 



SDAS = 



SYRS 
SMO 
SDA = 
SYR = 
TMO 



TMO 
TYR 



40 



TOTPD 



xs 



GOSUB 



PR 

XS 

BAL 

BAL 

XS 



GOSUB 



SMOS 



SAV 
I 
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SYH- 



SMO 



N + X 



N + 1 



NT 



NP 
P 
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AYR 
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YR+I NT 
SYR>TYR 
SYR<YR 

SYR = 
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SD|A<DA 



STRS 



NT 



STRS 



F 
R 
XS 
GOSUB 



SAV 
GOTiO 
SAV 
GOTO 



GOTO 
REM 
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SEIGS 



SEiGS 
VAL 



VAL 
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IMO + NP 
TMO + 



SYR 
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RND2 

< 



SAV 
PREPAY 
STRS 



GOSUB 
PRINT 

XS 
DEDUCT 
SYR 



AYR 

gIotIo 
p 

q|=np|+ 

DEDUCT 
XS 
GOSUB 



NT 
GlOSUB 
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GOSUB 
RETURN 



SEGS 
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SYR 
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NT 



NT 



SDATES 



SDATES 
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THEN 
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SDAS 
SYRS 



TYR 
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NP 
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TAX 
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I 

TMO 



BAL 



2940 



2940 

SAVE 



AYR 



2670 



960 

PAI 
2670 



TOO 



SDATES 



SDATES 
SDATES 



NT 
= 
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THEN 
THEN 



THEN 



RUL78 
THEN 



PREPAY 



SAV 



2940 

DEDUCT 



XS 



PREPAY 
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DEDUCT 
DEDUCT 



DEDUCT 



) + ( 
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SMO<MO 
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THEN 
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PREPAY 



2140 



TMO<MO 



TMO 



2110 



NANCE 



12 



RUL78 



THEN 



ALL 
YOU 



TAB 



TAB 



12 



CHARGE 



THEN 
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2770 
2780 
2790 
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2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
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2970 
2980 
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3010 
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The Electronic 
Home Secretary 



Tl 
BASIC 



NDw that you have a personal computer, you've 
probably been looking for ways to use it around 
the house. When writing software for home ap- 
plications, it's often possible to create a genera/ program 
that functions in a variety of household situations. The 
program accompanying this article follows this design 
philosophy. With it, you can create a personal phone and 
address directory, time events (such as elapsed telephone 
connect time), have your computer dial or redial any 
number in your directory, and set up an inventory of 
household possessions for insurance and maintenance 
purposes. All this in standard 16K TI BASIC— with some 
room to spare for customizing the program according to 
your preference. 

GENERAL DESCRIPTION OF THE PROGRAM 
Data Entry 

When the program is first RUN, the screen options give 
the user a choice of updating or using a previous data 
file saved on cassette or disk, or creating an entirely new 
data file for one of two options: (1) the phone and ad- 
dress directory, or (2) the household inventory. Both of 
these options also provide sub-options: For example, the 
program can draw on the data files to dial (by the dual- 
tone method) an appropriate phone number, or sum the 
total cost in the inventory, and then print hardcopy 
listings of either. The category names for the file 
organization are provided in the DATA statements 220 
and 230. 

The input data is stored in the arrays Al$, A2$, A3$, 
A4$, and A5$. A dimension of 60 is assigned to each of 
the arrays, and a maximum string length of 190 characters 
is allowed for each complete entry. Line 710 checks the 
validity of each data set. At this stage, the program also 
checks for dimension overflow and memory overflow 
(lines 480 and 810), and appropriate warning messages 
are displayed. These features prevent you from acciden- 
tally keying in excess data— a situation that would result 
in an error and program termination. Additionally, the 
cost category (A2$) in option 2 is designed to accept only 
numerical input so that you can conveniently carry out 
numerical operations on the data— for example, total the 
cost of possessions. And keep in mind that you can, of 
course, change the categories by altering the data in lines 
220 and 230. 



Sort Routine 

An efficient sort subroutine is presented in the program 
at line 2410. The routine employs a tree sort procedure 
which needs approximately 2*N*(Log2 N-1) com- 
parisons to sort N entries. Since various versions of sort- 
ing routines have been previously published and are readi- 
ly available, I won't discuss the mathematical details of 
the sorting procedure. [See reference 2, for example, or 
any elementary book on numerical analysis. — Ed.] Here, 
the sorting is based on the entries in the arrays Al$ (i.e., 
names or items in the default categories). The remaining 
arrays are appropriately rearranged to be consistent with 
the original data. The procedure is carried out without 
the use of any intermediate arrays, thereby saving on the 
core usage. Completely sorting and rearranging 50 en- 
tries takes about 4 minutes. 

Data Deletion and Alteration 

The subroutine at line 1010 updates any existing data 
set. You can access any particular entry by its serial 
number or by its name (or a segment of its name). A 
search routine (line 1790) retrieves the data set with the 
specified name, or the next higher one if the name match 
is not exact. As previously described, the program 
validates the altered data for allowable string length and 
memory overflow. At this stage, you have the option of 
moving up or down in the list, searching for a different 
entry, or finishing the editing session. Any alteration of 
the entry title (i.e., Al$) causes the variable FLAG2 to 
be set equal to unity. Before the directory can be 
displayed, the data set is resorted. 

Display of the Directory 

The program allows you to display the data directory 
in two formats. The first format (at line 1420) provides 
a concise, quick-reference listing of the complete direc- 
tory. This includes name and phone number for the 
Phonebook option, and item and cost for the Inventory 
option. 

In the second format, you can display all the data con- 
tained in any single entry. Access to individual entries is 
either by its serial number in the directory, or by a string 
search as discussed in the previous section. 

Additionally, you can get a hardcopy listing of the en- 
tire directory (line 4280) through an RS232-compatible 
printer, or the TI thermal printer. The screen printing 
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routine at line 4150 was used to get a hardcopy print-out 
of screen displays for this article. This portion (lines 
4150-4260) can be deleted without affecting the opera- 
tion of the program. 

Computerized Phone Dialing 

Now let's look at Touch-Tone dialing with the 
TI-99/4A. Since the telephone company prohibits direct 
connections to the phone line of any user equipment not 
approved by the FCC, the method we will have to use 
involves simple proximity: Placing the microphone from 
the phone handset in the front of the monitor speaker 
dials the phone without any direct connection to the 
phone lines. 

Briefly, the Touch-Tone system of telephone dialing 
operates by sending a specific pair of audio frequency 
tones over the voice channel of the phone line for each 
digit. The switching circuits at the telephone facility 
decode the tones and actuate the appropriate circuits to 
make the connection. The tone pairs consist of a low fre- 
quency group (697-941 Hz) and a high frequency group 
(1209-1477 Hz) as shown in Figure 1. For example, to 
dial the number 5, we have to send the audio tones at 
770Hz and 1336 Hz simuhaneously for a sufficiently long 
time to be recognized by the switching circuits. There 
should also be a sufficient gap between digits for each 
digit to register individually. Although a 40 millisecond 
signal duration followed by a 40 millisecond silence 
should theoretically be adequate, a 150-200 millisecond 
signal duration and a gap of about 100-150 milliseconds 
is required for reliable operation with this system. 

With the CALL SOUND {duration, frequency 1, 
volume 1, frequency 2, volume 2) command of TI 
BASIC, the TI-99/4A can generate the dual tones of 
Figure 1. In doing this, however, an interesting problem 
arises: If we examine the monitor's output on an 
oscilloscope, we can observe that the so called "pure 
tone" from the computer is, in fact, a square wave and 
not a sine wave. By Fourier analysis, the square wave can 
be decomposed into its constituent sine waves. (Interested 
readers can refer to any elementary book of calculus for 
the details of the analysis.) To be specific, the output from 
CALL SOUND (100,500,1) is a square wave of 500 Hz 
for a 100 millisecond duration at the volume level 1. This 
is a combination of sine waves at 500 Hz, 1500 Hz, 2500 
Hz, and so on. This can pose a problem when we try to 
dial the first two members (i.e., 698 Hz and 770 Hz) of 
the low frequency group. The third harmonics of these 
frequencies, namely, 2091 Hz and 2310 Hz, are also 
recognized by the switching circuits, resulting in the re- 
jection of the signal. The third harmonics of 852 Hz and 
941 Hz seem to be outside the frequency response of the 
switching circuits and pose no problem. 

There are several ways we can overcome this problem 
when dialing the digits 1 thru 6. One very simple and in- 
expensive way is to use a passive low-pass filter with a 
cut-off frequency of about 1.5 KHz in the audio line to 
the monitor, thereby attenuating the higher frequencies. 
Figure 2 shows a block diagram for the installation. The 
circuit for the filter (which I built for less than five dollars) 
is shown in Figure 3. 



HOW TO USE THE PROGRAM 

Initial Set-Up 

With the choice of N (for NO) for the Load Data op- 
tion in Display 1 , the program has you select either the 
Phone Directory or Household Inventory option. (If your 
choice was Y, and you loaded a file, one of the data 
elements on the file tells the program which option to 
branch to.) You then key in the data file, guided by the 
input prompts. The phone number can be entered with 
spaces and parentheses, if desired. The most recent en- 
try can be re-entered by pressing R for the name (or item). 
You can terminate by pressing E for EXIT; this causes 
the data to be sorted and returns you to the master selec- 
tion list (Display 3). 

Load Previous Data File 

To load a previously stored data file, we select Y for 
the Load Data option and follow the screen displays to 
operate the cassette player or disk. When loaded, the 
name of the data file, its size and the date of the previous 
revision will be displayed (Display 2); the program will 
then return you to the master selection list (Display 3). 
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Figure 1 . Basic Frequencies for the Two-Tone System 
of Telephone Dialing 
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Figure 2. Schematic Layout of Filter Location 
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Figure 3. Circuit Diagram of the Filter 



Note: On many touch-tone phone systems this filter wQI not be 
needed for correct dialing. We suggest you first try without it— Ed. 
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LOAD DATA? (Y/N) N 
PHONE BOOK? (Y/N) Y 

ENTER 

E TO EXIT 
R TO REENTER 
NAME:DOE — j 
PHONE: 987 6543 -x 
STREET:4321 NORTH SOUTH ST ^"^-^ 
CITY & ZIP:HOLLYWOOD; CA99888 S:^ 
MISC:JOHN; DATE OF BIRTH JAN 

1 1921;WIFE MARY;CHILDREN 

JOE : SUSAN.WEDD ANNIV FEB 

25: ;p 



DISPLAY 1 INITIAL SET-UP 
Note: 

^ o pressing ENTER, 

after the user's response 



LOAD DATA (Y/N) Y 
ENTER 

1. CS1 

2. DISK 1 

3. OTHER 

• REWIND CASSETTE TAPE 
THEN PRESS ENTER 

• PRESS CASSETTE PLAY 
THEN PRESS ENTER 

INVENTORY - 1 

LSIZE(3800)=1628 

LAST UPDATE: MARCH 26 81 



DISPLAY 2 



CS1 

D 

CS1 

D 



LOAD PREVIOUS 
DATA FILE* 

(FOR OPTION 1) 



OPTION 2: ENTER FILE NAME 
OPTION 3: ENTER DEVICE NAME: 



PRESS 

1 - TO ADD MORE DATA 

2 - TO ALTER THE DATA 

3 - TO DISPLAY THE DIRECTORY 

4 - TO DISPLAY ONE ENTRY 

5 - TO USE THE DATA 

6 - TO STORE DATA FILE 

7 - FOR PRINTER LISTING 

8 - TO END PROGRAM 

UPDATE DIRECTORY 



DISPLAY 3 MASTER SELECTION LIST 



WHICH ONE; DOE -\ 

ENTER 

NEW DATA AT CURSOR 
'D' TO DELETE THE ITEM 
'ENTER' FOR NO CHANGES 

DOE? 

987 6543; (424) 987 6543 -) 
4321 NORTH SOUTH ST? 7) 
HOLLYWOOD; CA99888? ^ 
JOHN; DATE OF BIRTH JAN 1 19 
21; WIFE MARY; CHILDREN JOE 
$ SUSAN: WEDD ANNIV FEB 25;? ^ 



1. ARPACI JOE 

2. DOE 

3. DOE MARY 

4. MOORE N. 

5. NORTON P. 

6. OHSHIMA 

7. SASTRY M. 

8. SHIELD B. 

9. SHYAMALA 

0, SUBBAIAH 

1. WONG V. 
PRESS ANY KEY 



321 1234 
(424) 987 6543 
(424) 789 3456 
578 657 8901 
356 4473 
368 8714 
765 2345 
654-789 4532 
206 6808 
(213) 356 4473 
256 3902 
TO CONTINUE 



WHICH ONE? DOE ^ 
DOE *^ 
(424) 987 6543 
4321 NORTH SOUTH ST 
HOLLYWOOD; CA99888 
JOHN; DATE OF BIRTH JAN 1 19 
21; WIFE MARY; CHILDREN JOE 
& SUSAN;WEDD ANNIV FEB 25; 

PRESS 

E TO LIST UP 

X TO LIST DOWN 

S TO SEARCH MORE 
PRESS ANY KEY TO CONTINUE 



DISPLAY 4 DATA ALTERATION 



DISPLAY 5 



SHORT FORM 
DIRECTORY 



DISPLAY 6 SING LE ITEM DISPLAY 



DOE 
(424) 987 6543 
4321 NORTH SOUTH ST 
HOLLYWOOD; CA99888- 
JOHN; DATE OF BIRTH JAN 1 19 
21; WIFE MARY; CHILDREN JOE 
$ SUSAN; WEDD ANNIV FEB 25; 
1(424) 987 6543 

PRESS 

R TO REDIAL 

S TO START STOPWATCH 

N FOR NEW NUMBER 

PRESS ANY KEY TO CONTINUE -v 
PRESS •'^ 

R TO REDIAL 

S TO START STOPWATCH 

N FOR NEW NUMBER 
PRESS ANY KEY TO CONTINUE S 
HOLD DOWN ~ 
R TO DIAL AGAIN 
ANY KEY TO CONTINUE 

00:55 



TOTAL COST OF ALL THE ITEMS 



% 
% 
t 

% 7450.6 

« 

S 



PRESS ANY KEY TO CONTINUE 



ENTER 



1. CS1 

2. DSK1 

3. OTHER 



YOUR CHOICE? 

TODAY'S DATE: MARCH 7 1981 -) 
DIR. NAME: PHONE BOOK - 1 ^ 

• REWIND CASSETTE TAPE CS1 
THEN PRESS ENTER ^ 

• PRESS CASSETTE RECORD CS1 
THEN PRESS ENTER ^ 

• PRESS CASSETTE STOP CS1 
THEN PRESS ENTER ^ 



DISPLAY 7 



PHONE DIALING AND 
STOPWATCH 



DISPLAYS TOTAL COST OF 
INVENTORY 



DISPLAY 9 SAVE DATA FILE 
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Master Selection List and Its Functions 

The master selection list (Display 3) provides access to 
the program's various options. A banner (***UPDATE 
DIRECTORY***) will be displayed if there has been any 
alteration of the data file since the last update. This 
should act as a constant reminder to save the revised ver- 
sion of the data on a cassette or disk. The different op- 
tions of the master selection list are as follows: 

Option 1: Select this to add any new entry to the data 
file. This leads to the data entry of Display 1. 

Option 2: This leads to Display 4. You can access any 
individual entry by its serial number in the directory (from 
display 5) or by a string search. Here, entering a null 
string (i.e., just pressing the ENTER key) for any category 
will leave it unaltered. 

Option 3: This displays a short form of the directory 
as in Display 5. The display stops when the screen is fill- 
ed. Pressing any key causes the remaining data to be 
displayed, or returns you to the master selection list if 
no more data is to be displayed. 

Option 4: This produces a complete listing of a single 
entry (Display 6), selected by its serial number in the direc- 
tory, or by a string search as in Display 4. 

Option 5: This allows the program to use the data files 
when dialing/redialing in the Phonebook option, or to 
obtain the total purchase cost of the inventory in the 
Household Inventory option. If you are in the Phonebook 
option, the program will advance to Display 6. If you 
approve the display by pressing any key other than E, 
X, and S, the computer dials the displayed phone number. 
In the beginning, you may have to adjust the volume con- 
trol of your TV set or monitor for proper operation. The 
digits will be displayed one by one as they are dialed. If 
the total number of characters in the phone number is 
greater than or equal to 10, the routine recognizes it as 
a long distance call, and dials 1 at the beginning (Display 
7). After getting familiar with the operation, you may 
want to reduce the time periods assigned in the CALL 
SOUND statements in lines 3540, 3580, 3590. You can 
redial the number by pressing R, start the stopwatch by 
pressing S (and quickly releasing the key), or select a new 
number using the choice N. Any other key (including a 
prolonged pressing of S) terminates the dialing session 
and the master selection screen will be displayed. 

With the selection of S, the stopwatch routine on line 
3700 is activated. The elapsed time is displayed at the 
lower right-hand corner (Display 7). You can control the 
accuracy of the stopwatch by adjusting the time delay 
constants of the DATA statement in line 3320. Holding 
down R starts the dialing procedure all over again; press- 
ing any other key returns you to the master selection list 
(Display 3). 



In the Household Inventory option, choice 5 of the 
master selection list will cause the program to calculate 
the total purchase cost (Display 8) for all the items in the 
data file. There's no adjustment here for inflation. This, 
however, could easily be done. For example, you could 
key in the consumer price index into the data file at the 
time of an item's purchase and scale the purchase cost 
with the current index when evaluating the SUM (in the 
routine on line 3150). I felt, however, that this procedure 
would be rather involved for day-to-day use. 

Option 6: This permits storing the data file on either 
cassette or disk. The computer asks (Display 9) for the 
title of the data file and the date of revision for future 
reference. This information will be displayed when you 
re-load the data for another session. 

Option 7: This produces a hardcopy listing (with nine 
complete entries per page) on either the TI thermal 
printer, or a printer connected to the RS232 interface. 
The computer first asks you to verify that either the ther- 
mal printer or the RS232 interface is connected in order 
to avoid the File-Error termination. As a precaution, 
always SAVE the updated file on cassette or disk (op- 
tion 6) prior to printing. 

SUMMARY AND FINAL REMARKS 

This program is capable of performing a wide variety 
of functions. We have seen how to use it to maintain a 
computerized phone directory and dial your phone 
automatically, as well as to maintain very flexible data 
files for day-to-day use in the home. Typical applications 
include an inventory of household valuables, a record of 
credit cards and bank accounts, lists of author/subject 
references for research, recipe files, etc. Some of the in- 
dividual subroutines (in particular, the sorting routine and 
the stopwatch routine) should also be useful in many 
other applications. The program, as presented here, is 
contained within the standard 16K TI BASIC. A version 
in Extended BASIC to access the additional 32K RAM 
should give the program an even broader scope. 
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ca: 



301 



310 
320 
330 
340 
350 
360 
370 
380 

390 
400 
410 
420 
430 
440 

450 
460 
470 
480 
490 



510 
520 
530 
540 
550 
560 
570 
580 
590 



610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 

790 
800 
810 
820 
830 



840 
850 
860 
870 

880 

890 



900 
910 
920 
930 
940 
950 
960 
970 

980 



GlOSUB 
GOTO 

reIm 

NT 
GlOSUB 



I 

OPT 
READ 



GOSUB 
GOSUB 
GOTO 
REM 



PR 



INPUT 
IGOTO 



FIAGI 
FLAG2 
N + 1 



PR 
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RETURN 
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PR 
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NPUT 



A2$ 



LS 



INT 



A1 
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INPUT 
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NTER 
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NT 
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ON 
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KEY 



CATS 



NT 



NT 
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NPUT 



770 
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GlOSUB 
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GlOTlO 
GOSUB 
RETURN 

reIm 

T 



LEN 



A5$ 
RETIURN 



INT 



3800 

RETURN 
SC = 
GOSUB 
PRINT 
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PR 



3150 

RETURN 



1900 
410 



NEW 



CATS 



410 

KEY 



60 



520 



NT 
FLAjGI 



3120 
89 



430 
850 



3100 



CATS 



470 



( A1 



FULL 



STIORE 
ST 
8 



3120 

KEY<49 
KEY>56 



KEY- 



SET 
PHjONE 



I ) 



CATS 
670 
CATS 

STRS 
CATS 
CATS 
CATS 



241 



MEMORY 



LS 



SOUND 



3060 



THEN 



<> 



ZE<3300 



3060 

PRESS 



48 



2140 



THEN 



NPUT 
ENTER 
TO 



1 
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END 



" R 



THEN 
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TO 



TO 



TO 
DATA 
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TO 



UP 
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520 



THEN 
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CHECK 
&A2S 



200 

|w|arn 

LS 



TO 



THEN 



THEN 
THEN 



) GOSUB 



A1 



THEN 



THEN 



REENTER 



A2$ 



DI 



4280 



390 



FOR 



REENTER 



ARRAY 



650 



END 
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ALTER 



USE 



UPDATE 



850 
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THEN 



DATA 
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SPLAY 



LE 
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E 

SPLAY 



990 
4450 



CATS 



FULL 



750 



THE 



PRjOiGRjAlM 
930 



THE 



DI 



LAST 



TO 



ONE 



SET 
E 



MEMORY 



STRS 



1010 



ADD 
DATA 



THE 



ENTRY 



DATA 



RECTORY 



TO 
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1710 
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3930 
3940 
3950 
3960 
3970 
3980 
3990 



4000 GOTO 



4 300 PR 



4010 
4020 
4030 
4040| 
4050 



4070 
4080 
4090 
4100 
4110 
412 
4130 
4140 
4150 
4160 
4170 
41801 
4190 
4200 
4210 
42 2 
4230 
4240 
4250 
4260 
4270 
4280 
4290 



4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 



GOSUB 



I 
S 

DELAY 
NEXT 



S 

DELAY 
NEXT 
DELA 
S = 11 
NEXT 



A 2 



DELAY 
10 

|GI0 S U B 
NEXT 



4460 
4470 
4480 
4490 



RETURN 
REM 



CAL 
CALL 
FOR 
I F 

NEXT 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 



RE[M 
I F 
OPEN 
FOR 
PR 
TS 
FOR 
CALL 
TS 



4390 
4400 
4410 
4420 
4430 
4440 
4450 IPR 



Y? 



4500 END 



STATUS 



NEXT 
NEXT 
CLOSE 
RETURN 



REM 
ll NPUT 



GOSUB 



I F 
OPEN 



FOR 

f|or 

I 

PR 
I 

AB 
I F 

NEXT 



CALL 
I F 
I F 
I F 



48 



3760 



RP 



TS&CHRS 



GOSUB 
NEXT 
CLOSE 
RETURN 



TO 
IGCHAR 



NT 



NT 
TAB 
10 

I 



4020 



D5 
4020 



STATUS 
I 



COMPENSATED 



HCHAR 
KEY ( 
TO 



#1 



COlMPLETE 
ENTER 



KEY<>89 



|M= 
I+Ml 



NT 



PROGRAM 



Y/N 



I 

3120 



SCREEN 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 



SCREEN 
THEN 



KEY 



ASC 
KoASC 



<> 



RS232 



DEVS 
9 



TAB 



3 

10 
A4$ 
THEN 

3100 



DO 



THEN 



DELAY 
THEN 



A1 
V|+1 

V + 2 

V + 3 

V + 4 



AND 



YOU 



THEN 



CH 



PR 



20 



V + 2 
STATUS 



DEVS 



THEN 



A2$ 
I 



DEV 



4440 

OUTPUT 



4010 



4270 



NT 



CLOCK 
32 . 1 



ING 



CH 



ST 
ICE 



TAB 



4430 



WI 



LOSE 



4460 

THEjN 
THEN 



4010 



NG 



NAME 
READY? 



SH 



TAB 
10 



TO 
ALL 



ON 



850 
4440 



TAB 

10 

A5S 



HALT 
DATA 



PR 



NTER 
DEVS 



10 

;|A3S 



THE 



A1 S 



NMEMOR 
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A Speech 
Vocabulary 
Expansion 




EXTENDED 
BASIC 



y erbose is a program that was written in an evolu- 
tionary manner. One thing just lead to another. The 
story goes something like this: 
One day I decided to make a program speak a simple 
sentence. After all, the TI Speech Synthesizer must have 
something to say. Well, anyway, I came up with a simple 
sentence— don't remember what it was now— in a program 
which I entered and ran. 

Wow— almost half of the words in the sentence were not 
in the resident vocabulary! It was clearly time for me to read 
the manual that came with the unit. Surprise. I found it had 
a vocabulary limited to three or four hundred words. That 
was not enough for me. Further research was definitely 
called for. 

Reading the TI Extended BASIC manual, I found a pro- 
gram on page 206 that allowed adding standard suffixes to 
resident vocabulary words (e.g.,-ed, -ing, -s). After playing 
with this suffix program awhile, I realized it would be possi- 
ble to concatenate two resident vocabulary words to pro- 
duce a totally new word: therefore, meanwhile, or update. 
I wrote a routine to do this. Once this concatenation routine 
was working, it seemed like a speech tool starting to evolve. 

It would be nice, I thought, to have the results of the con- 
catenation routine printed in the form of DATA statements. 
I could then write these DATA statements containing the 
new word's speech data into other programs that needed 
to speak the new word. So, I generated a routine to do this, 
and added it to the concatenation routine. 

All of these routines, including a method of building a 
vocabulary file on disk, were combined into a nice, neat, 
simple-to-use program. The result is Listing 4. As you can 
see from the listing, I originally called the program Word 
Builder. When I decided to write an article on it, however, 
the name seemed too mundane. So in a fit of cleverness, 
I renamed the program Verbose. My wife and my friends 
just shook their heads and groaned. . . 

A TV picture is worth a thousand words, right? Well, 
perhaps not quite, so I have combined some text with screen 
images to guide you through the operation of Verbose. 



Before you start the Verbose program, make sure you have 
either the TI Extended BASIC or TI Speech Editor Com- 
mand Cartridge plugged in. Verbose uses the SPGET and 
SAY subroutines that are available in these modules. OK, 
now you're ready to load Verbose and type RUN. 

+ + +WORD BUILDER + + + 
ENTER NUMBER OF YOUR CHOICE 
1-JOIN TWO WORDS 
2 -PRINT SPEECH DATA 
3 -STORE NEW WORD ON DISK 
4 -EXIT 



Here we are at the main menu screen. Let's create a new 
word by joining two words. The new word that we will 
generate will be rewrite and will be made from vocabulary 
words read and right. Type 1 and press the ENTER key. 

ENTER FIRST WORD JOIN 



We are asked for the first word that will be used in the 
joining. Type READ and press ENTER. 

ENTER SECOND WORD TO JOIN 



Now type the word RIGHT and press ENTER. 
ENTER THE SPELLING OF THE NEW WORD 

9 

Type in REWRITE and then press ENTER. 

TRUNCATE HOW MANY BYTES? 

OK, don't panic here! Verbose just wants to know how 
much of the first word (READ) to truncate before it com- 
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bines it with the second word (RIGHT). We don't know 
how much, so we make a wild guess of, say, 34. What we 
want is to truncate the AD from READ and combine that 
sound with RIGHT. As soon as you press ENTER this time, 
the TI-99/4A will say the new word for you. 

SAY AGAIN? (Y OR N) 

Here you can answer the question with Y as many times 
as you like to check the sound of the new word. After hear- 
ing enough of it, enter N. 

SAY AGAIN? (Y OR N) N 
1 - CHANGE SOME MORE 
2 -BACK TO MAIN MENU 

7 

If you don't think the new word sounded quite right, type 
1 and press ENTER. 

TRUNCATE HOW MANY BYTES? 

This time type 55 and press ENTER. 

Listen to the word as many times as you like. With 55 
bytes truncated, it sounds to me close enough to use. When 
you are satisfied, return to the main menu. 

+ + +WORD BUILDER + + + 
ENTER NUMBER OF YOUR CHOICE 
1-JOIN TWO WORDS 
2 -PRINT SPEECH DATA 
3 -STORE NEW WORD ON DISK 
4 -EXIT 



Here we are back at the ranch. Let's print the data for 
our new word by selecting option 2. Don't forget to press 
ENTER. (I'm not going to remind you about that anymore 
'cause you've got the ENTER key down pat.) 

ENTER THE WORD WHOSE DATA YOU WANT TO 
PRINT - - 

7 

After you enter REWRITE and press the you-know-what, 
the printer will output what you see in Listing 1. It didn't 
work? WeU your printer must be set up differently from 
mine. Go to Listing 4 and modify line 870 of Verbose (the 
OPEN statement for the printer) to match your setup. If 
you don't have a printer, delete lines 870 and 1070. Also 
modify lines 940, 950, 990, and 1060 by deleting the "#1:" 
of each print statement. Now, instead of going to the printer, 
everything will go to the screen of the TI-99/4A. The last 
change is to enter this line: 

1070 INPUT F$ 

Now it will stay on the screen (so you can copy it on paper) 
until you press ENTER. 

Look over Listing 2. This is a sample TI BASIC program 
that shows how the DATA statements for Verbose can be 
used. You will note the DATA statements for the word 
REWRITE are entered in lines 360-490 of Listing 2. Lines 



280-330 build the string E$ which will cause REWRITE to 
be spoken. The FOR-NEXT loop here is terminated when 
the last byte is read. The loop counter limit (133) was the 
number of bytes printed out for REWRITE by Verbose. 
The subroutines SAY and SPGET are explained in the 
speech synthesizer manual. 

+ + +WORD BUILDER + + + 
ENTER NUMBER OF YOUR CHOICE 
1-JOIN TWO WORDS 
2 -PRINT SPEECH DATA 
3 -STORE NEW WORD ON DISK 
4 -EXIT 

7 

It is very tiring to enter all those DATA statements of 
the previous sample program. For those of you with a disk 
system, an easier method of saving and using words from 
Verbose is available with option 3. Go ahead and select it 
now. 

PUT THE DISK WITH "WORDS" 
FILE IN DRIVE ONE. 
PRESS ENTER WHEN READY 

The disk on which you wish to keep your new vocabulary 
words should now be placed in disk drive 1 . The words that 
will be saved will be appended to a file called WORDS on 
this diskette. See line 1 160 of Listing 4 for the OPEN state- 
ment for this file. 

PUT THE DISK WITH "WORDS" 
FILE IN DRIVE ONE. 
PRESS ENTER WHEN READY 

ENTER THE WORD WHOSE DATA YOU WANT TO 
SAVE - - 

7 

Enter the word REWRITE to save. The disk drive will 
run and then Verbose will return to its main menu. Use this 
option to save a few more words that you choose. Then 
run the Spelling Test Game in Listing 3 using the resultant 
WORDS file. 

The Spelling Test Game program will accept up to 20 
words for the WORDS file. It then speaks each word, checks 
the spelling that is input, and keeps score. Any children in 
your home should find it useful for spelling drill. 

Study Listing 3 and notice lines 230-270. The WORDS 
file has a pair of strings for each word saved. The first string 
contains the spelling of the word. The second string con- 
tains the actual speech data. 

As mentioned earlier, the program listing for Verbose is 
Listing 4. 

A final note of caution: Once you start that TI-99/4A 
talking, BEWARE— you may have trouble getting a word 
in edgewise. . . 
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Listing 1 




DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



Listing 



100 

110 
120 
130 

lao 

150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 

350 
360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 



ES&CHRS 
I 

SAY 



197 
DATA 
167 
DATA 
157 
DATIA 
101 

datIa 

76 

DATIA 
248 
DATA 



175 
DATA 
133 
DATA 

77 
DATA 
67 

DATIA 
68 
DATIA 



d|ata 



+ 
+ 
+ 
+ 

+ TH 

+ HO|W| 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
CALL 
CALL 
CALL 
CALL 
RESTIORE 
E$ 
FOR 
READ 
E$ 

NEXT 
CALL 
ES 
REIM 

datIa 

49 

DATA 



+ + +H- + +1+ +I+I+1+1+H- +I+H-I+I+ + 
+ 



THE lOUTPOT 0F + 
VERBOSE' IS USED+ 
N TI b|aSIC.... + 
+ 

+ + +1+ + + + +I+I+I+I+ +1+ + + 



SPGET 
SPGET 
SPGET 
SPGET 



58 
2 

201 



8 7 



82 



SPEAK- 
PROGRAjMl 



96 

78 

69 
10 
158 
106 
180 

33 
116 
172 
2 

142 



218 
156 
233 



196 

97 

93 



( 
( 

360 

TO 



238 
69 



REWR 



SAjMPLE 

OUTPUT 



REWRI 



86 
253 



121 



42 



TH 



51 



83 
178 
221 
106 
49 
196 
220 
169 



62 
24 



PRiOlGRAMi 
CS 



HAD 
A 



33 



AS 



170 
211 

42 
57 

58 
39 

26 



TE 



TH 
HAD 



60 



211 
42 



DS 



93 
151 



105 



89 
28 

92 
169 



+ 
+ 
+ 
+ 
+ 

S HjOlWlS + 



AS 



19 



147 
103 



BS 



BS 



49 



156 
125 



139 
162 



103 
110 
240 

205 



209 
157 



146 



CS 



92 
223 



231 



96 
154 



11 
100 
4 6 



233 



88 



137 
179 



119 
70 
207 
245 



176 
40 



85 
142 



41 
22 



DS 



149 



61 



105 
84 



235 
88 



186 
179 
64 



108 
21 
162 
144 



Listing 3 



110 

20 
130 
140 

50 
160 

170 
180 
190 
200 

210 
220 

230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 

370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 

490 

500 
510 
520 
530 
540 

550 

560 
570 
580 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
URCE 
REM 
DIM 
CALL 
PR 



INT 
I 

INPUT 
OPEN 



FlOR 
I 

NPUT 
NPUT 
NEXT 
LAST 
GOTO 
LAST 
CLOSE 
REM 
CALL 
SCORE 



PR 



PR 



100 

I 

zs 



WORDS 



VAR 



EOF 



INT 
INT 



ALL 
FOR 
NEXT 
FOR 
CALL 



NT 



CALL 
INPUT 
XS 
CALL 
SCORE 
SCORE 
PR 

PR 



OF 
FOR 
NEXT 
NEXT 
CALL 



CALL 
END 



+++++++++++++++++++++++++ 



+++++++++++++++++++++++++ 



+++++++++++++++++++++++++ 



OF 



CLEAR 
PUT 



M 



NT 

) ; 

NPUT 



ZS 



USES 



310 

I 



CLEAR 



DR 

PRESS 

DSK1 
ABLE 



SAY 



SAY 



SPELL 



jWORDS 
GUESS 



CLEAR 



CLEAR 



20 



VE 



jWORDS 
FS 



THERE 
SEE 



CORRECTLY 



TO 



TO 



WORD 



WORDS 



YOUR 
TO 

CLEAR 
YOU 



SPELL 



SCORE 
SCORE+1 



20 



DSK1 
TO 



WI 



SK 
lONE 
ENTER 
. W 
254 



CORRECT 
ENTER 



THEN 



700 



UHOH 



CORRECT 
WORDS 



500 



GOT 



THEN 



NG 



FS 



WORDS 



ARE 



YOU 



LAST 



) 

SCIORE 



PWORDS 

GAIME 
20 



TEST 



THEN 



330 



TH 



WHEN 



300 



SPELL 

<< 



CAN 
IGOOD 



NT 



XS 
470 



LAST 



TO 



LE 



WORDS 



READY 
NTERNAL 



GAME 



TRY 



LUCE 



WORDS 
SPELL 



NG I S 
SCORE 



SCORE 



AS 



AGAIN 



XS 
NPU 



THEM 



SO 



OUT 



LAST 
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Listing 4 



100 

110 

120 
130 
140 
150 
160 
170 
180 
190 
200 

210 
220 
230 

240 

250 
260 
270 

280 
290 
300 

310 
320 
330 
340 
350 
360 
370 



380 
390 
400 
410 
420 
430 
440 
450 
460 

470 
480 
490 
500 
510 

520 
530 
540 

550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 

710 
720 



YTES 
IMAXBYTES 



RElM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
TH 
RElM 
CALL 



PRI 

PR 

PR 
PR 
PR 

K 



WII 
NIGS 



F 
PRI 



NT 

GlOTlO 



370 



GlOTO 
L 

C$ 
L ) 

RETURN 

+ + + 



REM 
CALL 
CALL 
NPOT 



PR 



NT 



NT 

NT 
NT 
NT 

NT 
NPOT 
F 



PR 
I 
I 

20 

ON 

GOTp 
CALL 
END 
REM 
CALL 
INPUT 



IMAXBYTES 
SEG$ ( B$ 



NPUT 
F F 
CALL 
GOTO 
B$ 



CALL 



PR 



NPUT 
F 



PR 



CALL 
GOTO 



DS 
CALL 



NEW 
NPUT 
RElM 



++++++++++++++++++++++++ 



++++++++++++++++++++++++ 



SPEECH 
LL 



CLEAR 



CHlOI CE 
220 
CLElAR 



BYTES<MAXBYTES 



370 

BYTES> 



NT 



CHOI CE$ 



RETURN 
REM 

+ + + 
CALL 



INT 



NT 



NT 



+ + + 
CLEAR 



ENTER 



CHOI 



CHOI CE<1 



TRUNCATE 



TOO 



CLEAR 
SAY 
SAY 



+ + + 



CLEAR 



NO 



SPGET 
620 



LASTDATAS 



CLEAR 



SPGET 
690 



LASTDATAS 



CLEAR 



SECONDWORDS 



COMB 



+ + + 



CE 



GOSUB 



TRUNCATE 



LEN 



SPEAK 



ENTER 



RSTWORDS 



ENTER 



ENTER 



IWORD 
NEWWjORDS 



MAKER 



) + { 



Y 
I|OI 



RSTWORDS 



SECONDWORDS 



WORD 

NUMBER 

lOI 
PRINT 
STPRE 

EX 



MANY 



THEN 
NElGAT 



BYTES 



AGAI 



NE 



B$ 



THE 



ROUT 
iWjORDS 



550 



HOW 



8eCHR$ 



NEW 



NEWDATAS 



BYTES 



VE 



HST 



SECONDWORDS 



CHOI CE>4 



BUI 



OF 



TWO 



SPEECH 



NEW 



THEN 



450 



N? 



THEN 



TWO 



LASTMADES 



RSTWORDS 



SECOND 



WORD 



NUMBERS 



WORD 
LASTIMADES 



SPELL 



870 



MANY 



LDER 



YOUR 



WiORDS 
DATA 



WORD 



RSTWORD 



OR 
500 

WlORDS 

WORD 



NE 



NTO 



1 

1100 



420 



&SEGS 



+ + + 



BS 



DS 



I NG 



BYTES? 



TO 



SUBROUT 



THEN 

) 



TO 



THEN 

) 



OF 



NEW 



+ + + 



CHOI 



ON 



THEN 
330 

+I++ 



6S 



CHOI CE 



lOI 



lOI 



DI 



N 
610 



THE 



N 
680 



CE 



IN 



730 
740 
750 
760 

770 
780 

790 
800 
810 
820 
830 

840 

850 

860 
870 
880 

890 



910 
920 
930 
940 

950 
960 
970 

980 
990 
1000 
1010 
1020 
1030 
1040 
1050 

1060 
1070 
1080 
1090 

1100 
1110 

1120 
1130 

1140 
1150 
1160 

1170 
1180 
1190 
1200 
1210 
1220 
230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 



GO 



NEWDATAS 



LASTMADES 
LASTDATAS 
RETURN 
REM 



REM 



REM 
TO 
REM 
OPEN 
REM 



CALL 
PR 



YOU 
GOSUB 
I 





V|A L U E S S 



F 
A 

PRINT 



SUB 
DAT 
SUB 
INT 
2 

NPUT 



F 
PRI 



NE 



GOTO 



CHOI 



BE 



NT 



PRI 
FOR 
VALUESS 



NT 



VALUESS 



VALUESS 
NEXT 
F 



VALUESS 

) 

PRI NT 
CLOSE 
RETURN 
REM 
RY F 
CALL 
PRINT 



NPUT 



PR 



F 

CALL 

gotIo 

FS 



L = 



GjOSUB 
L 

OPEN 
ND 



PRI 
PRI 
CLOSE 
RETURN 
REM 
RElM 
I 



NPOT 



LEN 



RETURN 



CH0ICE<1 



+ + + 
I+ + + 



CHOI 



FOR 
«1 



350 



480 



CE 



THI 
MODI 



CLEAR 



jWANT 
1230 
THEN 



n 



10 



1030 



VALUESS 



NT 



VAR 
NT 
NT 



LE 



CLEAR 
PUT 



WORDS 



#1 



+ + + 



YOU 



WORDS= 



BACK 



CS&DS 



ENTER 



CE 



NEWWORDS 
NEWDATAS 



PR 



OPEN 



YOUR 
RS232 



LENlGTH 

Tb 

VALUESS&STRS 



VALUESS& 



ADD 

I++ + 



LE 



PRESS 
'EN 
WANT 



1230 

THEN 



SPGET 
1300 



LASTDATAS 



FS 



SEGS 



I ABLE 
#1 



+ + + 
WORDS 



NT 



TO 



) + ( 



THEN 



NT 



ED 



TO 



1070 



THE 



DATA 



DATA 



IN 



ENTER 



DSK1 



LAS 



THE 
DRI 



(WORDS 
FS 



PRI 
DA 



THE 
PR 



CHANGE 
MAIN 

CHOI 



SPEECH 



STATEMENT 



10 



THEN 



VALUESS 



NEW 



DI 
VE 
ENTER 



1200 

1 . W 
254 



WORDS 



ND 



( WORDS 



TO 



730 



NTER 



IWORD 
NT 



WORD 



THE 



WORD 



THEN 
TMADES 



THEN 
VALUESS 



SK 



FS 



CE>2 



BA 



1070 



VALUESS 



WORD 



WII 
lONE 



SAVE 



300 



SOMjE 
MENU 



ASC 



DATA 



MAY 



9600 



WHOSE 



BYTES 



^HEN 
WORD 



THEN 
) 



TH 



1020 



LEN 



TO 



SUBROUT 



SEGS 



NTERNAL 



1290 



MORE 



THEN 



SUBROU 



DATA 



WORDS 



READY 
WHOSE 



NEED 



WORDS 



VALUESS 



VOCABULA 



, APPE 



NE 



FS 



XS 
DAT 
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SPRITER 

HIGH-SPEED 
ANIMATION 
WITH 
SPRITES 



EXTENDED 
BASIC 



/ I ^ I Extended BASIC lets you fill the screen with 
I I rapidly moving sprites of many colors. See for ex- 
X Aample Sprite Chase in "Computer Gaming." 
Although the smooth and rapid motion possible with sprites 
is indeed quite impressive and arcade-like, think how much 
more spectacular these screen displays would be if we 
animated the moving sprites: After all, why just move a 
man-shaped sprite when you can also move his arms and 
legs? Picture the visual impact of a bird-sprite flying across 
the screen flapping its wings. How about a circus parade 
with clowns tumbling, animals walking, and elephants mov- 
ing their trunks? All of this— and more— is possible with 
sprite animation. 

The technique of animation is old and well-known. First 
we draw a series of figures with each figure in a slightly dif- 
ferent position and posture. Then, we rapidly flash the 
figures one after the other on the screen, and persistence of 
vision goes to work— fooling our eyes and causing us to see 
figures move as if alive. Now with sprites we can duplicate 
this movie animation technique on the TI-99/4 and 99/4A 
through simple commands in Extended BASIC. [See "3-D 
Animation with the TMS9918A Video Chip."— Ed.] 

The usual trouble with computer animation is the tedious 
series of tasks that you have to do after drawing the figures: 
You have to figure out, keep track of, and key in those long 
pattern identifiers. If you have chosen to work with sprites 
that are four characters large, these codes then become 64 
hexadecimal characters long! This situation prompted me 
to write Spriter (Listing 1), a program that does much of 
the work for you, and leaves you free to concentrate on the 
fun— drawing the figures for the animation sequence. Spriter 
automatically computes, files, and saves an array of four- 
character pattern identifiers that define sprites of magnifica- 
tion 3 or 4 (figurines). After you draw each figurine you 
can output a model of it to the thermal printer (optional) 
and when you are finished, you can save the whole file on 
cassette tape or disk. 



When you run Spriter, it presents you with a 16 x 16 
character work area in the screen's character display field. 
Under your directon, the computer generates an enlarged 
model of the figurine within the work area. The image is 
made up of dark and bright character squares, each of which 
has a counterpart in the figurine. Changes in the display 
field are automatically converted into changes of the 
figurine's pattern identifier. The figurines in the computer's 
memory (RAM) can be stored permanently on tape or disk 
and later accessed by either Spriter or any other program 
with animation recall capability. See, for example, the 
animation demonstration program in Listing 2. Spriter thus 
allows you to generate new figurines, transfer any figurine 
that you have stored on tape into RAM, and rework any 
figurine that is present in RAM. 

How to Run Spriter 

Instructions are almost self-contained: A series of prompts 
guides you through much of the program. First, you are 
asked if you have a thermal printer and if you want to in- 
put a file of characters from tape or disk. If so, you are 
asked the corresponding file name. Then the work area is 
framed on the screen. If you have chosen to show an ex- 
isting figurine by reading in an old file, Spriter copies that 
figurine to the work area. When the cursor appears in the 
upper lefthand corner of the work area, you are ready to 
draw a new figurine or redraw an existing one. You can 
move the cursor anywhere within the work area by using 
the arrow keys for horizontal and vertical motion, and the 
W, R, C, and Z keys for diagonal motions. When the cursor 
is moved, it automatically leaves a trace as determined by the 
polarity keys: bright if the A key was pressed and dark if 
the F key was previously pressed. When the cursor first ap- 
pears, the polarity of the trace is dark. Afterwards, by us- 
ing the motion and polarity keys you can draw and erase 
portions of the model until you are satisfied with the results. 
Then press the Q key to exit the drawing mode. A new series 
of prompts will guide you through the rest of the program. 
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Order ol Program Execution ■ 



How Spriter Works 

Space does not allow a line-by-line description of Spriter 
(see Listing 1). But for those interested in exploring the in- 
tricacies of the program, I have provided a road map in the 
form of a structure diagram (Figure 1). Functions identified 
within the main program are depicted as boxes above the 
dashed line; those identified with subprograms are below 
the dashed line. The order of program execution in this 
figure is from left to right, and the order of subprogram 
calls is from top to bottom. The program line numbers to 
which these various functions refer are listed at the bottom 
of each box. 

The main task of drawing a series of sprite figurines is 
under the direction of Function 3 (Draw & Save Sprite 
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Codes). The task of initializing the work area and handling 
individual figurines and their models is directed by sub- 
program Expander, which constructs this model when given 
the pattern identifier for the figurine. After this. Drawer 
directs changes in the model display according to the user's 
keyboard inputs. Then it calls upon subprogram Addpix 
to make the corresponding changes in the pattern identifier 
for the figurine that is being drawn. When the figurine is 
complete, Drawer will call subprogram Screept to output 
the model on the thermal printer (if this option is chosen). 

A Demonstration Program 

After you generate cassette or disk data files of figurine 
pattern-identifiers with Spriter, you are ready to incorporate 
these into an animation sequence within a program. The 
short demonstration program (Listing 2) is a very simple 
example. This program is in effect a continuous loop pro- 
jector that sequences through a series of sprite figurines to 
produce animation of the sprite that is moved across the 
screen. After the program reads the pattern identifiers from 
cassette tape or disk, it goes into the animation loop. You 
can stop the looping by pressing SHIFT C (on the 99/4) 
or FCTN 4 (on the 99/4A). 

Keep in mind that this program is just a very simple 
demonstration of the sprite animation technique. You can 
use it to study the figurines files created by Spriter, and 
perhaps as a starting point for writing more elaborate sprite 
animation programs that are more apt to your specific ap- 
plications [We've also included an additional program 
(Listing 3) that incorporates DATA statements for those 
wishing to get a feel for the animation process before work- 
ing with Spriter. — Ed.] 
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COLOR 
MAPPING 

and the 
TI-99/4A 




One of the principal features of the new technology 
exhibited by low-cost home computers is their 
graphic capabilities. But these small computers' 
graphic capabilities in the area of mapping is often 
overlooked. Statistical mapping is not new; cartographers 
have used the methods described in this article for 
decades, and sophisticated mapping programs that run 
on large mainframe computers have been available (from 
Harvard University and elsewhere) for a number of years. 
Their application for the small computer field, however, 
especially in the classroom setting, should be further ex- 
plored and documented. 

The program described in this article, United States 
Choropleth Map, was written for the TI-99/4A. No 
peripherals are needed, except for a cassette recorder to 
store the program. Therefore, anyone with the console 
can get started immediately and experience the excitement 
of computer mapping. The program should benefit a 
large number of users: For example, classroom teachers, 
from the upper elementary grades through college levels 
in geography, can utilize it; sales and marketing 
managers, and others interested in the spatial distribu- 
tion of goods and services may also find it especially 
useful; political scientists can easily see the national elec- 
tion results displayed almost instantaneously. 

Choropleth Mapping 

Simply defined, choropleth mapping has been likened 
to a spatial table. Enumeration units— which can be cen- 
sus tracts, counties, states, or other small area 
geography — are symbolized by different area patterns, 
depending on the values they represent. Typically, the 
original data are divided into a number of data classes 
(map classes). The individual enumeration units will be 
symbolized according to the map class into which their 
data value falls. Enumeration units are put into classes 
because it is usually impractical, or not feasible, to app- 
ly an area pattern for each data value. 

Classing, of course, is similar to a sieve; individual 
values "fall" into each group depending on the class 
limits. This results in a generalization, and the final map 
is a simplification of the original data. Nonetheless, 
choropleth mapping has a number of advantages over a 
simple table of values. It provides a third, or spatial 
dimension to a rather dull list of values in tabular for- 



mat. In the bibliography, I've listed several good books 
that discuss the methods and rationale of this form of 
mapping. 

Symbolization on choropleth maps takes on several dif- 
ferent forms. In the case of black and white mapping, 
the enumeration units are symbolized by area patterns 
to differentiate each class from all others. Different 
shades of grey, ranging from near-black to near-white, 
are often used. Color symbolization includes two forms: 
(1) different hues (such as green, red, blue, etc.) for the 
various classes, or (2) different values (shades) of the same 
color. The present program uses the second method. 

Main Features of the Program 

Figure 1 illustrates the main components of the pro- 
gram's logic, and Figure 2 lists the most important 
variables. I wrote the program with flexibility in mind: 
New subroutines can be incorporated as different versions 
are developed. Lines 170 to 260 of the program are used 
for an opening screen, which displays the program name. 

The first section. Program Instructions, provides the 
option list and incorporates directions for data input. The 
present version accommodates only data from the 
keyboard. (You may wish to add program statements to 
read data from a file system). The data is input by enter- 
ing the values to be mapped for each state, by the 
alphabetical order of the states. 



OPENING SCREEN 



PROGRAM INSTRUCTIONS 



SORT 



CLASS LIMITS 



PRINT LEGEND/TITLE 



CLASS LIST OF STATES 



T 

END 



STATE PLOTS 



CLASS CHECK 



370-880 

890-970 

980-1020 

1030-1090 

1100-1290 

1300-3940 

3950-4100 



Figure 1 -Main program logic, showing subroutines, or United 
States Choropleth Map. 



Copyright © 1983 Emerald Valley Publishing Co. 



The Best of 99' er Volume 1 



313 



SC 'Map background color 

MC -Map color (blue or green) 

C(1-5) -Map class colors 

V(1-50) -Values of each state to be mapped 

TT$ -Map title 

X1 -Limit for class 1 

X2 -Limit for class 2 

X3 -Limit for class 3 

X4 -Limit for class 4 

K(1-5) -Character sets 

S(1-5) -ASCII character Identifiers 

SN$(1-50) -States' names 

NN -State's number 



Figure 2 -Principal variables used in mapping program. 

After the data are entered, the main program directs 
the flow to a simple bubble sort subroutine, where the 
data values are sorted into ascending order. The data 
values are then classed, and the class limits are selected 
in the Class Limits section. There are a number of ways 
in which data may be classed. This program will class the 
data values into quintiles — that is, into five classes each 
having the same number of values. As the data set has 
been arrayed in ascending order, the values of the class 
limits are computed rather easily. 

Program flow is next directed to printing. With the 
TI-99/4A and the BASIC language supplied with the 
standard computer, printed ASCII characters must be 
displayed before the color graphic blocks are called on 
the screen. Otherwise, scrolling will move the color 
graphics off the screen. The Print Legend and Title 
subroutine displays the classed values and user-chosen 
title on the lower portion of the screen. 

State Plots is next. Each state is assigned an ordinal 
number based on its alphabetical rank (1-50). As each 
state is encountered, flow is directed to a subroutine. 
Class Check, in which the state's ordinal number is used 
to determine which color the state should be. 

Outlines of the states are not variable, but the color 
(symbolization) varies, of course, depending on the class 
in which each state falls. Flow continues until each state 
has been displayed on the screen. A color graphic block 
is displayed adjacent to the printed legend values at the 
bottom of the screen. The program ends with a GO TO 
statement (line 3940); the screen will display the map un- 
til the user presses SHIFT C or FCTN = to BREAK 
program. 
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Figure 3 - The graphic blocl<s used to identify the shapes of the 
states in the choropleth map program. Each block's 
color is generated with the CALL COLOR command. 



Mapping on the TI-99/4A 

The color graphic capabilities of the TI-99/4A include 
a screen which is divided into 32 columns and 24 rows, 
each block of which is addressable by a row and column 
identifier in the CALL HCHAR and VCHAR com- 
mands. Any of 16 colors (including transparent) can be 
specified. Further resolution is possible by using the 
CALL CHAR command, with which the user can specify 
the "on" and "off" condition of 64 dots in each graphic 
block, through the use of hexadecimal codes. The pres- 
ent program utilizes only the 32 x 24 resolution screen, 
and does not develop the refinements of the shapes of 
the states that are possible with the CALL CHAR com- 
mand. The blocks used to identify the states are illustrated 
in Figure 3. Although only an approximation is achiev- 
ed with this resolution, the shapes resemble fairly well 
the individual states, and relative area is proportional to 
real geographical areas. Other users may wish to modify 
these (although I suspect that the 16K RAM will be tax- 
ed if they do). 

The Choice of Color Symbolization 

As mentioned previously one standard, acceptable way 
to symbolize the areas on choropleth maps is to vary the 
lightness or darkness of one color, in accordance with 
the values represented. Classes having higher values are 
rendered darker, and the lower-valued classes lighter. For 
this program, the highest class is black, the lowest class 
white, and the three intermediate classes are in three 
shades of green or three shades of blue. The TI-99/4A 
can display 15 different colors, and fortunately there are 
three different greens and blues, each ranging from light 
to dark. Symbolizing the color classes in this manner bet- 
ter shows the total form of the distribution over the map. 
The map reader gets a better idea of the continuously 
changing nature of the spatial attributes of the data. 

Program Enhancements 

You can make any number of useful changes to this 
program. You may wish to provide alternate ways of 
classing the data (e.g., quartiles, equal steps, standard 
deviations, or others), to add new subroutines, or to enter 
your own classes. A different color for each class could 
be used in the color symbolization. The variable C(l-5) 
need only be changed to conform to the other color code 
options used by the TI BASIC. With small changes, data 
sets could be input from external files rather than from 
the keyboard. This would be especially useful in 
classroom settings, where census or other data from 
previous years (and other geographical data) can be com- 
pared with present patterns. 

Computer-aided instruction (CAI) which uses inquiry 
questions generated by the spatial distribution seen on 
the screen could also be added to this program. 
Geographical concepts could be brought out in this man- 
ner, and students could easily test hypotheses. 

One most intriguing enhancement would be to in- 
troduce animation (dynamic cartography) to the pro- 
gram. Various data sets could be read (from files) and 
displayed in fairly fast sequence to produce a dynamic, 
changing image of the geographical distribution. For ex- 
ample, different population densities from 1850 to 1980 
would show the steady drift of our population from east 
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to west; a temporal set of sales (or income) performance 
data would be of interest to marketing analysts. One ad- 
vantage of all computer mapping is its ability to show 
the dynamic qualities of geographical data. This capabili- 
ty is possible on the versatile TI-99/4A. 
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31 



3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 



CALL 
CAL 
CALL 
REM 
NN = 47 
GOSUB 
CALL 
CALL 



REM 
NN = 43 
GjOSUB 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
REM 



NN 



GOSUB 
CALL 
CALL 
CALL 
REM 
NN = 45 
GOSUB 
CALL 
REM 
NN 
GOSUB 



NN 



END 



48 



REM 
NN 
GOSUB 
CALL 
CALL 
REM 



50 



GOSUB 
CALL 
CAL 
REM 
NN = 
GOSUB 
CALL 
CALL 
CALL 
GOTO 
REM 



44 



46 



RETURN 



RETURN 



RETURN 



RETURN 



RETURN 



3960 

HCHAR 
HCHAR 
HCHAR 

IwIash 

3960 

HCHAR 
HCHAR 



49 



TEX 

3960 

HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
UTAH 

3960 

VCHAR 
VCHAR 
VCHAR 
VERMONT 

3960 

HCHAR 
VA 



NN 
NN 
INN) 
NN 



VA 



3960 

HCHAR 
HCHAR 
WI SC 



3960 

VCHAR 
VCHAR 

IwIyo 

3960 

HCHAR 
HCHAR 
HCHAR 
3940 

class 



8. 
9, 
10 



30 



CHECK 



25 



THEN 
THEN 
THEN 
THEN 



4020 
4040 
4060 
4080 
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OVERLAND FLOW 




When rain falls to earth, part of it passes into the 
soil (unless the surface is impervious, such as 
concrete or asphalt) and the remainder disap- 
pears over a period of time either by evaporation or by 
runoff (overland flow) or by both. In most engineering 
drainage systems, the amount of water lost by evaporation 
is negligible; thus, drainage must be provided for all rain- 
fall that does not infiltrate the soil or is not stored temporari- 
ly in surface depressions (lakes, swamps, etc.) within the 
drainage area. Until recently, the Rational Method was used 
for calculating design discharges for storm drains. This 
method has various drawbacks and is of limited applicabili- 
ty. For that reason, the method used in this program is the 
Izzard dimensionless hydrograph. This method has been 
verified in laboratory tests and gives computed overland flow 
hydrographs agreeing closely with the measured 
hydrographs. The result of Izzard's method can be used by 
engineers in the design of drainage facilities for parking lots, 
airports and highways, etc. (See sample problem.) 

Program Description 

Input to the Overland Flow Program consists of two 
elements. The first consists of rainfall data and the second 
consists of physical characteristics. 

Standard curves (see Fig.l) may be developed to express 
rainfall intensity-duration relationships with an accuracy suf- 
ficient for drainage problems. Rainfall intensity-duration 
data have been published by the National Weather Service. 

The following physical characteristics are needed: length, 
width and slope of the area of interest, and a coefficient 
to describe the surface. The computer program contains a 
table from which the surface coefficient can be determined. 

Output from the program can be displayed on the 
monitor screen or TI thermal printer. The program displays 
input data and the overland flow hydrograph in tabular 
and/or graphic format. The program can calculate and 
display two hydrographs at any one time. Thus, it is possi- 
ble to vary the input data and compare the results. 



Definition of Terms. 

Depression Storage: Rainwater retained in puddles, 
ditches and other depressions in 
soil surface. 

Occurs when the intensity of ef- 
fective rainfall is equal to the 
outflow discharge. See Figure 2. 
Time in minutes to reach the 
equilibrium condition. See 
Figure 2. 

Passage of water through the 
soil surface into the soil. 
Effective rainfall intensity in 
inches per hour. Effective rain- 
fall is that which occurs after 
depression storage and infiltra- 
tion capacities are met. See 
Figure 2. 



Equilibrium: 



Equilibrium Time: 



Infiltration: 



Intensity: 



Figure 1 
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Maximum Discharge: 



Roughness Factor: 



Length: 



Slope: 
Width: 



The discharge, in cubic feet per 
second, when equilibrium is 
reached. See Figure 2. 
A coefficient that characterizes 
the resistance to flow of a par- 
ticular surface type. 
Distance, in feet, in the direction 
of slope, on which overland flow 
occurs. See Figure 3. 
See Figure 3. 

Distance, in feet, perpendicular 
to the length, on which overland 
flow occurs. See Figure 3. 



////: IFUCTIVI IIAKtAtl.-./ /XJ 



Typical Ovtftind Flow Hydrograph 




Figure 2 



Figure 3 



Operating Instructions 

Step 1: Insert the cassette into a recorder, type: OLD 
CSl and press ENTER. The computer then 
displays directions for loading the tape. 

Step 2: When the cursor appears, type RUN, and press 
ENTER. When the title screen appears, press 
any key. Then select the screen or thermal 
printer as the device for output from the 
program. 

Step 3: After choosing the output device, the computer 
asks for the input data needed to compute the 
overland flow hydrograph. Type in the data re- 
quested and press ENTER. 

Step 4: After all data is entered, the computer will 
generate a hydrograph and display the menu. 
Select one of the following options: 

1. DISPLAY DATA (GIVEN AND 
CALCULATED). 

2. DISPLAY HYDROGRAPH. 

3. COMPUTE ANOTHER HYDROGRAPH 
AND COMPARE. 

4. REDIRECT OUTPUT. 

5. ENTER NEW PROBLEM. 

6. END PROGRAM. 

After completing any of options 1 through 5 the 
computer returns to the menu. 

OPTION 1: DISPLAY DATA (GIVEN AND 

CALCULATED)— If you select option 1, 
the computer will display the input data 
that you entered and the calculated values 
for equilibrium time and maximum 
discharge. 

OPTION 2: DISPLAY HYDROGRAPH— If you 

select option 2, the computer asks you if 
you want the hydrograph displayed in 
tabular or graphic form or both. The 
graphic form plots the hydrograph points 



OPTION 3: 



OPTION 4: 



OPTION 5: 



OPTION 6: 



as percent of maximum discharge versus 
time. When two hydrographs are plotted, 
the maximum discharge is the greater of 
the two hydrograph maximums. 
COMPUTE ANOTHER HYDRO- 
GRAPH AND COMPARE— If you select 
option 3, the computer asks you to enter 
another set of data in order to calculate 
another hydrograph. Since the first 
hydrograph is retained by the computer, 
this option can be used to vary any of 
the input data and examine the result (see 
sample problems). The option can be 
used as many times as the user wishes. 
The computer always compares to the 
original hydrograph computed when the 
program was initially run. If a subsequent 
hydrograph is preferred to the original, 
select option 5 and enter the new 
hydrograph as the original. Thus, all 
other hydrographs computed via option 3 
will be compared to the new hydrograph. 
REDIRECT OUTPUT— If you select op- 
tion 4, you change the device to which 
the output is displayed. 
ENTER NEW PROBLEM— If you select 
option 5, the program begins again. This 
option is used to rerun the program 
without having to type RUN. Also, use 
this option in conjunction with option 3 
to compare several hydrographs and select 
one that is best suited to the problem. 
END PROGRAM— This option returns 
the computer to TI BASIC. 



EXPLANATION OF THE PROGRAM 
Overland Flow 

Line Nos. 

160-530 Program initialization: Character assignments 

and array dimensioning. 
540-1080 Data entry. 

1090-1490 Calculation of Overland Flow Hydrograph. 

1500-1800 Display hydrograph, in tabular form, on video 
monitor or Tl thermal printer. 

1810-1990 Display menu and go to portion of program ac- 
cording to option selected. 

2000-3200 Display hydrograph, in graphic form, on video 
monitor or TI thermal printer. 

3210-3460 Subroudne to align numbers on display. 

3470-3590 Display given and calculated data. 

3600-3710 Prepare program to accept and calculate a 
second hydrograph. 

3720-3790 Subroutine to blank and restore screen when 
displaying information on video monitor. 

3930-4220 Scale and label axes of graph. 

4230-4250 Common subroutine to check keyboard entry. 

4260-4510 Select drive to program output. 



Sample Problem 1 

A parking lot 300 ft. long in the direction of the slope 
and 900 ft. wide has a tar and gravel pavement on a slope 
of .0025. Assuming a uniform rainfaU intensity of 2.75 in/hr 
for 30 minutes, what is the maximum discharge that a gut- 
ter should be designed for? 

Type RUN, then press ENTER. 
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Sample Problem 1-cont. 

Select the thermal printer as the output device. 
Enter the following data: 



Intensity 


2.75 


Duration 


30 


Length 


300 


Width 


900 


Slope 


.0025 


Roughness Factor 


.017 



Select option 1. 
The gutter should be designed for a maximum discharge 
of 17.2 cfs. 

Sample Problem 2 

If the parking lot described in problem 1 is resurfaced 
with asphalt, what effect will this have? 

After problem 1 is complete select option 3. 

Enter the same data as for problem 1 with the exception 
of the roughness factor. Enter .007. 

Select options 1 and 2. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 

270 
280 



290 
300 
310 
320 
330 
340 
350 
360 
370 
380 



390 



410 



420 



430 



RE 
RE 
RE 
RE 
RE 
RE 
CALL 
CALL 
GOSUB 
PRINT 



PR 



CALL 

GOSUB 

GOSUB 

CALL 

CALL 



PR 



NT 



INT 



CALL 
NEXT 
DATA 



02 

DATA 



9060 
9060 
DATA 
6090 
6090 
DATA 
FOFO 
9060 
DATA 
9669 



DATA 
906 
143 



ION 
H 
S 
2 



SL 



OPT 
DIM 
(2) 
TPP 
DEF 
DEF 
DEF 
DEF 
RESTORE 
FOR 
READ 



CLEAR 
SCREEN 

3720 

TAB 



TAB 

SlOUND 
3760 
4230 
CLEAR 
SCREEN 



RD 
RD2 
RD4 
RD6 



08080808080 



TAB 



103 
105 
97 
107 
112 
96 
114 
122 
64 
124 
132 

134 



906090606090 



OVERLAND 



BASE 
2 



1 

ClODE 
CHAR 
I 

99 



380 

TO 



15 



150 



NT 
INT 
INT 
INT 



42 

CHS 
CODE 



O00OOO0OF0FOFOF0 



OVERLAND 



101 



OeOO00O00101O1FF 

00000101010101 



06090906 



96696996 



0F0F0F0F 



PRESS 



INI 



142 



100 

( 



EO808080818181 



TE 



1E3 
1E4 
1E6 



CHS 



000024181824 
0000000006090906 



09060609,113 
0018242418 
0000000009060609 



FFFFFFFFFFFFFFFF 
9060609006090906 



FLOW 



0906060906090906 



I AL 



ANY 



X + 
X + 

x + 
x+ 



106 



123 



133 



2 

|Q|w|( 



FLOW 



KEY 



I NG 



FF 




100 

/ 



F88080808e80808e 



FF 



0609090690606090 



LE 



1E3 
1E4 
1E6 



100 



104 



111 



121 



131 



141 



TO 



000000009060 



906060906090 



090606096090 



BEG 



WI 



EO808 



6090 



9060 



FOFO 



6996 



6090 



440 
450 
460 



470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 



870 

880 
890 
900 
910 
920 
930 
940 
950 
960 

970 

980 

990 



1000 
1010 

1020 
1030 



153 

DATA 



DATA 



906009060609 



154 
40404444FF 



145 



7 

DATA 158 
04O404FF 
000000000006090 
9F 
GO 
HY 



GlOlSUB 
1 



FOR 
FOR 



NEXT 
NEXT 
CALL 
CALL 



GOSUB 
GOTO 



PR 



INPUT 



GOSUB 
GOTO 



PR 



GOSUB 
GOTO 



PR 



15 6 

e0F84O4O40404e4O 



NPUT 



NPUT 



Iwli 

F 



GOSUB 
GOTO 
PRINT 
NPUT 



CALL 



PR I 

SS 
PR 
A 

GOSUB 



PR 
FOR 
NEXT 
CALL 



0000000069969669 

OOeooOOOOFOFOFOF 



NT 



NT 



NT 



NPUT 



NPUT 



144 



HY 
WI 



I 

KEY 
NT 



NT 
TAR 
CRUSHED 
NT 



HY 



CLEAR 
SCREEN 



HY 
4470 
580 



4470 
640 



)|=RD 

(Ihy 

4470 
700 



NT 

VALUE 
THAN 
NT 



VALUE 
B 4 
KEY 



TAR 
NT 



4260 



RD 
HY 



DENSE 



)l= 



RD2 



RD 
HY 



4470 
760 



RD6 
HY 
SOUND 



I 

CLEAR 



0000000096696996 



OeOO00O004O4FF 



HYDROGRAPH 



ENTER 



8 9 
89 



TO 



RD4 



DURAT 
HY 



DU 
<1E5 



L E NIG T H 
HY 



FOR 
4230 



AND 



NTENS 



N 
1E4 



LE 
1E6 



WI 



FOR 
FOR 



SURFACE 



SMOOTH 



CLOSELY 



(|WI 
1E6 



SLOPE 



) + ( 



US 



SLATE 
ClONCRETE 
GRAVEL 



152 



SL ( 
04 
200 



04 

YOU 



THEN 



350 



ENTER 



CR 



98 



DTH 
HY 



15 5 

O0F04O404O404040 



DATA 



HY 
THEN 



ION{MI 



THEN 



THEN 



KEY 



NG 



SAND 



BLUEGRASS 



ROUGHNESS 



(FT 
HY 



WI 
SLOPE 



HY 



0609090609060609 



00OO3C3C3C3C 
92 



TY 



FT 

) 

THEN 



820 



CL 



THEN 
120 



ACCURATE 
SLOPE 



ASPHALT 



) ) 



78 



TABLE 



TYPE 



93 



916204081020468 



630 



FT 



PAVE 



PAPER 
PAVEHlENT 
PAVE 



N/HR 



690 



750 



810 



ROUGHNESS 



PPED 



910 



TO 

Y/N 



0906 



STRS 



AS 



TURF 



FACTOR 



159 



RESULTS 
SHOULD 



RE 



PAVE 




SOD 



THEN 



151 



0082 



000004 



ENTER 



GU 



6090 



0078 
15 



DU 



LE 



WI 



SL 



880 



FACTOR 





0075 





0170 



0600 



91 



BE 



THE 



DE 



FACTOR 



CR 



HY 



HY 



HY 



HY 



HY 



0120 

0" : : 
0260 



LE 
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1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 



1120 
1150 

1140 
1150 
1160 
1170 
1180 

1190 
1200 
1210 
1220 
1230 

1240 
1250 
260 
1270 

1280 
1290 
300 
1310 
1320 
1330 
1340 
1350 
1360 

1370 
1380 

1390 
1400 
1410 
1420 

1430 
1440 
1450 
1460 
1470 



1480 

1490 
1500 
1510 
1520 

530 
1540 

550 
1560 
1570 

580 
1590 

1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 



CR 
GlOSUB 

gotIo 

FOR 
NEXT 
CALL 
CALL 



PR 



QE 

KX 

M 

DE 

TE 

KNT 

FOR 



LSE 
ENT 
GOTiO 



NEXT 



QW( 



RESTORE 



DATA 
94 

F|0|R 
I 
R 
H 

NEXT 
H 
I 



( 

RElAD 
HY 
XT 
HY 



HY 



( HY 
HY 
HY 



F 
W 
DIO 
( HY 
FOR 



TPP 
TPP 



TPP 



I 

PRI 



HY 



ENT 
HY 



NEXT 



TPP 
Y 

GIO 
CALL 



FOR 
PR 
STRS 
I F 
PR 
PR 
GE 
F 
PR 



FlOR 
F 
F 
L 

N = 
FL 
GOSUB 
N = H 
FL 



NT 



HY 



CR 



1210 

I 

1250 



>KNT 
MULT 



{ HY 



TO 



NT 



INT 
INT 
CFS 



NT 



4470 
1020 

TjO 

CLEAR 
SCREEN 



I = 



11 



HY 



LE 



QE 



HY 
1 

ENToO 



LE 



0007 



DE 



11 



12 



1810 

CLEIAR 
LE 



#F 



1270 



TO 



FI 



3210 

I 



<1 



HY 



TE 



MULT 



QW( 



3 

T|0 
1 1+12 



I +12 
1+12 



22 



TO 



TO 



HY 



( 

DO 
HY 



06 
12 



368064+DU ( HY 



LE 



LE 



THEN 

) 



250 



HY 



) 

THEN 
HY 

SL 
9 

10 



THEN 



QE 



10 



ENT 



05 

THEN 
25 

75 



THEN 



HY 



THEN 



THEN 



22 



QE 



HY 
WI 



18 



qn< 

HY 
1360 
ENT 
HY 



DO 



TAB 



LE 



HY 



TE 



DO/ 



HY 
1- 



1710 

THEN 



HY 



>D0 



HY 



QW( 



1070 



COMPOT 



HY 



HY 



38 



HY 



1810 



530 

HYDRIOGRAPH 



570 



IME 



600 



)+CR 



( HY 



120 



10 



HY 



HY 



HY 



TE 



(MI 



43200 



QW( 



1710 



THEN 



HY 



55 



1+12 



HY 



THEN 



QW( 



NG 



LE 



•QW( HY 



HY 



PR 



HYDROGRAPH 



) 

) 

l|+DO 
HY 



HY 



HY 



( HY 



/WI 



NT 



SL 



1190 



DI 



83 



340 



/ WI 



HY 



) +TE 
)|+TE 

NG 



HY 



) +T 



HY 



SCHAR 



*QE 



( HY 



690 
1700 
1710 
1720 
1730 



1760 
1770 
780 
1790 
1800 
1810 
1820 
1830 
1840 



1850 
1860 



1870 



1880 
1890 



740 
750 



900 
910 



1920 
1930 
1940 
1950 
1960 
1970 

1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 



2170 



2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 



NT 



PR 

PR 

( 

IMIPARE 



GlOSUB 
I 



PR 



NEXT 
F 



PR 



GOSUB 
CALL 



NEXT 



CALL 
GOSUB 



CAL 



PR 



PR 



CALL 
GOSUB 



GOSUB 



ELSE 
CALL 
GO 



CALL 
CALL 
CALL 



GO 



PR 



TAB 



CALL 
END 
GOSUB 



QMAX 
TMAX 



TMAXh 
CALL 



QMAX 



CFS 



F2 = F 

GOTO 

FOR 

NEXT 

CALL 

CALL 

FOR 

CALL 

CALL 

NEXT 

CAL 

FOR 

CALL 

NEXT 



NT 



NT 



TST 



TO 



NT 



NT 



NT 



END 



TO 



EEY- 



CAL L 
CAL 
F2 = 

q|maxi=|q|w|( 

HY = 1 
QMAX 



VEN 



SOUND 
3760 
4230 
EEY<49 
1940 
sbuND 
1900 
SIOUND 
CLEAR 
SCREEN 



480 



TO 



HY 



NT 



NT 



DENCE 



I 

LEoO 



4230 

CLEAR 
1780 



2030 

CLEAR 
3720 
SCREEN 



QMAX 



3210 



HYDROGRAPH 



QWI 



TMAX>= 



RD 



4 

ENTER 

pr|ogra[m 

200 



CLEAR 



4260 
1810 

SlOUND 
CLEAR 



CLEAR 



LEh 
LE 
2160 



COLOR 

cIolIor 

I 

SOUND 
TO 
HCHAR 
I 



PRESS 



PRESS 



TAB 



48 



F2 



I 

CLEAR 
SCREEN 
TO 



LE 



LE 



THEN 



980 



HYDROGRAPH 



OF 
RD2 



TO 



GO 



) 

THEN 

qW( 
) 

2 



THEN 



10 

QlMAX 



THEN 



250 
100 



TAB 



TAB 



) + { 



TAB 



15 



150 



22 



22 



700 



EEY>54 



ANY 



1810 



TAB 
1 



NEW 



600 



TO 



THEN 
) 
B 
X 



QMAX 



DI 



COMPUTE 



REDI 



10 
666 



2090 

THEN 



) 

2230 



F2>0 



600 



22 



600 
145 



E$ 

770 

EEY 



SPLAY 



3470 



AND 



AND 



PROBLEM- 



RECT 



2150 



CHRS 



2090 



THEN 



20 



HYDROGRAPH 



TAB 



TO 



CALCULATED 



3800 



LEGEND 



MAX 



HYDROGRAPH 



ANOTHER 



TAB 



OUTPUT 



64 



THEN 



CONT 



THEN 



ELSE 



SPLAY 



2130 



10 



3650 



2210 



2160 

TAB 
#1 



DS 



NUE 



920 



SCHARGE 



DAT 



TA 
CO 



20 



COI 



12 



N 
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2 33 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 

2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 

2640 
2650 

2660 
2670 
2680 
2690 
2700 
2710 
2720 

2730 
2740 
2750 
2760 
2770 
2780 

2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 

2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAL 
CALL 
CALL 
CALL 
CALL 
CALL 
GOSUB 



FOR 
FOR 



I 

2570 



GOSUB 



( 
( 

GOSUB 

NEXT 

NEXT 



TPP 

|QW( 



I 

NUS$ 

FOR 
CAL 



NEXT 
FOR 
B$ 
FOR 
CALL 



I 
I 


GOSUB 



NEXT 



NEXT 



ZZ$ 
FOR 
CALL 

) 

NEXT 
GOSUB 
GOTO 
T1 
T2 
Y 
X 



PS 
GOTb 



T2 



I 

PS 
GOTO 



2820 



98 



INT 



VCHAR 
VCHAH 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
VCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
HCHAR 
3930 



NT 



1 

11 



LE 



91 

145 

A<>92 



A< 



NT 
A<99 



10 

/lQtM|AX 
2930 



2930 



B$&CHR$ 



TO 
VCHAR 



TO 



TO 
IGCHAR 



104 



VCHAR 



I 

4230 
1810 



INT 



NT 



3090 



3090 



4200 



NT 



P2 
PI 
THEN 
THEN 



THEN 



LEN 



) + l 



10 

THEN 



LE 



LE 



PRESS 
TO 



TMAX 
/IQMAX 



THEN 



THEN 
THEN 



THEN 



24 



>20 



+ 86 



LEN 
24 



12 



B$ 



19 



93 



3200 
3200 



101 

100 

101 

100 
101 
100 
101 



TMAX 



2870 

GRAPH 



NUSS 
ASC 



2780 
A>154 



2820 



ANY 



99 



3030 
3060 



3080 



102 
103 
102 
103 
102 
103 
102 
103 



99999 



<> 



ZZ$ 
ASC 



KNT 



) + ( 



KEY 



19 



99999 
99999 



SEGS 



THEN 
28 



SEG$ 



<> 



99999 



PRI 



THEN 



145 



TO 



NUSS 



NT 



2820 



zz$ 



CONT 



THEN 



2760 



THEN 



NG 



NUE 
1 ) 



282 



THEN 



3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 

3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 

3500 
3510 

3520 
3530 



3540 
3550 

3560 

3570 
3580 

3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 



PS 



GOTO 
PS 
I 

CHAR 
GOTO 
CALL 



3200 

CHAR 
GOTO 
CHAR 
CALL 
CALL 
RETURN 



FL 
DS& 
FL 
D$ 
RETURN 
D$ 
FOR 



D$ 



NEXT 



I F 
E$|= 



RETURN 



CALL 
I 



FOR 
PRI 
PH 



PR 



TENS 



N(|MI 
PR 



LEN 



N2 
N1 
I P 
FP 
D$ 
L: 
I F 
D$ 
L 

I F 
I F 
D$ 

L + 1 
GjOTP 
I F 
DS 
F 
E$ 



LE 

PRI 

CR 

PR 

E 

PR 



GO 
PR 



GO 
FOR 



GOSUB 
CALL 



CHAR2 
CHAR2 



10 

ABS 
NT 
NT 
STRS 



D$& 



NT 
RD2 
FI 
NT 



NEXT 
GO 



HY 
FOR 

fIor 

2 

NEXT 
NEXT 



3090 



THEN 
PS+110 
3180 

IGCHAR 



L<L 



NT 



NT 



NT 



NT 



TO 



TO 



CHAR2 
3180 
105+PS 



VCHAR 
SOUND 



&D$ 



3310 



1 = 



D$ 



LE 



TY 



) 

SLIOPE 



CLEAR 



#F 



(QW( 
LEoO 



4230 
CLEAR 
3630 



540 



) + ( 



THEN 



STRS 



F 

1810 

TO 
TO 



145 
108 



THEN 



THEN 
&SEG$ 



TO 



TO 



THEN 



TO 



THEN 



LE 



10 



X 
100 



N1 



LE 
N/HR 



FT 



LE 



LE 



EQUI 



PRESS 



LE 



3120 



THEN 



DTH 



THEN 

) + { 



N2 



HY 
TAB 



990+PS 



CHAR 
220 



<> 



3400 
3350 



3390 

(STRS 



GI 
) = 
DU 



FT 



ROUGHNESS 



CALCULATED 



MAX 



) 

THEN 



CHAR2 



3390 

L + FL 
3460 



ANY 



3170 

CHAR2 



3500 

DATA 



( 

VEN 



LENK3TH 
FT 

) 



+ N2 



3620 



KEY 



THEN 



FP 



PR 



DATA 



FT 



I|M|E ( MI N ) 
DI SCHAR6E 



103 



NT 



TO 



3300 



FL 



NG 



SL 
FACTlOR 



CONT 



DURAT 
WI 



CFS 



THEN 



HYDR06RA 



RD 



NUE 
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3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 



3830 

3840 
3850 
3860 
3870 

3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 

3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 

4050 
4060 

4070 

4080 

4090 
4100 



INT 



LE 
PR 

) 

CALL 

GOSUB 

GOSUB 



I 

ELSE 
CALL 
GOTO 
CALL 
TST 



CALL 
NEXT 
RETURN 
I 



FOR 
CALL 
NEXT 
RETURN 



CALL 
GOSUB 



PRI 
TAB 



FOR 
FOR 
CALL 



NEXT 
NEXT 



SC 
F 

sc|= 

FOR 
TM$l= 
CALL 



CALL 



CALL 



NEXT 



PRESS 



3$ 



2$ = 

IMAX 



KEY< 



KEY 



TST 



I + I 



ClOLlOR 
I 

TO 

ClOLjOR 
I 



CLEAR 
3720 
TAB 



SlOUND 
3760 
4230 
49 



3900 

SOUND 

3860 

SOUND 



SEGS 



1 

TlMlAX<t= 
10 
I 



STR$ 



TAB 



100 



VCHAR 



HCHAR 



HCHAR 



THEN 
[HCHAR 



CHRS 
D I 



GOTO 



BOTH 



TO 



TMS 



FOR 



200 



250 



150 



91 



SCHARGE 



21 



21 



I = 



( 

4090 
21 



KEY 



TMAX 



HYDROGRAPH 



500 
50 



666 



600 



110 



666 



&CHR$ 



TAB 



51 



25 



5 + 8 



5 + 9 



ASC 



2030 



1+5 



THEN 



GRAPH 



SC 



TMAX>99 



92 



ASC 



ASC 



ASC 



THEN 



SEGS 



THEN 



500 



4020 



&CHR$ 



DI 



SEGS 



SEGS 



SPLAY 
TAB 



SEGS 



TMS 



4070 



TAB 



3880 



TMS 
49999999 



93 



TMS 



TAB 



3S 



•0 



4110 
4120 

4130 
4140 
4150 



41 



60 



4170 
4180 

4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 

4290 



4300 
4310 
4320 

4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 

4500 
4510 



FOR 
CALL 



NEXT 



FOR 
CALL 



NEXT 



RETURN 



CALL 



RETURN 



CALL 
GOSUB 



PR 



TAB 



PR 



DVCS 



PR 



PR 



4$ 

SC 
4S 



A + 56 



INT 

SCREEN 



NTER 
GOSUB 



GOSUB 



ELSE 
CALL 
GOTO 
CALL 



DVCS 



PRI 
CALL 



ST< 



NT 



F 

CLOISE 
OPEN 
DFGS 
RETURN 
NT 



RETURN 



= 1 



KEY 



NT 



NT 



VCHAR 



llME 
TO 
VCHAR 



KEY 




CLEAR 
3720 




KEY = 



DFGS 



20 



3760 
4230 

KEY<49 
4350 
SOUND 
4310 

sIoluND 

Y 
1 



TP 



SOUND 



TO 



IME 
THEN 



RS232 



) + ( 



THEN 



(MI 



DVCS 



LEN 
+ 1 



LEN 
23 



KEY 



) + ( 



300 

NUMBER 

ENTER 



(|Mjl 
4 
N 



250 
100 



THEN 



THEN 



4170 



<> 



1+11 



4230 



ST 



THEN 

OUTPUT 



KEY>50 



2S 

ASC 



4S 



110 

666 
4460 

4420 
4440 



110 

OUTS 



10 



ASC 



SEGS 



THEN 



DEST 



DE 



SEGS 



THERMAL 



4220 



NAT 



THEN 



NORMAL 



2S 



lOlN 
1 



4S 



PR 



4330 



RANG 
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The special block graphics character sets that are built 
into some printers can be extremely useful. In the 
business world, for example, applications might in- 
clude the production of charts and graphs, the printing of 
business forms, or even the design of a letterhead. 

The following short program demonstrates how DATA 
statements are used to format selected graphics characters 
to produce a letterhead. The DATA statements here are for 
use with the Epson MX-80 printer (without the GRAF- 
TRAX option) but can be easily modified to accommodate 
any printer with similar block graphics capabilities. Keep 
in mind that this is a shell program; you can plan the DATA 
statements to direct the printer to produce virtually any 
design or pattern (within the limits of the resident block 
graphics set). The actual graphic design (the letterhead) in 
this example is unimportant; understanding how to plan and 
implement it is crucial. 

DATA statements are read sequentially from left to right, 
using the READ statement. The Epson MX-80 printer uses 
numerical codes 160 to 223 (ASCII 32 to 95 with a 1 for 
the 8th bit) to generate graphics characters already defined 
within the printer. Each graphics character is made up of 
one to six squares within a 2 x 3 matrix as indicated below. 



1 


2 


4 


8 


16 


32 



(The numbers within the squares are not important if you 
have a coding table in front of you. They represent a par- 
ticular manufacturer's coding of the matrix print head. For 
example, numerical code 165 would produce the fifth 
character in the set, and would cause wires 1 and 4 to fire; 
if we want the 21st character, wires 1, 4, and 16 would be 
fired.) 



The key part of the program lies in lines 430-470. This 
controls what will happen when a DATA statement is read. 
If the first DATA cell is a number greater than 100, that 
character will be printed. If the first DATA cell is a number 
greater than but less than 100, the program will read the 
second DATA cell, and then print it the number of times 
specified in the first DATA cell. For example, if the first 
DATA element is 8, and the next is 160 (a blank space), 
the computer will print a blank space 8 times. This lessens 
the amount of required DATA when it is necessary to repeat 
the same character several times. If the first DATA cell read 
is equal to 0, a Carriage Return will be executed. 

Regular text can be printed on the same line with the 
graphics. In this program a negative number inserted in the 
DATA statement signals the program to print the text. The 
value of the negative number designates which message is 
to be printed out. This can also be used to change the 
printer's type style, if your printer has that capability. For 
example, if you want to print a graphics pattern on the left, 
and a printed message on the right, you would place the 
negative number just before the zero that causes the Car- 
riage Return. In that case, a message will be printed— 
according to the directions in line 470— on the same line 
before the Carriage Return. 

Every time a character is printed — whether graphics, text, 
or a control character — it should always be fol- 
lowed by a semicolon. This will insure that the next printed 
character will be on the same line, until the Carriage Return 
is executed. The only exception to this is in line 610 where 
I wanted the Carriage Return to be executed. 

The following is an example of the DATA and the 
graphics line it creates. This line can be found in the 8th 
print line of the letterhead. 

270 DATA 7,160,3,223,9,160,3,223,3,160,3,223,7 
160,3,223,-4,0 



324 The Best of 99' er Volume 1 



Cop/right © 1983 Emerald Valley Publishing Co. 



3 3 3 



■ III 

In this graphics line, I first needed to put seven blank spaces 
between the first character position and the first graphics 
character. This was done with the first two DATA cells. 
When the program first READs A, its value is 7. Because 
this value is less than 100 and greater than 0, the program 
will READ B, the next DATA cell. The value of B is 160. 
ASCII (160) is a blank character on the MX-80, so the pro- 
gram will now PRINT B (blank), A (7) times. On the next 
cycle the value stored in A will be 3, and the value stored 
in B will be 223. This will cause B (whose vdue is the ASCII 
code for a solid 2x3 block) to be printed 3 times. This pro- 
cess is continued until a value less than or equal to zero is 
encountered. 

If the value in A is a negative number, the program will 
branch off to a subroutine which will PRINT a text message. 
In the above example, the value - 4 caused the message 
"FOR USERS of TI-99/4" to be printed. These subroutines 
are extremely versatile; you can change the type style, print 
a message as I have done, continue the program to do 
calculations, or run program lines. 

Note: All the data necessary for one entire print line is con- 
tained in a single DATA statement (except for lines 310-320 
and lines 330-340). This makes the program a little easier 
to debug, because you don't have the confusion of count- 
ing across statement boundaries to find character positions 
and their corresponding codes. 



EXPLANATION OF THE PROGRAM 
Line Nos. LETTERHEAD 
200-390 Contains DATA formated to print the 99'er 

Magazine letterhead. 
400 OPENS a line to the RS-232 interface for output 

to the printer. 
410 Sets the printer for "Double Strike" mode. 
420 Sets the printer for "Emphasized" mode. 
430 READs the DATA statement and stores the 

result in A. 

440 Tests A; if A is greater than 100, then PRINT 
the character stored in A. 

450 Tests A; if A is greater than and less than 
100, then READ B; PRINT B, A times. 

460 Tests A; if A is equal to zero, then do a Car- 
riage Return. This marks the end of a line. 

470 A equals a negative number at this point; 

ABS(A) controls the branching of subroutines 
for special tasks, e.g., PRINT text. 

490-500 Subroutine to execute the Carriage Return. 

510-520 Subroutine to PRINT the value in A. 

530-570 Subroutine to READ B, and PRINT B, A 
times. 

580-710 Subroutine to print normal text instead of 
graphics. 

720-740 End-of-print message on the screen; END of 
program. 



110 

120 
130 
140 
150 
160 
170 
180 
190 
200 



21 , 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DATA 



10 



99 ' ER 
LETTERHEAD 



223 



160 



10 



223 



60 



223 



210 
220 
230 



240 



250 



260 



270 



280 

290 

300 
310 



320 
330 



340 



350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 

480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 

590 
600 
610 
620 

630 
640 

650 
660 

670 
680 

690 
700 
710 
720 
730 
740 



DATA 
1 

DATA 



DATA 



6 
23 

DATA 
23 
167 

DATA 



2 


DATA 



DATA 



DATA 



DATA 



DATA 
DATA 



192 

DATA 



96 



DATA 



160 

DATA 



1 
81 

DATA 
DATA 
DATA 
DATA 
DATA 
OPEN 



PR 



GOTO 



PR 



PR 



UBL 



PR 



PR 



PR 



PR 



166 



172 



60 
160 



READ 



680 

GIOTO 



GOTO 
READ 



FOR 
PR 
NEXT 
GOTO 



CLOSE 
END 



160 



160 



2 
7 

223 



223 



223 



223 



223 



160 



INT 



I NT 



RETURN 



INT 



RETURN 



97405 

RETURN 



PR 
99 
RETURN 



RETURN 



RETURN 



NT 



RETURN 



166 
165 



189 
2 



NT 



A>0 
A 
ABS 



NT 



NT 



NT 



NT 



BASED 



NT 



NT 



160 
10 
160 
1 



25 
172 



1 

192 



A>1O0 



SYSTEMS 



700 
430 

«1 
430 

«1 
430 

1 

#1 

X 
430 



SHIN6 



223 



223 



223 



63 
160 



160 



160 



160 



160 



181 
1 



215 






#1 



#1 



#1 



223 
2 



72 



223 



223 



223 
216 



160 



160 



160 



160 



160 

60 
2 
96 
160 



60 
181 



218 



THEN 
THEN 



TO 



TAB 



2 

223 

3 



160 



181 



211 



RS232 

CHRS 

CHRS 



THEN 



)|G0SUB 
720 



CHRS 



CHRS 



TAB 
CO 

TAB 

TAB 



TAB 



TAB 



TAB 



183 
160 



181 



160 
160 
160 



160 



223 



223 



223 



223 



223 



162 



208 



530 
490 



DONE 



160 



160 



160 



25 



41 



41 



41 



63 



2 

160 
223 



223 



9 

223 



9 

2 23 



9 
223 



223 



183 



160 



209 



510 



180 
183 



162 



580 



WI 



2 

203 



220 
160 



223 
62 



160 


60 

4 

60 

-15 
160 



213 



223 



223 
8 



160 
2 



FOR 



AND 



182 



163 
1 



1 

160 



180 



9600 

"G 



600 



. 



223 



223 



223 



160 



181 



EMERALD 



EUGENE 



63 



63 



208 



PERSONAL 



223 



63 



211 



DA 



181 



211 



181 



620 



BOX 



USERS 



OTHER 



LETTER 



160 



160 



160 



223 



223 



223 



223 



223 



60 
165 



165 



210 



62 



2 

160 

60 
192 



3 

223 



208 



160 
1 



160 
181 



PA 



640 



183 




196 



VALLEY 

5537 

bREGON 



OF 



THS990 



COMPUTE 



HEAD 



223 
223 

223 

2 . 2 

2 , 2 
222 



60 
61 

60 

60 

60 



160 



60 



176 



1 

18 



660 
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Using Bit-Plot 
Printer Graphics 
with a TI-99/4A 



With TI's 99/4 Impact Printer, we can explore the 
world of bit plot printer graphics. The following 
program will also work with other printers (Ep- 
son's MX-80 with the Graftrax-80 option, for instance) when 
suitable modifications are made to the program. 

Bit-Plot Graphics 

In bit-image mode, the printer produces in one dot- 
column a character which may have any combination of 
the eight dots in the printhead. This makes it possible to 
duplicate exactly the 8 x 8 pixel graphics characters of the 
TI-99/4 and TI 99/4A by printing 8 columns of up to 8 
dots on the printer. The printer dots are turned on in ac- 
cordance with a binary format. For example, sending 
CHR$(0) to the printer will produce a blank space, one dot- 
column wide; CHR$(1) will print only the bottom dot; 
CHR$(7) will print the bottom three dots, CHR$(255) will 
print all 8 dots, and so forth (see Figure 1). Under software 
control you may select either 480 or 960 dot-per-line resolu- 
tion. This means that to print a full line in the 960 dot mode 



Figure 1 . 



ASCII 64-f16-80 



ASCII 32*2 'M 



128 


64 


32 


16 


8 


4 


2 


1 





1 





1 




















1 











1 





B7 


BS 


BS 


B4 


B3 


B2 


B1 


BO 





B7>0 




B7-0 


fiV 


• 


B6-1 




BS-0 


• 




B5-0 


• 


BS-1 


• 


• 


B4-1 




B4-0 


• 




B3>0 




B3-0 


• 




B2-0 




B2-0 


• 




B1-0 


• 


B1-1 


• 




BO-0 




BO-0 


• 



>50-80Dec. >22 - 34D(e. 



input data 



Note: In the Bit binsuaga mod*, 
tlx 9th dot wirs cannot ba und. 



you would have to print a dot-column character 960 times. 
The following program, for example, would print a line with 
only the bottom dot "on" across the entire page width: 

10 FOR X = 1 TO 960 
20 PRINT #1: CHR$(1) 
30 NEXT X 
40 END 

In the 960 mode, the line would appear solid with no space 
between the dots. In the 480 mode, the line would have small 
but visible spaces between the dots. 



(Note: There are two options in ttie 960 mode: the first at half the speed 
of the 480 mode, and the second at the same speed. This second mode 
may only be used by high-speed Assembly Language driver routines. 
BASIC Interpreters are too slow in execution to print in this mode. If 
you try this mode using Extended BASIC you will lose many of the dots 
on each line. When you use this high-speed mode, there is still another 
restriction: The same needle may not be struck twice In a row because 
the needles take 2 microseconds to hit and return to seat. Printing at 
480 speed, the print head passes over a dot portion eveiy microsecond. 
For this reason It is Impossible to strike the same needle twice in a 
row at this high speed. If you attempt a second stike, the printer will 
automatically toss away the second consecutive dot. The printer will 
also print bi-directionally in this mode. It should be noted that there 
is some misalignment between passes of the printhead from opposite 
directions. This will vary from printer to printer and must be compen- 
sated for with computer software.— Ed.] 



To leave the TI-99/4's standard text mode and enter the 
bit-image graphics mode, you must first send CHR$(27); 
"L" or "K"; CHR$(X); CHR(Y); to the printer. The 
ESCape "K" code will assign the 480 mode to the printer; 
"L" will assign it the 960 mode. You must then tell the 
printer how many graphics columns or characters are to be 
printed. This is done with CHR$(X);CHR$(Y) where 
< X < 255, and < Y < 3, The number of columns of dots 
or characters to follow is equal to (Y*256) + X. 

The only problem I have encountered with this conven- 
tion is a difficulty with intermixing graphics and standard 
characters on the same line without complicated program- 
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ming and file structures. The simplest method is to store 
a CHR$(X) in a file or data statement and then print 
CHR$(X) for each dot column across the page. This may 
be time consuming and require more disk, tape or data 
space, but it allows for the least complicated program [and 
consequently is the simplest way to get you started using 
this versatile graphics mode. — Ed.] 

To program the graphics you must know how to format 
the OPEN statement. First, you must tell the RS232 port 
to output 8 bits instead of 7; then tell it to supress the 
automatic carriage return and linefeed with the .CRLF soft- 
ware switch. The statement in line 560 will read: 

OPEN #3: "RS232.BA = 9600.DA = 8.CRLF" 

[If you have the Epson MX-80 with the Graftrax-80 op- 
tion, it will read: 

OPEN #3: 
"RS232.BA = 9600.DA = 8.PA = N.CRLF".— Ed.] 

The Program 

There are three main sections in the program. The first 
part is a disk initialization subroutine. This routine will open 
a file on a blank disk with the following parameters: 
RELATIVE— random access of file records, and 
INTERNAL.FIXED 24— a fixed record length of 24 to 
store 12 CHAR$(X) values or 12 dot-columns of 
information. 

It is possible to store up to 3570 such records on one 5 Va " 
single-density disk. The process of initialization is therefore 
very slow and takes about half an hour. The initialization 
program will open the file and print CHR$(0) to all records. 
This helps speed file building in the second section of the 
program. When a large clear space on the paper is required, 
you do not need to enter all these zeros. 

The second section of the program is a form of "word 
processor," only here it is designed to handle numbers from 
to 255. The program works with 20 file records at a time 
(240 character variables). Each group of 240 variables will 
be called one created line. The present line being worked 
on is displayed at the top of the screen. The next value 
displayed is the position in that line, from 1 to 240. Below 
the position indicator, the present CHR$ value at that posi- 
tion is displayed. Below that, the computer asks you for 
the new value— from to 255— that you want to assign to 
that position. Several single-keystroke commands are 
available to help you manipulate the data. If you merely 
press ENTER without touching any other key, the value 
of will be assigned to the position indicated. The follow- 
ing is a list of commands and their explanations: 

P— prints one line of data (240 dot positions of the line 
you are presently working on). 

L— lists all 240 variables on the screen for inspection. 

N — ^lets you jump to a new line number and position — a 
process that would take too long with the arrow keys 
alone (below). Screen prompts will guide you. If you 
just hit ENTER, the program will default to the cur- 
rent line number or position without changing 
anything. 

E — decrements the line number by 1. 
X — ^increments the line number by 1. 
S — decrements the position in a line by 1 
D— increments the position in a line by 1 . 
Z— returns the user to the main menu screen. 



After you enter a valid numeric value and press ENTER, 
the position in the line will automatically increment by 1 
to the next record. After you enter the 240th record of the 
line, the previous line number will increment to the next line, 
and the position will return to number 1 . The previous line 
will also be automatically stored on disk. (Note: Any time 
you change line numbers, the current line will also 
automatically go into disk storage. If you plan to exit to 
the main menu or to turn off the system, you should first 
go to any other line so that the data are stored; otherwise 
the data on that line will be lost.) 

The final part of the program is the routine that prints 
your graphics. There are several options in this section. First 
is the option to print single density (480 dots per line) or 
double density (960 dots per line). 

The second option is the line width: A line width of 240 
will print one of the created lines in the create-file section, 
(240 dots); a line width of 480 will print 2 of your created 
lines according to the chosen parameters. 

The last option is the number of lines you want printed: 
You should specify the actual number of lines to appear 
on the paper, not necessarily the number of created lines. 
For example, if you want to print 5 lines with 480 width, 
you will actually be printing 10 created lines. 

Print "created lines" 1 

Line I [_ 



1 — Line Line 1 | | 

2 - Line 2 Line 3 I I ^ printer lines 

3 - Line 4 Line 5 I J = 10 "created lines" 

4 - Lines Line 7 j i @ 480 width 

5 - Lines Line 9 \ ] 



1 - Line Line 1 Line 2 | 3 printer lines 

2 - Line 3 Line 4 Line 5 > = 9 "created lines" 

3 - Line 6 Line 7 Line 8 \ @ 720 width ^ 



EXPLANATION OF THE PROGRAM 




DOTS TO PLOTS 


Line Nos. 




100-170 


REM. 


180-190 


Initializes variables and arrays. 


210-290 


Data statement. 


300 


Subroutine to read data and display. 


310 


Subroutine to read data, display and accept 




input. 


320 


Reads data only. 


330 


Initializes colors. 


340-380 


Checks for proper disk in drive #1. 


390-400 


Opens file #2 on disk #L 


410 


Clears screen with left to right scroll. 


420-430 


Controls subroutine to check for proper disk in 




drive #1. 


440 


Reads multiple data statements and display. 


450-470 


Inputs record from disk #1. 


480-500 


Prints record on disk #1. 


510-550 


Improper disk in drive #1 message; option to try 




again. 


560 


Opens a port to the printer if not already open. 


570 


Prints title page. 


580 


Prints option page and Input option. 


590 


Checks input limits on option. 


600 


Branches to subroutines. 


610-1120 


Creates file subroutines. 


610 


Checks for proper disk in drive HI. 


620 


Initializes variables. 


630 


Branches to subroutines. 


640-690 


Inputs option for density (480 or 960). ^ 

Continued 
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EXPLANATION Continued 

700 Clears screen. Inputs first record. 

710-720 Displays record variables. 
730 Inputs new value or command. 

740-830 Checks for a command input and does 
necessary logic. 

840-860 Checks that all characters in the new value are 
numeric. 

870-920 Assigns new value to array; advances to next 
line position, and checks for end of line. 

940-970 Subroutine to enter new line number and new 
position. 

980-1030 Subroutine to print one line (CHR$(X) = 240). 
1040-1110 Subroutine to display array contents on the 
screen. 

1 1 10 Subroutine to convert the input string into 

ASCII form and store it in the array. 
1 120 Subroutine to re-convert the array into a string 

for output to the disk. 
1130-1270 Subroutine to print entire graphics page from 

information stored on disk. 
1130 Checks for file on disk. 

1 140 Inputs density (480, 960). 

1150-1160 Inputs width of graphics in dot columns. 
1170-1180 Inputs number of lines to be printed. 
1190-1270 Prints file from disk onto the printer in the 

form of bit-image graphics. 
1280-1340 Initializes a new disk with all CHR$(0); will 

destroy any records stored on that file. 
1350 Closes files and ends. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 

220 



250 
240 
250 
260 
270 

280 
290 

300 

310 



320 
330 



340 

350 
360 

370 

380 
390 



400 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

0P2 

DIM 

GOTO 

DATA 

INES 

DATA 



ELD 

NI 
DATA 
DATA 
DATA 
DATA 
DATA 



SK 



DATA 
DATA 

12 
READ 

AS 
READ 

A$ 
ANSS 
READ 
CALL 
ALL 
N 

OPEN 
INPUT 
INPUT 
INPUT 



11 



AS 

90 ELSE 
RESTORE 
IF 0P2= 
&ANSS 
0P2 
RETURN 



1 

5 
I AL 
1 
1 

23 
20 



12 
570 



DOTS 



I 
5 
9 

I 
• 

5 

NlOT 



COLOR 



#1 



|0P3 
20 



DOTS 



MENU 



ZE 



SCREEN 



AS 
AS 
GlOTlO 
ANSS 



CREATE 



A2 



A 2 



A2 



13 



RETURN 



ACCEPT 
RETURN 



I 

260 

THEN 
RELAT 



TO 



PR 



NEW 



DSK1 



NT 



YlOUR 
LE 
PLACE 
BLANK 
PRESS 
NEW 



AS 



510 

THEN 
AS 



PLOTS 



TO 



NT 



<> 



DATA 
CHOI 
NOT 



AT 



VE 



DATA 



PLOTS 



DATA 
9 

3 



SK 



NE 



GOSUB 



ENTER 



FOR 



RELAT 



CLOSE 



CE? 
ON 
I 



AS 



RETURN 
A 

NEXT 



THEN 



CREATE 



SPLAY 



SPLAY 



300 

OPEN 
INTERNAL 



DI 



ELD 



SK 
DSK1 



TO 



A2+LEN 



VE 



#1 



ELD 
4 



540 



EXI 



LE 



NElWl 
AT 



AT 



TO 



THEN 



SUBROUT 



DATA 



AS 



T 

NAME? 



CONTINUE 



NTERNAL 



XED 



1+1 



CLOSE 

GjOTO 

RETURN 
DSK1 



PlOS 
A 2 



C 

RETUR 



DI 



A2 



24 



410 

420 
430 
440 



450 
460 

470 
480 
490 

500 
510 



520 

530 
540 

550 

560 

570 

580 

590 

600 

610 

620 
630 
640 

650 
660 

670 
680 
690 
700 
710 

720 



730 
740 

750 



760 
770 



780 



NPUT 
10 
NEXT 
FOR X 
GOSUB 
@S 
NEXT 



CALL 
1 ,99 



GOSUB 
300 

RESTIORE 



310 

FOR 



DI 



RETURN 



FIOR 
I 



I 

LSE 



0P3 
GOSUB 
210 

280 
GlOSUB 

GOSUB 

310 



RETURN 
410 



AGA 
VAL 



NOT 



0P3 
RS232 



I 

HEN 
PI 



SPLAY 



SPLAY 



I 
I 

ANS 



SPLAY 



GOSUB 



ION 



720 

GOSUB 



PG 



PG 



DI 
I 

DI 
ACCEPT 



I 

D 

RETURN 
GOSUB 



ACCEPT 



ELSE 



COLlOR 
96 



T1 



iGlOTiO 
1 

BA 



VAL 



GOSUB 




SPLAY 
NE? 
SPLAY 



VAL 



SPLAY 



SPLAY 



NVS 

P 
PI 



Y 

THEN 
PRESENT 



NVS 

gIotio 
P1> 
P1=1 

NV$ = 



RESTORE 
240 



idOSUB 

1 



TO 
1120 



THEN 
SPLAY 



N? 
DATE 



330 

T 



410 
440 



ASC( ANSS 
RESTIORE 
590 



PI 



TP 
AT 



AT 



2 

IGIOSUB 



390 



PI 



AT 



450 



TO 



AT 



410 

AT 



GOTO 



REC 



I 

520 
THEN 
9600 



RETURN 



ANSS 



( 
( 

5 

THEN 



CALL 



RETURN 
20 

PR 



RETURN 



IGOSUB 
300 
1 

AT 



P 
P1< 
20 



720 
20 



20 



AT 

1 

/ 
YN 
THEN 
DI 



GOSUB 



DA 

iGpSUB 
GOSUB 



250 



OLD 



RESTORE 



340 

A2 



310 

RESTORE 
RESTORE 



)GOTO 



THEN 



THEN 



280 

GOSUB 



RETURN 
8 



48 



12 + P 

12 
THEN 
GOTO 



12 



GOSUB 
AND L>0 

GOSUB 
720 



20 + X 



ANS 
340 

SPLAY 



VAL 



GOSUB 



G|OT|0 
I 



ELSE 



VCHAR 



READ 
AS 



GOTO 



410 

gIosub 
PI 

GbSUB 



THEN 



NT 



DO 



DI 



OR 



L 

VALUE 



NVS 



610 



770 



GOSUB 



iGlOSUB 
450 



«2 



390 

DI 



SK 



410 



WHAT 



DI 



720 



720 



P1 = 



CALL 



270 

GOSUB 
320 

RETURN 



YOU 



ELSE 



AT 



PA 



440 



ASC 



GOSUB 



640 



DATE 



450 

INE 



THEN 
450 



A1 



ACCEPT 



ELSE 



220 



480 



ELSE 



520 



250 



DI 



GIOSUB 
450 



12 



A2 
NEXT 



REC 



SK 



WI 



1130 



SPLAY 



ELSE 



P1+1 
480 



RESTIORE 
420 



DENS 



VCHAR 



GOSUB 



20 + X 



RETURN 



1350 

) 



NOT 



OPEN 
CRLF 

RESTbRE 

restIore 

5 

kSlOSUB 



ANSS 
310 



SPLAY 



32 



SH 



THEN 



GOTO 
lojoSUB 
PI 



672 

GOSUB 
310 
GOSUB 

AS 
T1 



THEN 
480 



1280 



GOTO 



TY 



NEW 



AT 



BLANK 



BLANK 



55 



230 



960 

DS 



P>1 



GOTO 



POS 



720 
480 



11 



LE 



TH 
GIOT 



135 



700 

PER 



VAL 
3 

12 



720 

L 



PH-I 
1 

L|+1 
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790 

see 

810 

820 
830 

840 
850 

860 
870 
880 

890 
900 
910 



920 
930 
940 



950 

960 
970 

980 

990 
1000 

1010 



1020 
1030 
1040 



1050 
1060 



980 

F 



710 

F 



FOR 



E6$ 
NEXT 
I 

NV|= 
EN 
Z 
P 
I 



F 

300 



P + 1 



240 



PR 



FOR 



PR 



PR 



TB 



NVS 



NVS 



NVS 



N?S = 



( 

NVS 
TL 
NVS = 



VAL 
720 
PI 



P>12 



AND 



20 

L + 1 
GjOTlO 
720 



GOSUB 



GiOSUB 
PI 



CHRS 

( 

NEXT 
CLOSE 



LN 
GIOSUB 
FOR 



NVS 



TL 
ASC 
( 



VAL 



GOTO 
REM 

RESTlORE 
S 

L 

( 
I 



THEN 



12 

INT 



CHRS 



= 1 



ANSS 



NL 



NT 



NT 



LN 
19 



NVS 



NV 



L + 1 
GOTlO 



GOTO 



Z 
N 

IGOSUB 



TO 
SElGS 
TL 



THEN 



THEN 



410 

LN 



P1 
L<100 
GlOSUB 
720 



290 



189 



310 

12|+P 

lpIos 

NE 

LPlOS 
480 
llNT 
PI 
3 



CHRS 



ELSE 



TO 



10 



LN 



AND 



THEN 



THEN 
THEN 



THEN 

) 



ANSS 



TO 



THEN 



LEN 
NVS 



NL 



( 

20 ) 
CHRS 



CHRS 



CHRS 



VAL 
D 



20 



L<100 
GlOSUB 
720 
EN 
720 



300 

NVS 



0P3 



TL 
57 



NVS 



450 



NE 

< 

I 

ELSE 



GOTO 



NL 

LPlOS + l 



GOSUB 
GOSUB 

580 

IGOSUB 



12 
27 



20 



NV< 
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THEN 
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OR 
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( 

CHRS 



RETURN 
I 



) 

THEN 



GlOSUB 
L 
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NL 



CHRS 
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I NE 



DS 



450 



560 
1040 
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GlOSUB 
PI 
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THEN 
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GOTO 



ELSE 



GOSUB 
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THEN 
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CHRS 



11 
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CHRS 



CHRS 
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GOSUB 
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OR 
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THEN 
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GOTlO 
OR 



GjOSUB 
P 



GOSUB 



I 
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NL I 
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GOSUB 
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X 
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F 
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ELSE 
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1176 

1180 
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1250 
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1270 
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1300 
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1320 
1330 

1340 

1350 
1360 
1370 



FOR Xh 
Z 

TB 
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RS 
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GlOSUB 
I 
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SPLAY 
I 
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I 
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Personal 
Record Keeping 

Managing a Mobile Home Park 



F 



irst of all, this true story has a moral to it, so we 
might as well get it out of the way now: 



"Before going to all the work of 
writing a program to do a job, 
find out if a Tl Command 
Cartridge can do tlie job for you." 

The TI Command Cartridges are well written, almost 
totally error-free, and have been engineered for ease of 
use by non-programmers. Let's talk about one of these 
little jewels: 

The Personal Record Keeping (PRK) Command Car- 
tridge, when combined with your imagination, is a very 
flexible and powerful tool. In order to fully utilize this 
power, however, your TI-99/4A system should include 
a printer. The TI Thermal Printer works well and is prob- 
ably the easiest and least expensive to use, but I chose 
a more expensive route: an Epson MX-80 printer 
operating through the RS232 Interface. This gives me a 
bit more power (e.g., longer print lines) for the PRK*s 
report formating. For most applications, you will also 
need either a cassette recorder or disk system to store your 
data files. 

Before trying to set up and work with a data file using 
the PRK, you should carefully read the manual and all 
the examples that come with the cartridge. When you 
have done that, take a break, come back a little later, 
and do it again. That mild-mannered little PRK manual 
contains the answers to questions that will surely pop up 
when you start designing the solution to your problem. 
So keep it handy! 

OK, now comes the real challenge. How do we decide 
that a problem can be solved using the PRK cartridge? 
First, we must completely describe the problem. Second, 
we must break the problem down into subproblems or 
tasks. Third, we identify the tasks that can be performed 
by the PRK cartridge. Fourth, we see if enough of the 
tasks can be handled by the PRK cartridge to make its 
use a reasonable solution to the overall problem. The rest 
of this article is about such a challenge and a way to solve 
it with the PRK cartridge. 

And Now For Our Story . . . 

Recently I had a customer ask me how much I would 
charge to write a program for him. I told him that it is 



difficult to determine until the program is completed, but 
he could figure on $15.00 per hour for a minimum of 
10 hours. At that point, he decided to be brave and tackle 
the program himself. Of course, I was curious, so I ask- 
ed him what he wanted the TI BASIC program to do. 

He told me that he was the owner of a mobile home 
park. Each month he had to figure out the bill for each 
individual renter in the park. He wanted the TI-99/4A 
to save him time and decrease the chance for errors. After 
thinking over this problem for a minute, I asked him for 
details: What did he do to accomplish the job himself? 

First, he walked around to each trailer space and copied 
the electric meter and gas meter readings into his 
notebook. A computer system could be designed to do 
this task but it would take extremely expensive peripheral 
hardware. . . 

When I asked him what else was in the notebook that 
he used for this job, he said that it contained all the 
previous electric and gas meter readings. It also contained 
miscellaneous charges for each renter, the electric and gas 
rates, and the actual space rental fees. At this point it 
was obvious to me that the computer could easily act as 
a notebook and store all that data on cassette tape or flop- 
py disk. 

Next, he sat down at his desk with the notebook, pen- 
cil, paper and a calculator. For each trailer space, he per- 
formed the following calculations: 

GAS BILL = (CUR. GAS METER - PREV. GAS METER) x GAS RATE 
+ GAS METER USE FEE 
ELECTRIC BILL = (CUR. KWH METER - PREV. KWH METER) x KWH RATE 
+ KWH METER USE FEE 
TOTAL BILL = GAS BILL + ELECTRIC BILL + MISC. CHARGES 
+ SPACE RENTAL FEE 

He recorded each of the items in the notebook for 
bookkeeping purposes, and then made out a statement 
for each tenant. Finally, he figured the total gas bill, the 
total electric bill, and the total income for the trailer park. 
Of course, the computer could also record all the bill 
items, perform the calculations, and make out statements. 

After reading the PRK manual a couple of times, I 
noted it offered the following capabilities: 

1. Maintains files of data in a structured fashion. 

2. Allows data additions and updates within the files. 

3. Permits mathematical operations on any numerical 
data structure or between numerical data structures. 
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4. Permits all data structures to be sorted in various ways. 

5. Permits printing of data structures as reports, lists or 
what have you. 

After further consideration, I decided that most of the 
tasks related to the "trailer park monthly billing pro- 
blem" could be solved using the TI-99/4A with the PRK 
cartridge and a printer. 

With my TI-99/4A fired up, PRK cartridge installed, 
and manual in hand, 1 started toying around, setting up 
the data structure of the file to use on this problem. I 
finally settled on the structure shown in Table 1. 



Once a structure has been defined, you can't go back 
and change it without redefining the entire file structure. 
In order to minimize this problem, the best policy to 
follow is to try out the file structure with a small amount 
of test data. It is a real pain to spend 4 hours entering 
real data into a file and then discover that one oddball 
piece of data is too big! By the way, the smaller you define 
the width of a data item, the more data items you can 
keep in memory. As you can see, some care must be given 
to the design of the file structure. 

Look at Table 2. It shows my three sample file "pages" 
of test data. This is the way the data would look after 
putting in the initial values. Now look at Table 3. The 
current utility meter readings and any miscellaneous 
charges have now been entered as the trailer park operator 
would do once a month. 



At this point, I realized I had to figure out how to use 
the PRK cartridge's math transformations. That sounds 
pretty ominous, doesn't it? But study of the manual 
revealed that it is nothing more than a set of simple equa- 
tion templates. These are shown on page 25 of the PRK 
manual and included here in Table 4. By substituting an 
item name for the appropriate A, B, or C in the equa- 
tions, I built up a set of math transformations to figure 
out the electric, gas, and total bills. The PRK cartridge 
guides you through this process nicely. The tailored set 
of math transformations is shown in Table 5 (in the order 
of execution). 

Notice that the tailored math transformations set up 
the next month's LAST GAS, CUR. GAS, LAST KWH, 
CUR. KWH item fields after the current data was used. 
This means that next month the user won't have to worry 
about moving the old "current" values to the "last" 
fields for the next month too. (That ought to get your 
imagination working!) 

Now for the big test: Run the tailored math transfor- 
mations on the file of test data and see if it works. The 
results are shown in Table 6. It is interesting to compare 
Table 6 to Table 3. The comparison better illustrates the 
work of these tailored equation templates. 

With all the real data in the file, it takes about half 
an hour to a full hour to process all the math. Sure, that 
is slow, but it is accurafe— and the manager can be eating 
dinner while the PRK cartridge processes the data. After 
dinner, he can start the PRK cartridge printing out a 
report for each file page, as shown in Table 6. Finally, 
after a nice relaxed dessert or brandy, he can cut apart 
the pages of the report and tape them in the appropriate 
spot of the form shown in Figure I . There is a separate 
form page for each space in the trailer park. By using 
tape only at the top of the little PRK page, he can flip 
through previous month's data (since the little pages are 
overlapping). 

An Automatic Manual Feature 

By using the ANALYZE PAGES mode of the PRK 
cartridge, you can read the total gas, electric, and monthly 
income. After selecting the mode, select 5 SEE ITEM 
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FILEt RENTALS 
DATE I 6/20/81 
TITLE: TABLE 2 

PAGE * 



i. SPACE * 

2. RENTER 

3. LAST GAS 

4. CUR. GAS 

5. GAS RATE 

6. LAST KWH 

7. CUR. KUH 
B.RATE/kUH 
9.6.M. CHRG 

10. GAS TOTAL 

11. E.H. CHRG 

12. ELEC.T0TL 

13. RENT/MO. 

14. HISC.CHRG 

15. HO. TOTAL 



A-23 

SMITH>C.W. 
799972.465 
0.000 
.1130 

128176.263 
0.000 
.0231 
2.50 
0.00 
5.00 
0.00 
98.00 
0.00 
0.00 



PAGE # 

~ITSPACE t 

2. RENTER 

3. LAST GAS 

4. CUR. GAS 

5. GAS RATE 

6. LAST KUH 

7. CUR. KUH 

8. RATE/KWH 

9. G.H. CHRG 

10. GAS TOTAL 

11. E.M. CHRG 

12. ELEC.T0TL 

13. RENT/MO. 

14. HISC,CHRG 

15. MO. TOTAL 



B~44 

JONES, SAH 

830.592 

0.000 

.1130 

18841 .212 

0.000 

.0231 

2.50 

0.00 

5. 00 

0.00 

105.00 

0.00 

0.00 



PAGE * 

"iTsPACE * 

2. RENTER 

3. LAST GAS 

4. CUR. GAS 

5. GAS RATE 

6. LAST KWH 

7. CUR. KUH 

8. RATE/KWH 

9. G.M. CHRG 

10. GAS TOTAL 

11. E.H. CHRG 

12. ELEC.T0TL 

13. RENT/MO. 

14. HISC.CHRG 

15. MO. TOTAL 



B-45 

HEIM, WILLIAM 
990498.328 
0.000 
. 1130 

130392.249 
0.000 
. 0231 
2.50 
. 00 
5. 00 
0.00 
105. 00 
0. 00 
0.00 



TABLE 2 
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FILE) RENTALS 
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PAGE * 
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1 . SPACE # 


— 

A-23 
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1. SP ACE # 


Ei-44 


1. SPACE * 


B~4S 


2 . RENT ER 


SMITH,C. W. 


2. RENTER 


JONES, SAM 


2. RENTER 


HEIM, WILLIAM 
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799992. 463 


3. LAST GAS 
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3. LAST GAS 


990498.320 


4 . CUR . GAS 
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990674.998 




. 1130 


5. GAS RATE 


.1130 


5. GAS RATE 


. 1130 


6 . LAST KWH 


128176.263 


6. LAST KWH 


18841 .212 


6. LAST KUH 


130392.249 


/ . CUK . KWH 


1310 02 . 097 


7. CUR. KWH 


23622.609 


7. CUR. KUH 


134305.045 


B.RATE/KUH 


. 0231 


8.RATE/KWH 


.0231 


B,RATE/KWH 


.0231 


9.G.M. CHRG 


2.50 


9.G.M. CHRG 


2,50 


9.G.M. CHRG 


2.50 


10. GAS TOTAL 


0.00 


10. GAS TOTAL 


0,00 


10. GAS TOTAL 


0.00 


ll.E.M. CHRG 


5.00 


ll.E.M. CHRG 


5.00 


ll.E.M. CHRG 


5 . 00 


12.ELEC.T0TL 


0.00 


12.ELEC.T0TL 


0, 00 


12,ELEC.T0rL 


0,00 


13. RENT/MO. 


98. 00 


13. RENT/MO. 


105, 00 


13. RENT/MO. 


105.00 


14. MISC. CHRG 


. 00 


14. MISC. CHRG 


» 17.50 


14. MISC. CHRG 


b.oo 


IS. MO. TOTAL 


0.00 


IS. MO. TOTAL 


0.00 


15. MO. TOTAL 


0.0 


TABLE 3 













ITEM TRANSFORMATIONS 

1. A - B 

2. A a B •>■ C 

3. A » B - C 

4. A - B X C 

5. A » B / C 
8. A a B*C 

7. A » ABS(B) 

8. A = LOG 10(B) 

9. A o LOGEIB) 

10. A = EXP(B) 

11. A • ATAN(B) 

12. A - TAN(B) 

13. A - SIN(BI 

14. A - COS(B) 

15. A a INT(B) 

16. A a SGN(B} 

17. A a PI 

18. A a RND 

(See the User's Reference Guide for a 
discussion of these functions.) 



TABLE 4 



TAILORED MATH TRANSFORMATIONS FOR TRAILER PARK SILLING 

LAST CAS a CUR . GAS - LAST CAS 
GAS TOTAL = LAST CAS X GA.<-j RATE 
GAS TOTAL = G.M. CHRG + GAS TOTAL 

LAST CAS a CUR . GAS 

CUR. CAS a 0.000 

LAST KWH a CUR, KWH - LAST KUH 
ELEC.TOTL = LAST KWH X i^ATE/KUH 

ELEC.TOTL = E.M. CHRG + ELEC.TOTL 

LAST KUH a CUR. KUH 

CUR. KUH = 0.0 00 

MO. TOTAL a GAS TOI.^L ♦ ELEC.TOTL 

MO. TOTAL a MO. TOTAL »■ RENT/MO. 
MO. TOTAL = MO. TOTAL MISC. CHRG 



TABLE 5 



FILE I RENTALS 
DATE I 6/20/81 
TITLE I TABLE 6 



PAGE ♦ 


1 


PAGE * 


1. SPACE * 


A-23 


"iTsPACE ♦ 


2. RENTER 


SMITH, C.W. 


2. RENTER 


3. LAST GAS 


800124.732 


3. LAST GAS 


4. CUR. GAS 


. 000 


4. CUR. GAS 


5. GAS RATE 


. 1130 


5. GAS RATE 


6. LAST KWH 


131002. 097 


6, LAST KUH 


7, CUR, KWH 


. 000 


7. CUR. KWH 


8,RATE/KWH 


. 0231 


U.RATE/KWH 


9. G.M. CHRG 


2. 50 


9. G.M. CHRG 


10. GAS TOTAL 


17.45 


10. GAS TOTAL 


ll.E.M. CHRG 


5.00 


ll.E.M. CHRG 


12. ELEC.TOTL 


70,28 


12. ELEC.TOTL 


13. RENT/MO. 


98. 00 


13. RENT/MO. 


14.MISC,CHRG 


0.00 


14. MISC. CHRG 


15, MO. TOTAL 


185.72 


15. MO. TOTAL 



TABLE 6 
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PAGE * 
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B-44 


TTSPACE ♦ 


£1-45 


JONES, SAM 


2. RENTER 


HEIM, WILLIAM 


891 .947 


3. LAST GAS 


990674.990 


0.000 
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. 000 


. 1130 
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2.50 
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2.50 


9.43 


10. GAS TOTAL 


22.46 


5.00 


ll.E.M. CHRG 


5.00 


115.45 


12. ELEC.TOTL 


95.39 


105. 00 


13. RENT/MO. 


105. 00 


17.50 


14. MISC. CHRG 


. 00 


247.38 


15. MO. TOTAL 


222 , 8S 
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STATISTICS. Then choose an item— such as GAS 
TOTAL— and a display like Figure 2 will appear. The 
gas total for the entire trailer park is contained in the 
value of SUM. See what reading the manual reveals to 
you. 

Before getting out of the PRK cartridge, you must save 
the data file on cassette tape or floppy disk for next time. 
Yes, the math transformations are also saved 
automatically at the same time. 



Well, that's the story. I guess the only thing to add is 
that the Personal Record Keeping Command Cartridge 
isn't the solution to all problems. But if you study it and 
experiment enough, you will be ready to wield this 
valuable and flexible tool when the appropriate situation 
arises. So go ahead — give the cartridge a try. I'll bet that 
soon you too will be witnessing a "Command" 
performance. 



MOB I LE HOME F=»«RK MOIM-rMl_.Y RECORD 
8p 



:■ nurabar , 



.... 



Dmc 

Nov 
Oct 
S«p 

Aug 
Jul 
Jun 
May 
Apr 
Mar 
Fab 
Jan 
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0.000 
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8.RATE/KUH 


. 0231 
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iO.GAS TOTAL 


17. 4S 
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70 .28 


13. RENT/MO. 


98. 00 


14. MISC. CHRG 


. 00 


-15. MO. TOTAL 


185.72 
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Figure 1 . 
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= 49.34 
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Figure 2. 
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The Small Investor 
& the TI-99/4A 

A LOOK AT THE 
DOW JONES NEWS SERVICE 



Information utilities such as The Source and MicroNet 
allow any individual with a microcomputer and 
modem to tap into a rich vein of information 
resources. These databases, however, are aimed almost 
exclusively toward the general consumer population and 
as such cannot adequately cover the needs of serious, 
small investors. That's where the Dow Jones News Ser- 
vice (DJNS) comes in: The combination of the DJNS and 
the TI-99/4A may be the most significant advance in in- 
vestment analysis since the electronic calculator made its 
debut. . . 

In addition to giving you historical stock quotes, DJNS 
gives you current-day quotes for all listed stocks, bonds, 
options and U.S. Treasury issues. The DJNS also has 
some specialized databases which you can access for in- 
formation about particular companies, market sectors or 
market indicators. 

For a comprehensive review of a stock or industry, the 
Media General database provides detailed technical and 
fundamental indicators on the item of your choice. 

The conservative investor can access the Disclosure On- 
line database for a profile on most major companies, plus 
a 10-K report that lists almost all the important (to the 
investor) information that can be found in a corporation's 
financial statement. 

The Money Market Service database is a new service 
introduced by Dow Jones in February 1981. Commen- 
tary, tables and graphs on the economy are displayed for 
most of the important indicators used in determining the 
current business climate. Of course, the ever-popular Dow 
Jones averages are also available, as are Trading Activi- 
ty, The Market Diary, Market Volume, and many other 
valuable market statistics. 

With everything there comes a price tag, and the news 
service is no exception. During the business day (6:00 a.m. 
to 7:00 P.M. EST) the charge for news is $1.20 per 
minute. After 7:00, this rate is reduced drastically! Until 
the next morning, news can be accessed for 20 cents per 
minute, and historical market quotes for 15 cents. The 
start-up fee for the service is $50, but there are no month- 



ly charges or minimum on-line times. For high-volume 
users there is pricing option A. Under this option, there 
is a $75 monthly fee in exchange for lower prime-time 
rates during the business day. Pricing option B should 
be satisfactory for most individual investors. 

[To access the Dow Jones New Sevice and its databases 
you will need the TI Terminal Emulator II Command 
Cartridge to send and receive the appropriate signals, as 
well as the TI RS232 Interface and an RS232C-compatible 
telephone coupler (or modem).— Ed.] 

After news has been obtained on the News Service, 
there are really only two things that can be done with it: 
(1) it can be kept temporarily, or (2) kept permanently. 
News that is to be kept temporarily is best stored on a 
disk or printed copy for ease of access and readability. 
When keeping news permanently, cassette tapes can be 
both cost effective and reasonably efficient, especially if 
bought in volume. 

For aspects of the service other than news, there are 
many different ways to use both the historical and cur- 
rent quote databases. The historical quotes are available 
in either monthly or quarterly format for any given item. 
While a weekly format would be desirable, the monthly 
quotes can be used to determine most long- and 
intermediate-term trends. For the very short-term, one 
month of daily quotes is always available. These can be 
used to develop a 10-, 15- or 20-day moving average of 
prices for the item being researched, and if saved over 
a period of time, can be used in any format. 

For the novice investor, the Media General database 
provides a sufficient amount of both technical and fun- 
damental analysis. Fundamental analysis refers to infor- 
mation concerning aspects of a particular company or in- 
dustry, such as assets, net worth, or earnings. Technical 
analysis refers to the study of the chart or graph of a com- 
pany, industry, or the market in general— in the hope that 
past behavior as revealed in graphs can be used 
to predict future price movements. 

The serious investor may prefer to develop his or her 
own analytical tools. One current theory on Wall Street 



334 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



today maintains that about half of a stock's performance 
is due to movement of the market in general, and about 
half of the movement is due to characteristics peculiar 
to that particular stock. Naturally, anyone who can 
predict the movement of the market, even for a short 
time, has a very powerful financial tool. 

For this reason, my own predilection is for analyzing 
the leading market indices. This analysis can be facilitated 
by the TI Personal Record Keeping Command Cartridge 
(PRK). Each page you set up with the PRK can repre- 
sent one day, and the first few lines can label the index 
to be tracked. The remaining lines can be the 10-, 15-, 
or 20-day averages of the aforementioned indices. The 
use of math transformations in the PRK cartridge allows 
you to compute the average for each of the indices, but 
you must enter the average manually with the Change 
Page option. The average has a useful by-product which 
the PRK computes automatically: the standard deviation. 
I have found this statistic to be a good indicator of market 
volatiHty. It too can be entered and tracked with the 
average. The ability of the Statistics Command Cartridge 
to analyze data produced with the PRK cartridge is a 
definite plus. Even though the Statistics cartridge is a 
more sophisticated analytical device, and offers more 
tools to work with than the PRK cartridge, I do not feel 
that it is essential to index analysis— only helpful. 

Investors with access to a TI-59 programmable 
calculator as well as a TI-99/4A can perform some rather 
astounding mathematical computations without a strong 
math background. Quotes obtained through the News 
Service can be processed in a Least Squares Curve Fit pro- 
gram detailed in a Texas Instruments publication, 
Sourcebook for Programmable Calculators. This will 



result in a series of simultaneous equations which can be 
solved with either the Master Library-2 program on the 
TI-59 or the Math Library-2 program on the TI-99/4A. 
In theory, the resulting equation should be a reasonably 
accurate description of the line from which the datapoints 
were taken, and it can be used to predict the future 
behavior of the line. Naturally, the number and quality 
of the datapoints chosen determine the accuracy of the 
predictive equation, and any conclusion drawn from such 
analysis is at best highly speculative. 

Fundamental analysis using the TI-99/4A also has 
many applications. You can program balance sheet and 
income statement analyses, and then compare them to 
an "ideal" or average analysis in order to determine the 
variances which may reveal the strengths or weaknesses 
of a particular company or industry. The information for 
these analyses can be found in the 10-K section of the 
Disclosure On-Line database of the News Service. 

Of course, these are only a few of the applications that 
are possible with the TI-99/4A and the Dow Jones News 
Service. In the past, this mathematical analysis of the 
market and its component stocks was inaccessible or 
simply incomprehensible to the small investor. But now, 
with the help of your TI-99/4A, it's both possible and 
easy to take a sophisticated approach to market analyses. 

I would recommend that any investor with a TI-99/4A 
computer call Dow Jones on their toll-free number 
(800-257-5114 except N.J.) to request their free informa- 
tion packet detailing prices and services. 

Good luck, 99'ers! If this works for you, your only 
problem may be writing a suitable income tax program! 
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Interactive 
Forms Generator 



When I started in business, I decided to utilize 
my TI-99/4A as much as possible. One of the 
things I wanted to do with the computer was 
to generate customized business forms: purchase orders, 
price lists, invoices, and sales orders. 

Right away you may be thinking: "He could buy all 
those forms ready made. . Yes, but that's not challeng- 
ing or really as much fun. Not only that, but printing 
up custom forms (ones that bear your company name and 
address) is not cheap. Around here a minimum order of 
triplicate invoices costs about $40 for 500. (And I prob- 
ably wouldn't use all 500 before wanting to modify the 
form anyway. . .). Furthermore, multiplying that $40 
figure by the 12 different forms (including price list pages) 
I presently use gives a starting cost of $480! That is almost 
enough money to buy an Epson MX-80 printer! 

Well, you guessed it: I bought the printer— plus the 
serial interface, the RS232 cable, and the TI RS232 in- 
terface. The whole setup did cost more than the original 
estimate, but I can write off the added cost as "hobby 
money" for now. With the right software I could sit down 
at the TI-99/4A keyboard, activate a program that would 
prompt me to fill in the blanks of a form that was in 
memory, and finally print out as many copies as I wanted 
on the MX-80. 

I wrote such a program and I called it the Interactive 
Forms Generator. It is written in a general fashion to 
work with any correctly formated data file. I then made 
up a Form Data File for each of my forms. A Form Data 
File is just a bunch of ASCII text lines stored in a string 
array. Each text line may be written as a DATA LINE 
to be printed on the MX-80 or as a COMMAND LINE 
to direct the Interactive Forms Generator program. 

How Does It Work? 

The Interactive Forms Generator (IFG) program asks 
questions of the operator via the TI-99/4A screen. IFG 
accepts inputs from the operator via the keyboard and 
interprets instructions from the Form Data File's COM- 
MAND LINES. In other words, the IFG program works 
with you to load your Form Data File, fill out the form, 
and finally print it out on the MX-80. 



Let's say I am generating a Sales Order Acknowledg- 
ment form to send to a customer. First, I load the IFG 
program for diskette (or casette). Second, I type RUN 
and hit ENTER. Third, the IFG program asks: 

MAKE A CHOICE- 

1. LOAD NEW FORM FILE 

2. FILL OUT SAME FORM 

3. PRINT COPIES 
4. TERMINATE 

I enter 1 and follow instructions from the IFG program 
to load the Sales Order Acknowledgment Form Data File. 
Fourth, the program asks: 

MAKE A CHOICE- 

1. LOAD NEW FORM FILE 

2. FILL OUT SAME FORM 

3. PRINT COPIES 
4. TERMINATE 

? 

I enter 2. Fifth, IFG will look through the Form Data 
File for the COMMAND LINES. Interpreting the lines, 
IFG will prompt me via the screen for the information 
needed to fill out the form's blanks. Also, in interpreting 
the COMMAND LINES, IFG may perform simple math 
functions on fields of DATA LINES to calculate tax, 
totals, etc. After all the COMMAND LINES have been 
used, IFG again asks: 

MAKE A CHOICE- 

1. LOAD NEW FORM FILE 

2. FILL OUT SAME FORM 

3. PRINT COPIES 

4. TERMINATE 

? 

This time I enter 3 and the IFG program asks: 

ENTER NUMBER OF COPIES TO PRINT- 

I enter some number and IFG sends only the DATA 
LINES of the Form Data File to the MX-80, which does 
the rest! See Figure 2 for a look at the completed form 
sample. 
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Boy, isn't that slick. . Just like the big guys— perhaps 
a little slower, but that's OK until the business grows to 
the point that speed is important. (By the way, for 
Christmas I can generate a very long form letter with a 
year's worth of family news, then use IFG to fill out a 
separate salutation for each relative. So the whole fami- 
ly gets the latest without my getting writer's cramp! I'll 
bet that with your imagination and creativity you will 
come up with some other neat applications for IFG, 
too. . .) 

OK, OK. You want to know how you can make one 
of these Form Data Files, don't you? Well then, there 
are a couple ways: 

Building a Form Data File: Method 1 

If you have some kind of editor program that will build 
an ASCII text string array, you are all set. All you have 
to do is make sure it will output the special ASCII con- 
trol codes used by the printer to do its tricks. It must also 
output the Form Data File to cassette or diskette in a 
compatible format. Listings 1 and 2 for subroutines 
CASSOUT and DISKOUT illustrate what is needed. If 
you don't have an editor program, see Method 2, below: 

Building a Form Data File: Method 2 

This is a real simple — but much more tedious — method 
of building the Form Data File. 

STEP 1. 

Sit down with pad of paper and a pencil. Now design 
each character-string line of the form. Use the CHR$ 
( ) function to put in the string special codes that can't 
be directly entered by a key on the 99/4A keyboard. The 
codes can be looked up in the MX-80 (or other printer's) 
manual. The samples shown below are: CHR$(27), 
ESCape code; CHR$(13), Carriage Return code; 
CHR$(10), Line Feed code: 

CHR$(27)&"E"&"THE DOG RAN HOME 
QUICKL Y"&CHR$( 1 0)&CHR$( 1 3) 

STEP 2 

Now fire up your 99/4A. Enter the following program 
lines: 



EM 
EM 
EM 
PT 
IM 
EM 



ROG 



AM 



Then enter your character-string lines from paper into 
the string array via the TI-99/4A keyboard as follows: 



R 
A 

ME 
AS 
A 
H 
S 



ElM 
N 
E|M 
$ 



EM 



2 

D 



OlW 
E 



THE C 



HARACTER 



FO 



DOG 



DOG 



NG 



HO 



Now enter the following lines of program code 

1010 REiM ImIAEE X EiQiUAL tIO T|HE NU|M|B 



EM 
M 
EM 



CH|0 
NT 
T 



OU 



WR 



E 
C 



GO 




RO 



HlO 

2 

L 

ME 



T 

ION 



OW 



Finally, enter the two subroutines CASSOUT and 
DISKOUT starting at lines 2000 and 3000. 

STEP 3. 

Type in RUN. You should end up with your own Form 
Data File on tape or diskette. This can now be used with 
the IFG program, 

STEP 4. 

Hold it! Don't turn off the TI-99/4A yet! SAVE your 
Filebuild program on tape or diskette too. Chances are 
you will want to modify that form because of errors or 
change of design in the future. OK, now you can turn 
off the computer and hit the sack. (Notice that this kind 
of work is always done at midnight. . .) 

To help clarify the above process, I generated a sim- 
ple Filebuild program (Listing 3). Note that text lines 
A$(l)-A$(13) are DATA LINES and text lines 
A$(14) - A$(19) are COMMAND LINES (more on these 
next). Data File 2 shows the resulting Form Data File (as 
printed by my editor program). Figure 1 shows the results 
of running IFG using this Form Data File. 



KD|-1F»UJT/=»Ft MOF^KS 
P.O.BOX 483 
143 SUNSET DRIVE 
ELECTRIC CITY, tMSHINOTON 
"W123 



Figure 1 . 



MR. CHIP BUGGS 
9900 SEAHDSS AVE. 
ELECTRIC CITY 
UASHIttGTON 
99123 



APT. • 102 



Power to the IFG\ 

How do we get the Form Data File to tell the IFG what 
to do? By making up COMMAND LINES. What makes 
a COMMAND LINE special? It must start with these two 
characters: !!. What can a COMMAND LINE tell IFG 
to do? It can tell it to output a message to the TI-99/4A 
display. How? Here's a sample: 

!!"THIS MESSAGE WILL BE WRITTEN ON THE 
99/4A DISPLAY" 

Note that anything between quotes will be displayed. 

What about telling it to get something from the 99/4A 
keyboard? OK— whenever IFG does this, it stuffs the in- 
formation obtained into a line of the Form Data File 
either right-justified or left-justified. To get input from 
the keyboard and stuff it left-justified, use this FIELD 
DEFINITION syntax: 
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!! -.28:1:32: (!!: ilinetf : first charactenlast character.) 

To get information rigiit-justifiecl (which is needed for 
lining up decimals) do the same except add a **> " sign 
after the first ":". Example: 

!! :>28:1:32: 

By the way, IFG will show you on the display how 
much space you have to write in and will let you know 
if you overflow. 

Didn't I say something about IFG doing math calcula- 
tions, you ask? Right. You can write COMMAND 
LINES to add, subtract, multiply, and divide. Each term 
and operator simply must be enclosed in parentheses. A 
term may be a FIELD DEFINITION or a constant. Here 
are some samples: 

!! (:28:1:32:) (*) (.05) ( = ) (:34: 17:24:) 
!! (:2:1:4:) ( + ) (:3:1:4:) ( + ) (:4:1:4:) ( = ) (:6:1:4:) 
!! (:34:57:68:) (*) (:34:22:32:) ( = ) (:> 34:70:82:) 
!! (12.1) (/) (:2:22:32:) (-) (33.3) ( = ) (:2:22:32:) 

I know what you're probably saying right now: "Wow, 
that is really a lot of power! Is that all IFG can do?" 
Well, there is one more small thing. You can write a 
COMMAND LINE sequence that will repeat a given 
number of times. Each time the sequence is repeated, all 
included FIELD DEFINITION line numbers are in- 
cremented. IFG always asks after each repeat cycle if you 
want to do another. This last feature makes it simple to 
fill out a form with a multi-line list. Here is a sample 
repeat sequence: 



description?" :28:12:44: 
28:46:56: "quantity?" 



!!@10; "stock #?" :28:2:10: 
Unscheduled ship date?" 
:> 28:58:62: 
!!"unit price?" :>28:65:70: 
!! (:28:58:62:) (*) (:28:65:70:) ( = ) (:> 28:72:79:) @ 



Listing 1 



EM 
EM 



E 
1 

EM 
EH 



RO 



EH 
R 



R 
P 
FOl 
PR 
N 
C 
R 



HUi 
IS 



IE 
N' 

EQI 



SO 


'HI 



lUHl 



LO 



X 
TO 



X + ' 



This sequence will start at Form Data File line 28 and 
go to line 38. Notice the repeat sequence is bracketed by 
*'@" symbols and the number between the first "@" 
and the ";" tells how many repeat cycles. Study this sam- 
ple for a bit and figure out what it does. Then you can 
look over Data File 1 . It is the whole Form Data File pro- 
duced by my editor program for my Sales Order 
Acknowledgment form. Figure 2 shows the results of run- 
ning IFG with the Sales Order Acknowledgment Form 
Data File. The above repeat sequence is from lines 60-62 
of that Sales Order Acknowledgement Form Data File. 





P.O.Boa 483 
Elactrle City 
HachlnQton 


Figure 2. 




IB09I MI-2M3 






3«l-ee OFtDER ACKIMOWt-ELDBSMEIM-r 


Data- 1 


mtiL 1 ivBi 0.0 


nuabar- OOOl 


Bold to 


- MR. CHIP BUQGS Ship to- SAME 
OPT. • I02 BAMt 
WOO SEAHOSS AVE. 
ELECTRIC CITY 
NASMINBTDN »?123 




Ship via- U.P.B. BLOe LABEL 






Btock 1 


1 Daacrlptlon 


^ Schadulad 
1 ahip data 


Ouan-'Unlt 'Aaount 
ttty Iprlca' 


PKC004 
PHA2000 
PHA4iaa 
1^2603 


!TI 'J9/4 HOME COnPUTER CONSOLE 
■DUAL CASSETTE CASCE 
! 10- COLOR nONITOR 
•BLANK OVERLAYS (4 PACXI 


!03-2-0l 
!OS-2-01 
•03-2-01 
•O4-r-0I 


t •49<».On" 497. i>f. 
1 • ll.ilU' II. IK' 

1 '527.98' ■'■Zf.'m 

2 ■ S.lb' r.'."" 




M taMHr •nrl •« Mf MnrliilH 
tmt,..,. U Ml Witt Ut art* 




SUBTOTAL - SI'i.ua 
TAX - 4a, 2S 
FREIGHT - (M'.VO 
TOTAL >S ev7. Ih 



Finally, Listing 4 is the Interactive Forms Generator 
program. I recommend loading it without all the com- 
ment lines to save memory. If you use the disk drive 
system, you should use CALL FILES(l) and NEW prior 
to loading IFG. That will give space for about a 70-line 
Form Data File. 



Listing 2 



RO 



EM 
R 

Nl 
F 



WH 

D 
F 



El 

AHl 



D 


3 

AIH 



KOI 
K 



1- 

H] 

[AM] 



EM 
EM 
F 

EMI 



e: 

T 

I ■■ 
T 

E 

UlRI 



X 
L 

X 
TO 



Mu: 



A 
EQ 



AHl 
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Data File 1 

1 ESCFESCHllC4SC2LFCfi 

2 SIS0E5CEESC6 KOWUTAR KQHXSLFLFCIi 

3 P.O.Boi 4831FC« 

4 Electric CitfLFCR 

5 lUitiingtanLFCS 

7 1S09) W3-2i3SilFlFLFCR 

8 SC28C4ESCf ESCaFCR 

f SOESCE SALES ORDER ACXKOtfLEDSEKEHTLRRFQi 

10 ESCFSISaOiti- S.O.Boibtr-CA 

11 DC4SC2 

12 LFCR 

13 SISOSoltf to- Ship to-CS 
24 DC4DC2 

15 HT 

16 HT 

17 HI 
!S HT 

19 LFSlSOShtp Ai-tR 

20 sc'cc: 

21 

22 SISOStock 

23 SC4DC2 

24 SISO 

25 SC4&C2 

21 DC4DC:CR 
27 

28 HT 
21 HT 

30 HT 

31 HT 

32 HT 

33 HT 

34 HT 

35 HT 

36 KT 

37 HT 
38 



LFC8 



LFCR 



LFCR 
LFCR 
LFCR 
LFCR 



LFLFCR 



Bsscription 



Sclitdaled Quia- Unit AtauntCR 



ship dati tity priceCR 



LFCR 



LFCR 



=LFCR 
LFCR 
LFCR 
LFCR 
LFCR 
LFCR 
LFCR 
LFCR 
LFCR 
LFCR 
LFCR 

»«LFCR 



SUBTOTAL <R 



TAI «CR 



FREI6HT *CH 



TOTAL «»CR 



39 SISO 

40 DC4BC2 
(1 SISO 

42 t)C4SC2 

43 SISO 

44 0C4BC2 

45 SISO 
16 DC4I)C2 

47 ESC3:NULCR 

48 VTSIThmk you lor thi ordfr. Rttttbn- 'cord of louth* idvirtisiog LFCR 

49 knps our costs dotn So htip spraid th< rardlLFCR 

50 FFCR 

51 !! 'SALES ORDER ACnOUiliailENTLFLF' LFCR 

52 !l'ditc7* :ll:ll:30] 'S.O. nuibsr?* :ll:59:64tCR 

53 ■"sold to?* : 14: 14:37: 'sold to tddrns linesMLF'CR 

54 M'addrcss It* :IS:13<36: 'iddrissl2* :16:13:36:CR 

55 ! ''address 13' :17:13:36: 'address M' :18:t3:36:CR 

56 !!'ship to?' :14:S2:7i: 'ship to address liaes:4LF'CR 

57 !!'address II' :IS:Sl:75i 'address 12' :t6:Sl:75:CR 

58 !! 'address 13' :17:51:75s 'address 14' :I8:51:75:CR 
29 M'shiA YU?* :20:1S:S1:C8 

60 !!JlOj 'stock I?' :28:2:10: 'description'' :28:12:44:CR 

61 ^'scheduled ship date?' :28:46!56: 'quantity?' :>28:58:62:CR 

62 'I'unit price?' :>28:65:70: I:2a:58:62:)it)(:28:63:70:)(«)t:)28s72s79:l SCR 

63 ! ! 1:28:72:79:) (♦) (:29:72:79: 1 (♦U:30:72:79:l t+) 1:31:72:79: » (^ICR 

64 : ! 1:32:72:79:1 (♦) 1:33:72:79:1 1+) 1:34:72:79; ) (♦) 1:35:72:79: ) (OCR 

65 !! l:36:72:79;)l*)l:37:72:79:)l*>(:>40:73:80:)CR 

66 il'tas rate (ie: .0544)?' :42:73j80: !:40:7::S0:)(H (:42:73:80s) t«)CR 

67 !' (s)42:73:80:) 'freight charge?' :>44:73:80: l:40:73seD:H»)CR 
«8 !! (:42:73:S0:>(«)(:44:7::80:)(s|(:>46:73:a0:ICR 

Data File 2 

1 ESCESISQXO*PUTAS KSKSLfCR 

2 P.O.BOI 4831FCR 

3 143 StMSET BRIVELFCR 

4 aECTRIC CITY, MSNINSTOiaFai 

5 99I231FCR 

6 IFIFLFLFLFCR 

7 SO SHIP TOsLFCR 

8 LFCR 

9 LFCR 

10 LFCR 

11 LFCR 

12 LFCR 

13 LaFlFLFLFCR 

14 M'SHIPPIK LAeEUFLF'CR 

15 !!'CUSTOISR RAS*i8:3S:70sCR 

16 H'STSEn ftODRESS'i9i3S:70tCR 

17 !!'Cm':lOs35i70:CR 

18 !<'STATE':lls35:70:CR 

19 'I'lIP C0S€':I2:40:60:CR 



LFCR 
LFCR 
LFCR 
LFCR 



Listing 3 



1 10 REM 



120 
30 

140 
50 

160 

70 
180 

90 
l2 
210 
2 2 
2 3 
2 40 
2 5 
2 6 
I2 7 
2 80 

2 90 
300 
310 

32 
330 

3 40 

350 

3 60 

|3 7 
3 8 

3 9 
40 
410 

42 

43 
|4 40 
45 

|46 
47 



RE M 
O P T IIOIN 



pi 
RE 

Ire 
I 

IRE 
A$ 
4) 
13 
AS 
13 
A$ 



N THE 



CHRS ( 1 



AS 



CH R S 

a|s (|5|) 
3 

Al$ 
MRS 



AS 



AS 
AS 
AS 
A$ 
AS 
A$ 



AS 

ElL 
S 

A|$ 
E 

AIS 
SS 

a|s 

4 

AIS 
34 



SH 



AS 



NOW 



11 )l= 
K 



CHRS 



MP U TAR 



) 

(21)1= 



3 )h 



(«) = 



10 



(|6|) = 
10 
(|7|) = 



CHRS 
&CH|R|$ 



&CHRS 



) 

CHRS 
(10 



8)1 
(19 

101 
(11 1 ) 
( 12 ) 

13 



:CHRS ( 1 



(14) 

& c|h R S 

13 ) 
(151) 
& C H R S 
(16 

& ClH R S 

17 ) 
&•: 10 
(18 



AS 
RS 
REIMI 
REM 
N E s| 
RE 
X = 
PR 
PR 
PR 



19 
INT 

INT] 
INT 

|i|np|u|t| 

IF 



10 

ON 
PR 
PR 



4 9 EN D| 

5 00 REI 
510 REI 

5 2 R E Ml 

5 30 REM 

5 4 RE M 

5 5 RE M 

15 elol p|p e|n 

ID 

|5 7|0' 
5 8 01 IRIE 



RE M 



19 

(134 



IN 



CH 
INT 
INT 



192 



T EXT 



BASE 
70 



143 



E L E C T R 
&CHRS 



CHOI 



LEBU 



PP 



R 

ARjRlAY 



CHRS ( 
&CHR$ 



1 

34 )|& 

! 

3 4|) 

! 



35:70 



AKE 
AS 



WR 



NG 



(27 



BOX 



SUNSET 



IC c 
13 ) 
9 9112 3 



10 



(14 

&|CHR|$|(|1 
&CHR$ ( 
jStCHRS 
&CHR$|( 
&CHRS 



SeCHRS ( 
10 )|&|CHRS 



(10 

&CHR$|( 



10 ) 



35 



12 



I TE 



CHOI CE 
CE<1 



OUTPUT 



SUB Rb U T 



CS1 



NES 



Lb 



&CHRS 



P OGRAM 



LAB ELS 



CHARACTER 



ScNE 
10 RK S 

48 3 



&CHR$ 
&CHRS 



&CHR$ 
10 



|& C H R S 
10 )|&CHRS 
& 



&CHRS 
4 ) 
10 



&CH|R$ ( 
8 :|3 5 

&ch|r|s 

9 

&CH|RI$|( 



) 

&iCHRS 



! - & CHR $ ( 



70 : - &CHR$ 



&CH|R|$ ( 
60 

EQlUlAL 



FlllLlE 
1 
2 



+ ( CHOI 



SUB 
P Lj 
SAVE 



lUST E 



SUB ROUT 



&CHRS 



34 



VE 



70 



70 



530 



ON 



IlNlE 

JIINITERNAL 



UAL 



WASH I 



&CHRS|( 1 
&CHRS|( 1 
&CHRS|(|l 
bCHRSmi 
gtCHRsldl 



10 



icCHRS 



CUSTO 



ER 

&CIH|R$|( 113 
STREET ADD RE 
&CHR$ ( 1 
T Y • St C H RS 



&CHRS 
THE 



TlO? 
CS1 
DSE 

CE 



&c|h|r$(1|0 

SHIP 



660 



-WVERS I ON 3 



1|5) 
10 

|10 



&|C|H RS (|1 
NGT 



STR I NGS 



& C H R S 
&CHRS 



) & ch 



10 



& C H R S 



3) 
3 ) 
3) 
3) 
3) 



geC|H R|$i(|ie 
3 ) 
I PjP 



S T ATE 



P CODE 



NUMBER 



NES 



CASSOUT 



THE 



I Nk 

3|4|)|&lC|HR 
NAM 



13 



=kl 



TAPE 



NU 



-|&|C|HRS 
&CH 



T^ E N 



OR b 



LLM 



OUTP UT , F 



DBER 
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590 



610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 

750 

760 
770 

780 
790 
800 
810 
820 
830 
840 



NT 



NT 



RElM 
PR 
FOR 
PR I 
NEXT 
CLOSE 
RETURN 
REM 
REM 
REtM 
PR 



NT 
NPUT 



NPUT 



OPEN 

OUTPUT 
REM 

re|m 

OF 
REIM 
PR 
FOR 
PR 

NEXT 
CLOSE 
R E T U R N 



NT 



LEN 
THEN 



TEXT 



NT 



SUBROUT 



DI 



ENTER 



TO 



SK 



A$ 



SK<1 ) + 
ENTER 
NAMES 



TO 



X + 1 



NAMES 
720 



AS 



WHICH 



DSK 
NTERNAL 

MlUST 
INES 



NE 



STEP 



AS 



SK 
LENAlME 



&STRS 



) + l 



1+1 

DI 
D 



EQUAL 



LEN 



DI 



SKOUT 



SK 



VARIABLE 



THEN 



NAMES 



THE 



&NAMES 



132 



NUMBER 



690 



10 



Listing 4 



This program (Listing 4) scans the file for lines that start with 
!!. Then these Interactive COMMAND LINES are parsed for four 
types of commands: 

1. Comments or messages to prompt the interactive 

user. This type of command is in the form of text preced- 
ed by a quote and followed by a quote. 

2. Field-definition type commands define the physical field 

into which the user's keyboard input will be stor^. The 

field has the form— 

: < line number> : <5farf position > : 

<end position >: Example— :23:5:22 

A Sample COMMAND LINE is: 
!!"Entcr the serial number—" :19:7:22: 

3. Repeat Command Sequence starts with— 

!!@< Numeric Value>:- and must end with a @. 
Everything in between will be repeated the number of 
times specified by the numeric value. A sample might be: 
(Line 20) Serial Number— Model— 
(Line 21) Serial Number— Model— 
(Line 22) Serial Number— Model— 
(Line Ti) !!"Fill in the table values that follow:" 
(Line?+1) !!@3:"Enter serial number;" :20:15:24 
(Line? +2) !!"Enter the model number:" '20'31'40' @ 

4. Math Transformations are made up of terms and operators. 

Terms may be Field-definition or constant types. Operators 
are "*", "/", " + ", " = ", and "-". All terms and 
operators must each be enclosed in parentheses. 

!!(:23:5:22) (*) (.0544) ( = ) (:> 23:17:35:) 
Note the ">" in the last term which causes the answer to 
be right justified in the field. 



The IFC program is set up for use with an EPSON MX-80 printer 
connected as device: 

"RS232.CR.EC.DA = 8.BA = 9600" 
If you are using a different baud rate, the OPEN statements for 
the printer on line number 1380 must be changed. 

You can use a different RS232 printer with the IFC program but 
first check lines 190-360 to make sure these character sequences 
are compatible with your printer. Especially check RESETEPSON, 
which initializes the printer. 



110 
130 
140 
170 
180 
190 



200 

210| 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

3201 

330 

340 

3501 

360| 

370 

380 

390 



410 
420 
430 
4401 
450 
460 

4 70 
480 
490 

500 
510 
520 
5301 
540 

5 5 01 

5 60 
570 
580 
590 
600 

610 
620 

630 
640 
650 

6 60 

6 70 
680 
690 
700 
710 

7 20 

730 
7401 
750 

760 



770 
780 



REM 
REM 
REM 
REM 
OPT 
biMl 



RESETEPSONS 



27 



RS 

BLANKS 

QUOTES 
IBANGS 
COLONS 
ISEMI COLIONS 
RI6HTARR0WIS 
AMPERSANDS 
OPENPARENS 
CLOSEPARENS 



ZEROS 
PLUSS 



DI 



EQUALS 
SPACES 
|YES = 
= 



NO 
REM 
CALL 
PR 



PR 
PR 
PR 
PR 
PR 
PR I 



PR 
PR 
PR 



I 

6 

I F 



ULT 



ION 
AS 



VI 



NT 
NT 
NT 
NT 
INT 
NT 



INPUT 
I F 



2 

PR 



GOTO 



ON 



GOTO 

Irem 

lUT 
{CALL 



NPUT 



iOPEN 

192 
INPUT 



FOR 



I NPUT 
NEXT 
CLOSE 
RETURN 
REM 
|P R I N T 
I NPUT 



ES 



I F 
00 

PR 



VAR 



FOR 



&CHRS 

) 



DECIIMALS 

CHRS 



NUSS 



PLYS 
DES 



NT 



NT 



CHOI 



INT 



NT 



INT 



DEVI 



INPUT 
I F 



OPEN 
ENAMES 



INT 



CENTRAL 
CLEAR 
MAKE 



NE 



BASE 



70 



CHRS 
CHRS ( 
CHRS 



CHRS 
CHRS 



CHOICE 



CHOI 



ERRPR 
410 



400 



DEV 



«4 



I = 



DI 



>10 



NPUT 



F 

LEN 



NTERACT 



CE 



70 



CHRS 
48 



CHRS 
CHRS 
CHRS 



CE>0 



CLEAR 
ENTER 



DEV 



CE 



SKN0<1 



I = 



I 

ABLE 



CE<1 



ENTER 



GENERATOR 



3 4 
33 ) 



58 
CHRS 

CHRS 
CHRS 
CHRS 

CHRS 



CHRS 



43 
45 



CHRS 
47 



&CHRS 



GOSUB 



CE 



CS1 



AS 
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Getting 




to Business 



Risks and Benefits 



You don't need to be reminded that microcomputers 
are having more than a micro impact on business. 
If you are reading this, it is because you would like 
some of that impact to benefit you. In this series of articles, 
we will explore some of those benefits and show you how 
to incorporate them in your business or professional work. 
They will be at least partly cautionary — written to try to keep 
you out of trouble. And don't expect only success stories. 
After all, failures can be most instructive. . , 

Planning Use vs. Integrated Use 

It is important to distinguish between two major and very 
different categories of business and professional use of the 
computer. The first I will call planning use. This category 
includes a lot of activities that are helpful to business and 
professional people. Applications in this category tend to 
be analytical or evaluative. They need not be done on a 
regular basis, but can often be a dramatic help in charting 
future direction and improving the profitability of a 
business. Some applications require rather little in the way 
of input data and are essentially projections; others analyze 
whatever body of historical data that might be available. 
Some common examples are the following: 

• Comparisons of ROI (Return On Investment) for the 
various options. 

• Interest calculations (e.g., effective interest rates on 
installment loans). 

• Profitability analyses for comparing charges and costs of 
providing various services. 

• Lease vs. purchase analyses. 

The second category of use is what I call integrated use. 
This category includes a lot of functions that support a 
business on a minute-to-minute or day-to-day basis. These 
are, for example: 

• Maintenance of inventory records. 

• Preparation of invoices, orders, service contracts, bills, etc. 

• Accounts payable and accounts receivable. 

• Maintenance of customer or mailing lists. 

• Payroll records. 

• General ledger and other accounting records. 




The potential benefits to your business of applications like 
these are enormous. But then, so are the risks! Before you 
allow your business to become dependent on a microcom- 
puter (or any other computer) and set of computer pro- 
grams, there are a number of steps you must take to 
safeguard it against the small and large catastrophes that 
could be (at the least) a major setback for you. This is not 
to discourage you from integrated uses, but rather, to en- 
courage you to be very careful about implementing them. 
[You should also look at "Murphy's Law," which has some 
steps we recommend you take to protect yourself against 
this ubiquitous and insidious law: "If anything can go 
wrong, it will!" It may apply (and indeed has applied- 
more frequently than most would care to admit) to in- 
tegrated computer applications. — Ed.] 

A good place for you to start using the power of your 
microcomputer is in planning applications. They don't re- 
quire extensive systems of programs or comprehensive 
detailed business records. They don't need to be done at 
any given moment, at peril of disaster to your business. And 
you don't have to chase down some itinerant programmer 
or software house to update your program upon change of, 
say, some federal tax formula— again, at peril of disaster. 
Furthermore, you can implement some planning applica- 
tions yourself, without extra software, disk drives, exten- 
sive data files, or a lot of time. 

Projections: A Planning Use 

Perhaps you've heard the story of the wealthy Indian 
maharajah who was challenged to a chess match by a shrewd 
foreign merchant. The merchant put up one hundred gold 
coins as his part of the wager, but only asked for rice if 
the maharajah lost the game: one grain of rice on the first 
square of the chessboard, two grains on the second square, 
four on the third, eight on the fourth, and so on. The 
maharajah was amused and somewhat skeptical that the 
merchant would ask for only a few grains of rice, but never- 
theless accepted the challenge. Naturally — or there would 
be no point to the story — the maharajah lost. And as the 
prize was being paid, the full impact became shockingly 
clear: So much rice did not exist in the world! And even 
if it did, the immense wealth of the maharajah could have 
paid for only a tiny fraction of it. . . 
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You are not often confronted with this type of wager. 
But you do have opportunities to evaluate, just as the 
maharajah should have. A computer can help you to pro- 
ject events into the future, vary the assumptions and tabulate 
the projected results. Using a computer program, you can 
analyze a much more complex situation than you would be 
willing to do with just a pencil, calculator and paper. You 
can change your assumptions and let the computer 
recalculate and reprint the projections, and thus gain much 
more understanding of the consequences of various con- 
tingencies as you play what is essentially a game of "What 
if. . . ?" As an extra benefit, consider this effect: The 
necessity of making clear and explicit assumptions usable 
by the computer may force you to think more clearly and 
objectively than you might have done otherwise. (I wonder 
whether baseball clubs would pay as much for some of their 
benchwarmers and stars if they evaluated the consequences 
and contingencies objectively.) 

A Program Outline 

Perhaps the best thing about a projection program is the 
ease with which you can write it yourself in BASIC. The 
fundamental tool is a two-dimensional array. If you thought 
anything connected with arrays was necessarily complex and 
difficult, please read on. You'll soon discover that an array 
application can be a lot easier than you imagined. 

An array is nothing more than a table in computer 
storage; a two-dimensional array has rows and columns. We 
must assign meaning to each, and write our program to 
honor those meanings. In a projection program, I let each 
column represent a year (or month?). If the problem re- 
quires, I let the numbers in the first column represent in- 
itial values, investments, or costs; the numbers in the last 
column represent residual values, or perhaps totals over all 
years in the projections. Each row represents a significant 
quantity that we want to project over the time span. 
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Figure 1 . Use of a Table for a Rental Projection 



Figure 1 shows a simple projection of a rental operation. 
There are four columns in the array; they represent 1981, 
1982, 1983, and 1984. Each row represents a quantity 
necessary to the projection of rental results. The array can 
be declared in BASIC by: 

60 DIM T(ll,4) 

A BASIC program can refer to any number in the array: 
For example, to refer to the maintenance expense in 1982 
we refer to T(7,2). 



1. Set initial (1981) values 

2. FOR each additional year compute the projected values 

3. FOR each row of the table PRINT a row of the table 

Figure 2. Outline of a Projection Program 



The outline of the program is shown in Figure 2. Let us 
examine each of the steps of the outline and show how it 
would be programmed in BASIC. A bunch of LET 
statements takes care of the first step. If rental income for 
1980 is projected to be $20,000, with a vacancy rate of 5 
percent, property tax of $3200, insurance or $7(X), etc., the 
first several BASIC statements would be: 

1010 LET T(l,l) = 20000 
1020 LET T(2,1)=.05*T(1,1) 
1030 LET T(3,1) = T(1,1)-T(2,1) 
1040 LET T(4,l) = 3200 
1050 LETT(5,1) = 700 

These illustrate several ways of assigning values: 

• directly as a given number (as in statements 1010, 1040, 
1050); 

• as a multiple of another number (as in statement 1020) 

• as sum or difference of other numbers (as in statement 
1030); 

It will be clear from your application how to assign each 
of your values. 
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The second step of the program is probably the most com- 
plex. The idea is to march across the table, usually deriving 
each number from the one to its left — that is, from the cor- 
responding entry for the previous year. However, some of 
these entries, too, will be multiples, sums, or differences of 
other numbers in the same columm. We can use the BASIC 
statement FOR to good advantage here; it easily specifies 
a repetition for each year. In our rental example, these 
statements could be: 

2000 FOR J = 2 TO 4 

2010 LET T(1,J) = T(1,J-1)*1.08 

2020 LET T(2,J)= .05*T(1,J) 
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2030 LET T(3,J) = T(1,J)-T(2,J) 
2040 LET T(4,J) = T(4.J-1)*1.06 
2050 LET T(5,J) = T(5,J-1)*L10 

2200 NEXT J 

These statements reflect assumptions that: 

• Rental income increases at an 8% inflation rate. 

• Vacancy continues at 5%. 

• Property taxes increase at only (!) a 6% inflation rate. 

• Insurance costs increase at a 10% inflation rate. 

If you are not sure how all this works, take out your pencil 
and, for J with a value of 2, play computer by filling in 
numbers in the table yourself as the computer would. 

Note how all the assumptions are built into the program; 
each one can be changed at will. You should, in fact, change 
several, and re-RUN the program several times in order to 
see the effect of each of your assumptions. This is sometimes 
call sensitivity analysis, but don't let big words scare you. 

You may also use the full capabilities of BASIC for 
special situations. For example, we might project that in the 
third year, the property will be annexed to the city and taxes 
will go up 30 percent instead of 6 percent. We could replace 
statement 2040 by: 

2040 IF J = 3 THEN 2047 

2043 LET T(4,J) = T(4,J- l)*1.06 

2044 GOTO 2050 

2047 LET T(4,J) = T(4,J- I)*1.30 



Also, suppose that in the same year we expect to have to 
put on a new roof for $8000; this is a maintenance expense, 
but one in addition to the regular budgeted maintenance. 
And unlike the taxes, the extra maintenance does not con- 
tinue into 1984. We may use another form of the multiplica- 
tion here: 

2070 IF J = 3 THEN 2077 

2073 LET T(7,J) = T(7.1)*1,08 (J- I) 

2074 GOTO 2080 

2077 LET T(7,J) = T(7,1)*10.8 2-H8000 

In the last step we display the table. The print-out can 
be prettied up with column headings, a description of each 
row, and other features. A bare-bones approach is suffi- 
cient, really, and could look like this: 

3000 FOR K=I TO 11 

3010 PRINT K,T(K,1),T(K,2),T(K,3),T(K,4) 

3020 NEXT K 

This segment prints the four numbers of each row of the 
table on one line, so the table appears on paper just the way 
we have been thinking about it; each row of numbers is 
preceded by the row number (K), which at least helps you 
to identify and keep track of your output. 

Listing 1 gathers these program segments into one 
skeleton. With this as as guideline, you should now be able 
to sit down and develop your own useful projection 
programs — applied to sales, production, commissions, or 
whatever else you need. 
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In the first section, I defined two categories of com- 
puter applications for business: (I) pyann//ig— concerned 
mostly with projections, and not having to be done at 
particular moments at peril to a business; and (2) in- 
tegrated use — applications such as invoices, accounts 
payable and receivable, mailing list maintenance, general 
ledger, inventory, or others upon which a business crucial- 
ly depends at particular times. In this article, we'll ex- 
plore some of the implicatons of integrated use. 

Programs for integrated use are likely to be rather ex- 
tensive. After all, most such applications involve 
organization and management of significant quantities 
of data. This means that the programs must help you with 
the data entry, help you monitor the validity and correct- 
ness of the data, and help you update the data. The pro- 
grams must also be able to retrieve data for processing, 
summarizing, and answering inquiries. Depending on the 
application, the programs may also have to generate con- 
trols for audit purposes, and provide tax reports. 

The programs for an integrated use application must 
be well-designed and form what we would call an infor- 



mation system. To develop such a system takes a substan- 
tial amount of work probably several months, if not 
years, of programmer time. If your application is small 
enough for you to think about doing it on a TI-99/4A 
or other micro, it would be quite a mismatch of invest- 
ment for you to pay for even six months of a program- 
mer's time to develop a system. Therefore, you will want 
to buy a system that is already developed, packaged, and 
ready to install and use. You actually have a better chance 
of getting a good working product by buying a package 
than by having it done to your specifications by a 
programmer. 

OK, you're in the market for a package. Besides cost, 
the most obvious criterion is whether a proposed package 
will meet your needs. Now is the time — even before see- 
ing the details of a proposed package — to make yourself 
a checklist of the features you want your package to in- 
clude. List each processing action that you think necessary 
in your system. Consider the data elements you think 
would have to be stored and related to each other in order 
to provide the information you will need at any given mo- 
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ment. If done in a detailed and compreiiensive way, this 
would be close to what we would call a systems analysis 
of your application. 

Great detail and comprehensiveness are not needed; the 
idea is to give you a starting point for judging the ade- 
quacy of a package you may be offered. You will prob- 
ably find that a particular package is organized differently 
and operates differently from your outline. There's 
nothing wrong with that. Concentrate on the results pro- 
duced and whether they are appropriate: Does the pro- 
posed package provide the information you consider 
essential? Then, of course, you can also judge whether 
the proposed package is convenient or awkward, and flex- 
ible or rigid. 

A second suggestion is to talk to other users of the pro- 
posed package, and get their opinions of the package's 
strengths and weaknesses. You may be surprised how will- 
ing other users are to share their experiences. Even if you 
have to phone a couple of users long-distance, it will be 
well worth the trouble and cost. 

You should not expect your needs in an information 
system to always remain the same. Your business changes; 
auditors make new demands; federal or state regulations 
change. This is where flexibility of a system comes in. 
Chances are that there will come a time when you will 
want your system to do something it was not designed 
to do. Then, you will need help in modifying the system. 
The supplier of the package is in the best position to know 
how to modify your system. But will he be around when 
you need him? Find out whether the source program is 
supplied and accessible to you. If it is, then you have a 
chance of getting someone near you to modify it when 
needed. Try to find out from the supplier and users how 
much trouble a minor modification would be. You may 
not be able to trust an answer you get absolutely, because 
judging how hard it will be to modify a program is dif- 
ficult, but this is the best suggestion I can make. 

In the next section I will review some business-related 
software. This will provide an opportunity for some more 
specific suggestions about the analysis of a package. 

Now let us turn our attention to something more 
tangible— a program that should be of practical use to 
many of you. 

Effective Interest Rate or Return On Investment 

Suppose you have an opportunity to buy an investment 
for $1500. The investment is expected to pay $140 at the 
end of each of the next five years, and at the end of five 
years return a lump sum of $2000. What is the effective 
interest rate or total yield on this investment? Or, put 
another way, what is the return on this investment? This 
problem can be stated in terms of capital in your business: 
If you invest some amount in a certain piece of equip- 
ment or in a higher level of inventory or. . . ,you expect 
some estimated improvement in revenues. What is your 
expected return on this investment? 

Since you have many opportunities and a limited 
amount of capital, you need to compare the expected 
rates of return on each of several opportunities in order 
to be able to make the best decision. Of course, there are 
usually intangible benefits, as well as variations in the 
risks of different investments. A return-on-investment 
calculation is, therefore, not the only — or necessarily the 



deciding — criterion in your decisions. Nevertheless, it will 
certainly provide valuable input in your decision-making 
process. 

The program presented here is a relatively simple one. 
I define a component of the investment as one or more 
payments of equal amounts made at regular intevals. An 
investment will have two or more components; they are 
the main input to the program. Each component is 
described by: 

(a) the amount of each payment (there may be only one). 

(b) the time at which the first of these payments is made. 
Time is measured in months from the current mo- 
ment, which is understood to be time zero. 

(c) the number of months between payments. This is 
irrelevant if there is only one payment in a compo- 
nent, but we require a number anyway. 

(d) the number of payments in this component. 

For instance, the example above includes three 
components: 

(a) (b) (c) (d) 

1st Component 1500 1 1 

2nd Component -140 12 12 5 

3rd Component - 2000 60 1 1 

Note that the investment amount is given as a positive 
number, but the returns on the investment are given as 
negative numbers. The second component represents the 
five annual payments (12 months apart) starting 12 
months after the current time. The first and third com- 
ponents represent single payments: the initial payment 
and the final payoff after five years (60 months). 

The program makes provision for up to ten com- 
ponents; the number of components is the first input the 
program asks for. 

The program strategy is to compute the residual pre- 
sent value at one interest rate higher and one lower than 
the effective interest rate. We use an interpolation for- 
mula to produce a better estimate of the effective interest 
rate, then narrow the range of possible effective interest 
rates, and repeat the process. The program stops when 
the residual value is less than some fraction of the total 
of the numbers used in computing the residual value, or 
when the range of possible effective interest rates is less 
than some tolerance. There are four parameters set in 
statements 200-230 of the program that you may want 
to change, depending on your requirements: 

U9— starting upper bound for effective interest rate, set 
now at 30%. 

L9— starting lower bound for effective interest rate, set 
now at 0%. 

T9 — tolerance for range of effective interest rate, set now 
at .05%. When the possible range is less than this, 
we conclude you have the rate closely enough. 

P9— tolerance for residual present value, set now at .0001. 
Because of round-off error during the calculations, 
this tolerance should not be reduced much below 
this value. 



346 The Best of 99' er Volume 1 



Copyright © 1983 Emerald Valley Publishing Co. 



Figure 1 

ENTER NUMBER OF PAYMENT COMPONENTS? 3 

ENTER AMOUNT OF PAYMENT? 1500 

ENTER TIME OF RRST OF THESE PAYMENTS? 

ENTER PERIOD BETWEEN THESE PAYMENTS, IN MONTHS? 1 

ENTER NUMBER OF THESE PAYMENTS? 1 

ENTER AMOUNT OF PAYMENT? -140 

ENTER TIME OF FIRST OF THESE PAYMENTS? 12 

ENTER PERIOD BETWEEN THESE PAYMENTS, IN MONTHS? 12 

ENTER NUMBER OF THESE PAYMENTS? 5 

ENTER AMOUNT OF PAYMENT? -2000 

ENTER TIME OF FIRST OF THESE PAYMENTS? 60 

ENTER PERIOD BETWEEN THESE PAYMENTS, IN MONTHS? 1 

ENTER NUMBER OF THESE PAYMENTS? 1 

RESIDUAL PRESENT VALUE AT 0% IS -1200 
RESIDUAL PRESENT VALUE AT 30% IS 731.7656652 
RESIDUAL PRESENT VALUE AT 18.63580073% IS 290.8235145 
RESIDUAL PRESENT VALUE AT 15.00040794% IS 93.29345296 
RESIDUAL PRESENT VALUE AT 13.91833345% IS 27.69506322 
RESIDUAL PRESENT VALUE AT 13.60435554% IS 8.02691232 
RESIDUAL PRESENT VALUE AT 13.5139594% IS 2.310160891 
RESIDUAL PRESENT VALUE AT 13.48799321% IS .6635205027 
RESIDUAL PRESENT VALUE AT 13.48053936% IS .1904640003 
EFFECTIVE INTEREST RATE COMPOUNDED MONTHLY, 
IS 13.48053936 



Figure 1 shows a transcript of the execution of the pro- 
gram with the sample data given above. 

Note that the program uses a subroutine starting at line 
720; a parameter R is supplied to the subroutine, and 
parameters V and V3 are returned. If you have Extended 
BASIC, you can make these parameters explicit in the 
subroutine call. You can also rephrase some of the con- 
trol structures using IF-THEN-ELSE and multi-line 
statements, and make the program much more readable. 
I leave this for you to explore. 

Lease vs. Purchase Analysis 

Quite complex programs are available to determine 
whether leasing or purchasing some piece of equipment 
is more advantageous. The effective interest rate program 
can be used for lease vs. purchase analysis, though it re- 
quires you to do some side calculation. One method of 
the analysis would be essentially to calculate the return 
on purchasing the equipment and leasing it back to so- 
meone else. You would include: 

• cost of purchase(-l-) 

• tax benefits from claimed depreciation ( - ) 

• lease payments (-) 

• maintenance cost, if maintenance is provided under the 
lease ( + ) 

• any difference in insurance or other costs between 
purchasing and leasing ( + or - ) 

• expected cost of purchase at the end of lease period ( - ) 
or trade-in value at the end of lease period (-) 

The rate of return indicated by this analysis can be com- 
pared with your borrowing cost, and the comparison 
would give you an indication of whether purchase or lease 
would be more advantageous to you. 

As a small example, suppose you are going to get a 
widget-grinder. You can buy it for $12,000, or lease it 
for three years at $300 per month. No maintenance is in- 
volved, and the insurance cost is the same under lease 
or purchase. You expect that after three years you would 



need to trade this one in on a larger model. If you buy 
it, the trade-in allowance will be $6000. Assuming that 
either depreciation or lease payments would cost a net 
of only 60 percent of the actual amounts because of an 
assumed 40 percent tax rate, the input to the program 
would therefore be: 





(a) 


(b) 


(c) 




1st Component 


12000 





1 


1 


2nd Component 


-1200 


12 


12 


3 


3rd Component 


-180 





1 


36 


4th Component 


-6000 


36 


1 


1 



If you want to check, this example gives an effective in- 
terest rate of about 14.1^^0. Presumably, it would be ad- 
vantageous to purchase the widget grinder instead of leas- 
ing it. 



Effective Interest Rate Program: 
Table of Variables 

Arrays: 

Al: amount of each payment in an investment 
component* 

Tl: time at which the first payment of that component 
is made (in months, from current time = 0) 

Fl: number of months between the payments in this 
component 

NI: number of payments in this component 



*An Investment component is a series of one or more equal 
payments made at fixed intervals. Payments may be paid out 
( + ) or received ( - ). 



Parameters: 

U9: upper limit for effective annual rate 

L9: lower limit for effective annual rate 

T9: tolerance: when the interval between upper and 
lower limits (LI, Ul) is less than this, the pro- 
gram stops 

U9: tolerance — when the residual present value at a 
trial interest rate, divided by the sum of the ab- 
solute values of all components, is less than 
this, the program stops 

C: number of components 

I: index of the current investment component 
under consideration (always goes from 1 to C) 

LI: current lower bound on effective rate 

Ul: current upper bound on effective rate 

R: trial interest rate, on which to calculate residual 
present value V 

V: residual present value, based on trial interest 
rate R 

L2: residual present value at lower limit LI 

U2: residual present value at upper limit Ul 

V3: sum of absolute values of component present 
values 

V4: present value of a component at rate R 

V5: temporary variable used in computing V4 

Rl: monthly increase factor, using rate R fiBB 
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Line Nos. 

200-230 
250-370 
400-560 

590-700 



720-920 
930-950 



PROGRAM OUTLINE: 
Effective Interest Rate 

Set Parameters. 

Obtain input data from user. 

Set lower and upper limits, and the residual 

present value at each. 

Iterate: interpolate to get a new trial interest 
rate R, replace either upper or lower bound 
by R. 

Subroutine: computes residual present value 
at the trial rate R; also computes V3. 
Report final result. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 

260 
270 
280 
290 
300 
310 

320 
330 

340 
350 

360 
370 
380 
390 

400 
410 
420 

430 
440 
450 
460 
470 

480 
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In this section, let's consider an inventory system for 
your computer. I don't have a particular system to 
review, but I want to discuss what should be involved 
in an inventory system, and why. This has implications 
for a number of other applications you might like for 
your business, such as order processing, accounts 
payable, and even a general ledger system. 

We will address the kind of system you might use in 
a sales organization — either in a store or for mail or 
phone order. Some of the description also fits the situa- 
tion of a raw materials inventory or even miscellaneous 
supplies. Since some of the activities may not fit you if 
your business is small, be prepared to discount some of 
the benefits. 

First, it is important to know why you apply a com- 
puter to some task. You should have specific advantages 
in mind and know what you have to do to attain those 
advantages. And of course you should be prepared to 
change your operations as necessary. I have seen 
organizations that wanted to "put it on the computer" 
without any clear reason. Often such organizations waste 
time and resources changing the specifications, design, 
and operation of a system as they struggle to develop 
reasons for their system on the fly. Others merely wind 
up with a system which is a burden to run, with no ad- 
vantages except an imagined prestige. 

On the other hand, I did some work not long ago with 
a company that was going to get a computer. I expected 
that payroll would be one of their first applications, as 
it is in so many companies. But no, they had payroll near 
the bottom of their list. Because they had only 60 or so 
employees, they were able to do their payroll manually 
quite well and had other uses in mind that would give 
them definite advantages. For them, one of the first 
priorities was inventory. 

What are some of the possible benefits of keeping your 
inventory records by computer? 

1. If you are processing orders by computer, you can im- 
prove the efficiency of your warehouse operation in 
several ways: 

a. The computer can recognize which orders cannot be 
filled, and thus avoid sending the warehouse crew to 
look for the items. 

b. The computer can produce "pick slips" or a "pick- 
ing list" arranged in a sequence to make the picking 
of the items from the warehouse efficient. 

c. The computer can help manage back orders; when 
new stock arrives, the computer automatically scans 
the file of back orders and fills any back orders for 
the items before allowing new orders a chance. 



2. The computer can help you manage your inventory 
levels effectively and save you money. To do this, you 
must have good projections of future demand for each 
item. You can then time your reorders and calculate op- 
timal reorder quantities. At least in theory, you should 
be able to reduce your working capital tied up in inven- 
tory, and at the same time be out of stock less often and 
therefore be able to fill more orders and keep customers 
happier. 

Next, let's consider the information you must keep in 
your inventory file in order to have an effective inven- 
tory system. This file has a record for each product (and 
perhaps for each size, color, model and style). There is 
inventory status information: current quantity on hand, 
quantity on order from vendors, date expected, quantity 
on back order to customers, and quantity sold since last 
update. There is also historical demand information, such 
as quantity sold in each month in perhaps the last year. 
Finally, there is reorder and forecast information: i.e., 
preferred vendor, vendor's product number, vendor lead 
time, order quantity, order frequency or reorder point, 
and demand forecast. 

If your computer is processing orders, you also main- 
tain files of back orders (if permitted). The order pro- 
cessing programs obviously use and update the inventory 
file. If your computer is not used for processing orders, 
you must find some other means of updating your in- 
ventory data. One of the troubles with this is that your 
input data to the inventory system are likely to be much 
less reliable than the order-processing input would be. 

An inventory system must include a number of other 
functions. There are simple updates to price, cost, and 
warehouse location, as well as addition and deletion of 
products. There are also inventory adjustments caused 
by events such as return of an item from a customer, or 
the removal of an item for product testing. The function 
of receiving into inventory is complex: Quantities on hand 
and on order must be updated. A payable transaction is 
generated — with its necessary comparison of actual ar- 
rival amount with invoiced quanitity — so there is an in- 
terface with your accounts payable system, if you are us- 
ing one. Then your system must be sure to trigger the 
filling of back orders from the new stock before letting 
any new orders have access to it. 

Periodically, you must count your physical inventory 
and adjust your computer inventory accordingly, since 
you need your inventory file to reflect reality, not wishful 
thinking. Many events can cause a discrepancy in inven- 
tory counts — things such as pilferage, mislabeling, or 
failure to make the minor adjustments necessitated by the 
odd-but-authorized removal or replacement of items. The 
computer should help the physical inventory process by 
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printing the stock list, and by making it easy to adjust 
the inventory for discrepancies found. 

And then there are the functions involved in reorder- 
ing: About once a week your system should sweep 
through all products and determine what to reorder. You 
of course have the opportunity to override the computer's 
suggestions, but any such decisions must be recorded 
(e.g., in quantity on order). Perhaps once a month your 
system should update some analysis programs that keep 
your demand history current and recompute forecasts, 
reorder quantities, etc. 

There is even a connection to your general ledger 
system. After all, inventory is an asset, and any activity 
that affects the value of that asset should be reflected in 
your profit and loss, assets and liabilities. 

All this is a great deal of work. Not only are there a 
lot of things to do, but they must be done accurately. 
I knew a company that went bankrupt, primarily because 
the order processing and inventory control they did by 
computer was not accurate. They tremendously over- 
stocked some items because the computer said there were 
none on hand (and of course didn't fill orders because 
it thought there was no stock), and ran out of stock on 
other items because the computer thought there were 
plenty. Naturally the company couldn't fill those orders 
either! One of the causes of the snafu was the company's 
lack of understanding of how the system was supposed 




Random-access files are extremely important in any 
conversational application that requires a data 
base of some kind. This includes any kind of 
business information system, but also includes a lot of 
others as well. Unfortunately, the concept of what ran- 
dom access actually is often gives rise to misunderstand- 
ing and even fear — that is, the fear that using random 
access is too complex to be attempted. In this article 1 
will try to correct some of the misunderstandings and start 
you on your way to using random-access files. 

The dictionary I took to college told me that random 
meant "going, made, occurring, etc., without definite 
aim, purpose, or reason." Synonyms given are 
haphazard, chance, casual, aimless. Thus, when I first 
heard of random access in reference to computer data, 
it didn't sound like anything I would want. The good peo- 
ple didn't mean haphazard or chance, or any of those 
other things; they meant access directly to a piece of data 
specifically wanted, without having to pass sequentially 
by a lot of other unwanted data to get there. To me, this 
is much better described by the phrase direct access, and 
I have been using direct access and talking against the 
term random access for years. But enough. The ter- 
minology random-access appears in my newer dictionary, 
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to work, how to ensure its accuracy, and how to diagnose 
inaccuracies. 

On the other hand, another company, where I helped 
install order and inventory processing, listened very 
carefully to what we told them about operation for ac- 
curacy. They were not only willing to tighten some of 
their operations, but were also eager to be able to con- 
trol their warehouse functions more closely. That com- 
pany is still prospering. 

There's another side to consider too. If you have a 
small list of products to keep track of, you probably do 
rather well keeping track of them already. And as for 
calculating optimal inventory levels, reorder quantities, 
etc., you can probably do that rather well with a pocket 
calculator and formulas you can find in many textbooks. 
So honestly, would the computer help you do a better 
job of managing inventory than you already do (or could 
do manually with the same effort you would have to put 
into a computer system)? If the answer is no, then save 
yourself money, time, and management energy by not do- 
ing computer inventory. If there are real benefits you 
would receive, I hope this section will make you a little 
more aware of what you must prepare for and strengthen 
your resolve to do it carefully, and do it accurately. The 
stakes are too high for you to wander casually into a com- 
puter inventory system! 



When Random Does 
Not Mean By Chance 




and is generally understood in computer circles to mean 
"permitting access to stored data in any order the user 
desires." From the standpoint of the storage unit, access 
is random in the older sense, since the sequence of ac- 
cess requests is not at all predictable (compared with se- 
quential access, which is entirely predictable). So this is 
the point — direct (I still like that word) access to whatever 
data we want, in any sequence. 

Why is this important? Suppose you are using an in- 
ventory system. You have a transaction for product 539. 
Your last transaction was for product 762. What must 
you do to retrieve, update, and rewrite the record for pro- 
duct 539? If your inventory file is an ordinary sequential 
file, you must start at the beginning of the file, read all 
the records up to product 539, and rewrite each to a new 
file. Impossibly slow, yet it gets worse: After you do your 
thing with product 539, you either have to finish copy- 
ing the rest of the records to the new files or postpone 
that, in hope that the next transaction will be for a pro- 
duct after 539 so we can save a trip through the whole 
file. What we clearly need is the ability to go directly to 
record 539, read it, and write the updated record back 
in the same place. Random-access files permit you to do 
just that, and the savings in time are what make a data- 
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based system feasible — not only for inventory, but for 
accounts payable or receivable, general ledger, etc. 

Implementation in TI BASIC 

In a random-access file, in TI BASIC and in every other 
system I know, all records must be the same length. The 
operating system knows the length of each record, knows 
where the file begins on disk, and therefore can calculate 
the exact location of the 367th record, or any other 
record. This calculation is used whenever we ask to read 
or write a particular record. 

Let's look at the statements we use on random-access 
files. They are the same statements we use on ordinary 
(sequential) files, but some parameters are different. First, 
when we OPEN a random-access file, we must declare: 

■ file organization is RELATIVE 

■ file type is DISPLAY or INTERNAL 

■ open mode is INPUT, OUTPUT, or UPDATE 

■ record type is FIXED 

Don't ask why the word RELATIVE is chosen to 
specify random access, but it may have something to do 
with the address calculation: The location of each record 
is computed relative to the beginning of the file. You may 
well want to construct your random-access files as IN- 
TERNAL, to save space and time required for convert- 
ing DISPLAY (ASCII) files for internal use. An IN- 
TERNAL file cannot be listed directly, but you probably 
need a program to list a random-access file anyway. An 
open mode of UPDATE allows you to read and write 
records in your file, and this is what you want most of 
the time. UPDATE is also the default if you don't specify 
an open mode. As well as specifying FIXED record type, 
you may also specify the record length, and I recommend 
that you do. As an example, 

OPEN #1:"DSK1. INVENTORY", RELATIVE, 
INTERNAL, UPDATE, FIXED 92. 

opens the INVENTORY file on your DSKl as your #1 
file; the file has 92-byte records in internal format, for 
random-access reads and writes. When you first create 
a file, you can and should specify the number of records 
to be allocated initially; the number follows the word 
RELATIVE. For example, the program that first 
established this file could have used: 

OPEN #2: "DSKl. INVENTORY", RELATIVE 
150,INTERNAL,OUTPUT,FIXED 92 

To read a particular record, include the record number 
(the first record is numbered zero) in the INPUT state- 
ment; if N = 119, for example, 

INPUT #2,REC N: PN,D$,Q,PR 

reads the 1 19th record from the file into the variables PN, 
D$, Q, PR. The PRINT statement similarly includes the 
word REC and the record number of the record to be 
written: 

PRINT #2,REC N: PN,D$,Q,PR 

You can use the EOF function for a random-access file, 
but this is not the best way. Better is to use the record 
to hold special information about the file, especially 
the length of the file. As soon as you open the file, read 
that record: 



INPUT #2, REC 0: FL 

Then, before accessing any record, compare its record 
number with FL: 

230 IF N>FL THEN 260 

240 INPUT #2,REC N: PN.D$,Q,PR 

250 GOTO 280 

260 PRINT "INVALID RECORD NUMBER. 
REENTER" 

When we wish, we are allowed to read or write records 
sequentially in random-access file. And of course we 
should CLOSE a file at the end of the program. 

Which Record Contains What? 

Okay, so you can easily get the 119th record in your 
random-access file. But how do you know that the in- 
formation you want is in the 1 19th record? That is the 
hard part. If you are willing to assign product numbers 
1 to 200 to the 200 items in your inventory file, you have 
no problem. At least, not until you discontinue some 
products and add others. In many cases, you can't assign 
the key to your file (product number, social security 
number, account number, or whatever) like this at all. 
So we need some scheme that associates a record number 
with each of your keys. 

There are a lot of ways to do this. I will show one here: 
an index, which I keep in a file of its own. Actually, it 
could be kept in the first several records of your random- 
access file if you wish. Let's suppose an inventory system 
with up to 200 products. The product numbers are already 
assigned, as integers like 17, 29, 83, 104, 105, etc. We 
can keep our index in a pair of arrays in main storage 
while we run our system: these arrays don't take a lot 
of room. 

60 DIM IPN(200),ILOC(200) 
70 OPEN # 1 : " DSK 1 . IN VINDEX' ' ,SEQUENTI AL 
INTERNAL 

180 FOR 1 = 1 to 200 

190 INPUT #1: IPN(I),ILOC(I) 

200 NEXT I 

The IPN array holds the product numbers, and the IL- 
OC array the record numbers in the random-access file 
for the corresponding products. When we want to access 
a product, we search the IPN array, find the record 
number, then use it to access the product record directly. 

Using this scheme, the sequence of records in the 
random-access file matters very little. The sequence in the 
index file (and therefore in the arrays) matters more. The 
easiest thing, but least efficient, is to search the IPN ar- 
ray sequentially, with the product numbers in either 
ascending sequence or no particular sequence. One bet- 
ter idea is to put the most frequently used records at the 
front of the index file, thus cutting down on the average 
number of index entries your program must search. 
Studies have shown that in situations like this, 80 per- 
cent of the desired accesses are to 20 percent of the items. 
A still more efficient (but longer to program) method is 
a binary search, requiring that the index be in ascending 
sequence by product number. But let's come back to that 
idea another time. 
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Putting It all Together 

Let's see how some of this works. We will see, at least 
in outline, how to (1) update a particular record, using 
the index, and (2) how to add a new record to the file 
(and of course to the index). First, let's be a little more 
precise about how we keep information, again using an 
inventory system as the context. 

1. The RELATIVE file is named INVENTORY; its first 
record (numbered 0) contains the allocated length of the 
file; the number of records actually used must not ex- 
ceed that number. If the allocated length is 201 records, 
for example, we might at some time be using 160, and 
these would be numbered 1 to 160. 

2. The index file is named INVINDEX; it contains an 
index entry for each of the allocated records in INVEN- 
TORY. The index entries are in sequence by product 
number. The unused records are identified in the index 
by a product number like 32767, which is larger than any 
actual product number. In addition at the very beginning 
of the INVINDEX file are: 

(a) the number of allocated records 

(b) the number of currently active records 

As part of our program initialization, we must open 
the files and read the index into our arrays: 

60 DIM IPN(200),ILOC(200) 
70 OPEN #1: **DSK1.INVINDEX",SEQUENTIAL, 
INTERNAL 

80 OPEN #2: "DSKl. INVENTORY", RELATIVE, 
INTERNAL,UPDATE,FIXED 92 

90 INPUT #1: NALLOCNACTV 
100 FOR 1=1 TO NALLOC 
110 INPUT #1: IPN(I),ILOC(I) 
120 NEXT I 

Now, suppose the program has accepted a product 
number APN, and needs to retrieve the INVENTORY 
record for that product; we will show for simplicity a 
sequential, rather than a binary search through the in- 
dex file: 

310 FOR J=l TO NACTV 
320 IF APN = IPN(J) THEN 370 
330 IF ANP>IPN(J) THEN 350 
340 NEXT J 

350 PRINT • 'PRODUCT NOT ON FILE" 
360 GOTO . . 

370 INPUT #2,REC ILOC(J): PN,D$,Q,PR,. . . 



If the program goes on to update some fields of the 
record, the record can be rewritten with its updated con- 
tents very simply: 

470 PRINT #2,REC ILOC(J): PN,D$,Q,PR,. . . 

Inserting a new record for a new product number is 
a little tricky. Where to put it in the inventory file is no 
problem; it can go right after the last active record. The 
index will make it accessible at the right time, with no 
problem. But we have more to do with the index. We 
must insert a new index entry in its proper place in se- 
quence. Let's look at that process. Suppose that the pro- 
duct number to be inserted is PN, and that we have ascer- 
tained that such a number is not in the file. 

600 IN NACTV < NALLOC THEN 630 
610 PRINT "NO MORE SPACE IN THE 

INVENTORY FILE" 
620 GOTO . . 
630 NACTV = NACTV + 1 
640 PRINT #2,REC NACTV: PN,D$,Q,PR 
650 REM ADJUST INDEX 
660 FOR J = 1 TO NACTV 
670 IF PN>IPN(J) THEN 690 
680 NEXT J 

690 FOR K = NACTV TO J + 1 STEP - 1 

700 IPN(K) = IPN(K-1) 

710 ILOC(K) = ILOC(K-l) 

720 NEXT K 

730 IPN(J) = PN 

740 ILOC(J) = NACTV 

750 REM REWRITE THE UPDATED INDEX FILE 

760 RESTORE #1 

770 PRINT #1: NALLOCNACTV 

780 FOR I = 1 TO NALLOC 

790 PRINT #1: IPN(I),ILOC(I) 

800 NEXT I 

None of these operations takes very long. We always have 
the index file, the index arrays, and the random-access 
file itself in sync. 

Do you have a better scheme? You may very well have, 
especially for your particular application. There is a lot 
of room for different ways of using and managing 
random-access files. After all, what we have is really the 
capability of managing large arrays — kept on disk instead 
of main storage. I hope you can see the importance of, 
and get some idea of how to use, random-access files from 
this introduction. 
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In an earlier section we discussed random access files, 
and explored some details of using them. This section will 
review a few of the main points, develop a further idea 
or two, and then show a full example program using ran- 
dom access files. 

A random access file is essentially a big array stored 
on disk. We can treat it much as we would treat an ar- 
ray; we access an element of an array by using a subscript, 
whose job is to select one particular element of the array: 

350 K = A(SUBS) 
360 B(SUBS) = L 

These are ordinary BASIC statements that retrieve a value 
from the A array and store one in the B array. Similarly, 
we can specify exactly which record we want to read from 
or write to a random access file: 

440 SUBS = 37 

450 INPUT #1,REC SUBS: PN,D$,Q,R 
460 PRINT #2,REC SUBS: L$,AVE,RET 

These statements read the 37th record from the #1 file 
and write a record into the 37th record position of the 
#2 file. So SUBS is used just like a subscript to select 
which record to read or write. 

The Index to the Random-Access File 

In random-access files, the problem is knowing which 
record should be stored (or found) in which location. In 
my last section, I described a small inventory system in 
which the key to each record was the product number, 
an integer. There are at most 200 product numbers, but 
they are not just the numbers 1 to 200. My storage scheme 
stores product records arbitrarily, in the random-access 
file, but includes an index file also. The index file con- 
tains a pair of numbers for each record: the product 
number and the record number (the subscript in the 
random-access file where the record for the product 
number is stored). For example. Figure 3-a shows the in- 
dex and the file after four entries have been made to the 
file. The records were inserted for products 67, 105, 29, 
and 84, and the records are stored in the random-access 
file in the sequence in which the records were created. 
The function of the index is to keep a list of the product 
numbers and the position of each record in the random- 
access file. 

Early in any program that uses the random-access file, 
I read the index file into a pair of arrays, IPN and ILOC. 
When I then want to access a product record, I can search 
the IPN array at electronic speeds for the desired pro- 
duct record, and go directly to the product record. 



Binary Search 

In my last column, I showed a sequential search of this 
table, and hinted that a binary search would be faster. 
Let's take a look at a binary search: It is not very com- 
plex, is really a time saver, and can be applied in many 
table-search situations. 

First, let's be clear about the context. We have an ar- 
ray, whose elements may be numbers or strings. Let's use 
numbers in our example, but strings can work exactly the 
same way. The elements in the table must be arranged 
in ascending sequence. We also have a number, called 
the search key, that we want to find in the table. So the 
objective in the search is to find the subscript for which 
the table element matches the search key. If no match 
for the search key exists in the table, we say the search 
fails. 

The idea is a divide-and-conquer strategy. At all times, 
we keep track of the lower bound and the upper bound 
of the possible subscript in the table. At the start of the 
search, these bounds are the beginning and end of the 
table, of course. The central idea is that each time through 
the search loop, we compare the search key with the table 
element half-way between the upper and lower bounds. 
If that element matches the search key, the search is 
finished successfully. Otherwise, if the search key is less 
than this middle element, the desired table element must 
be in the lower half of the currently remaining portion 
of the table. So, we bring the upper bound down to the 
entry just below the middle one. The final case is the one 
in which the search key is greater than then middle ele- 
ment. So, the desired element must be in the upper half, 
and we bring the lower bound up to the one just above 
the middle. We repeat this process; each time through, 
we reduce the remaining possible portion of the table by 
half. The search ends either when we have found our table 
element or when we find the lower bound is greater than 
the upper bound; this last condition shows that the search 
has failed. 

Let's look at an example. Figure 1 shows a table of 
twelve numbers (product numbers?) in ascending se- 
quence. Suppose we are searching for 135 in the table. 
Our search starts with a lower bound of 1 and an upper 
bound of 12. Our first iteration computes a middle of 
(1 -I- l?-)/2 = 6 (rounded down). The 6th table entry is 
1 19; the search key is larger so the lower bound is set to 
7, and we have eliminated the entire lower half of the 
table from further consideration. In our second iteration 
(7 -I- I2)/2 = 9, and we compare the search key with 
the 9th entry, 158. This time, the search key is less, so 
the upper bound becomes 8. The third iteration tests the 
7th element itself and sets the lower limit to 8. The fourth 
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Figure 1 a table of numbers in ascending sequence. 



17 
29 
83 
104 
105 
119 
130 
135 
158 
183 
197 
262 



iteration finds that the 8th element matches the search 
key. Suppose our search key were instead 139; the itera- 
tions would be exactly the same, except that in the fourth 
iteration, lower and upper bounds are both 8, and we find 
that the search key is larger than the 8th table element. 
Thus the lower bound exceeds the upper bound, and the 
search fails. 



Figure 2 A subroutine for a binary search. 
1000 LOWB = 1 

1010 REM 1000. SUBROUTINE TO BINARY SEARCH THE TABLE IPN 

1020 REM OF LENGTH NACTV, FOR SEARCH KEY APN. 

1030 REM RETURNS ISUB = SUBSCRIPT OF MATCHING ENTRY, 

1040 REM OR IF THE SEARCH FAILS 

1050 UPB = NACTV 

1080 IF UPB < LOWB THEN 1140 

1070 ISUB = INT ((LOWB + UPB)/2) 

1080 IF APN = IPN (ISUB) THEN 1150 

1090 IF APN < IPN (ISUB) THEN 1120 

1100 LOWB = ISUB + 1 

1110 GO TO 1060 

1120 UPB = ISUB - 1 

1130 GO TO 1060 

1140 ISUB = 

1150 RETURN 



Figure 2 shows a subroutine that searches a table 
named IPN for a search key named APN. The length of 
the table in NACTV. The subroutine returns the value 
of the subscript ISUB of the matching element in the 
table, or returns ISUB = if the search fails. Trace the 
subroutine, using the table shown in Fig. 1 , to verify that 
the subroutine follows the logic described above. 

Inserting and Deleting Records 

If we are only inserting records into a random-access 
file, there isn't much problem. We use the next record 
position in the random-access file, and adjust the index 
by moving the entries up to make room, in order to put 
the new product number where it should go in sequence. 
We showed this process in the earlier section. The pro- 
blem is more complex if we also delete entries from the 
file from time to time. And, of course, we want to be 
able to reuse vacated file positions. 

To keep track of these positions, we use what the com- 
puter scientists call a linked list. We keep a variable, called 
EMPTY, which gives the first available file position; if 
there are no deleted record positions currently available 
(they may all have been used up again, or maybe no 
record have been deleted at all), EMPTY equals zero. 
Suppose the record stored in the 11th position of the 
random-access file has been deleted. Then EMPTY = 
1 1 . And the 1 1th record now contains the next available 
file position, which might be 37. Then the 37th record 
contains the next available file position, etc. The last 
available file record contains a zero to mark the end of 
the list. 



When deleting a record, we store in that record posi- 
tion the current value of EMPTY, and record the file 
position of this newly deleted record as the new value of 
EMPTY. When we need to insert a new record in the file, 
we look at EMPTY first, to see whether there are any 
previously deleted records whose positions we can recy- 
cle. If so, we use the first one in the list, but first read 
from it a new value to place in EMPTY, so the second 
available file position is now first. If EMPTY = 0, we 
are using all file position up to NACTV. In that case we 
just use the next file position after NACTV, unless 
NACTV = NALLOC, in which case we've run out of 
space. 



Figure 3 
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3-b. File after product 93 is inserted. 
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3-c. File after products 67 and 84 are deleted. 
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3-d. File after producct 17 Is Inserted. 



You can see the process in Fig 3. First, Fig. 3-c shows 
the result of deleting first product 67 and then product 
84 from the file. The list of empty file positions starts 
at position 4 (as EMPTY tells us), and then continues 
to position 1. The zero, stored at position 1, indicates 
that there are no more empty records. The index table 
records only the currently active products, and NACTV 
tells how many there are. 

When product 17 is inserted (Fig. 3-d), it is put into 
the first available empty position, which is position 4. The 
hst of empty positions is reduced, and the index, of 
course, is expanded. If two more products are inserted, 
the first will go into file position 1 , but then the EMPTY 
list will itself be empty, so the next product will be put 
in position 6. 
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Appendix 




Your Guide to Keying In Programs from The Best of 99*er 

To save yourself both time and effort, always make sure you have all the proper 
hardware and software to RUN any program. The No Disk symbol is used to 
designate programs which (as listed) will completely fill available memory and 
cannot be RUN with the Disk Controller (and possibly the RS232 Interface) attached. 

Some of the programs in The Best of 99'er, Volume 1, are short (about twenty lines or less). 
These brief sections of code are not typeset in our grid format. Lengthy programs with long 
program lines, however, have been mechanically typeset on a grid background for readability 
and proper spacing. Even with such clear listings, it is possible for you to make typing mistakes. 
You should, therefore, carefully read the section on editing program lines in your Texas In- 
struments User's Reference Guide (pp.II-38 and 11-39) before beginning to key in programs. 

Since entering long programs can lead to errors even for the most careful keypuncher, here 
are a few of the most common ones to watch for: 

• Typing one symbol for another. 

The most common transformations are: substituting the letter O for the number 
0, the letter I for the letter J, the lowercase letter L for the number 1, the letter S 
for the $, and the uppercase B for the number 8. This error is especially likely if 
you are working in hexadecimal numbers which are composed of the numbers 0-9 
and the uppercase letters A-F. 

• Transposing characters. 

For example, typing in 000154000 instead of 000145000. 

• Adding or deleting spaces. 

Make sure you enter the same number of spaces as you find in the listing. 

• DATA statements are often sources of hidden errors. 

For example, if your computer gives you an error message such as "bad value in 
260" the actual error may not be on line 260, but buried in a DATA statement 
used by line 260. The best way to handle this kind of error is to type in DATA 
statements very carefully and to verify them, by checking each character before 
typing the next statement. This is much simpler in the long run than printing out 
the values of all the variables in a given DATA statement. If you inadvertently 
leave out a comma, or if you leave out a value or a set of values in a DATA 
statement, the line that reads that DATA statement will give you an error message 
when it tries to read the data. 

Before you attempt to run your typed-in program, first check it for the kinds of errors listed 
above to save yourself time and frustration. 

If you do have some difficulty typing in the listings, refer to the Key-In Reference strip 
below. Check the appearance of any character you are in doubt about with the character on 
the Key-In Reference before you type it in. 



EM 
i k 



in p 

vwx 



! @i 



FG 



MNO 



To prevent the loss of a program while you are typing it in, it is a good idea to periodically 
save portions of it. If you are using a cassette storage system, you may want to refer to A 
Beginner's Guide to Cassette Operation with A Home Computer^ on page 20 of this book) 
which includes many helpful hints as well as a detailed description of an effective method of 
saving programs on cassette tape. Basically, for each 25-50 lines you type in, use SAVE CSl 
to save that program segment onto one of two tapes. Alternate between the two tapes each 
time you save the program. Be sure to rewind to the beginning of each tape before saving, 
so that you always record over and replace the shorter segment of program lines with the pro- 
gressively longer segment. By following this procedure, you'll always retain most of your work 
even if the lights go out, or someone turns off the computer before you are finished. 
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When using this Index, note that boldface page numbers indicate charts, tables, 
listings or main sections (e.g.,129ff). Italics are used to designate article titles. In accor- 
dance with standard indexing procedures, **ff" has been used to represent subject discus- 
sions of more than 3 pages. 
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Arrow keys, 50-51 
ASPIC, 40 

Assembly language, 37-38, 40, 129ff 
learning, 146ff 

Mini Memory command cartridge, 154-156 
programming, 136ff 
screen printing, 157ff 
TMS9900, 131ff 

vs. Extended BASIC, 93, 140-141 
Auto-Top, 82 
Bartender, 289-292 
Bar-Topper, 81 
BASIC, 12-13, 39-40, 69ff 

APPLESOFT, 73-75 

Extended BASIC, 85ff, 92-93 

graphics, 78ff 

screen printing, 76-77 

TRS-80 BASIC, 71-72 

vs. Assembly language, 138-141 
Battle-At-Sea, 229-233 
Battle Star, 234-236 
Beams (civil engineering), 189ff 
Bit-plot graphics, 30-32, 326-329 
Business applications 

business forms, 336ff 

evaluating software, 245-248 

information utilities, 24-25, 335-335 

inventory, 298ff, 349-350 

investment analysis, 334-335 

planning, 343-345 

random access files, 350ff 

record keeping, 298ff, 330-333 

Rule of 78, 293-297 
Business forms, 336ff 
CAI, 163ff 

CALL SOUNDS, 45-47 
Cassette operation List 1, 23 
Cassette operation List 2, 23 
Cassette recorders, 20-23 
Cassout, 338 
Checkbook balancing, 17 
Chess, see Computer Chess 



Children 

Computer-assisted instruction, 163ff 

Computer gaming, 221ff 

LOGO, 95ff 

Spelling Flash, 65 
Choropeth Mapping, 313-317 
Chuck-a-Luck, 52ff 
Civil Engineering Fundamentals, 189ff 
Color mapping, 313-317 
Command cartridges 

Editor/ Assembler, 136ff 

Extended BASIC, 85ff, 92-93 

Mini Memory, 154-156, 158-160 

Music Maker, 212-214, 218-220 

Personal Record Keeping (PRK), 76-77, 330-333, 335 

Speech Editor, 13, 305-308 

Terminal Emulator II, 25, 26-27, 28-29, 334 
Computer-assisted instruction (CAI), 163ff 
Computer Chess, 280ff 
Computer gaming, 48-51, 52-64, 221ff 

Anti-Aircraft Gun, 226-228 

Battle-At-Sea, 229ff 

Battle Star, 234-236 

Chuck-a-Luck, 52ff 

Computer Chess, 280ff 

County Fair Derby, 263-266 

Dodge'em, 246-247 

Dogfight, 269-271 

Force 1, 243-245 

Harried Housewife, 237ff 

Interplanetary Rescue, 272-275 

Life, 139; listings, 141-142 

Maze Race, 253ff 

N-Vader, 276-277 

San Francisco Tourist, 260-262 

Space Patrol, 278-279 

Space War, 248ff 

Sprite Chase, 267-268 

Tex Thello, 256-259 
Computer purchase, 11-15 
Computer Techniques for Tutoring the Mentally 

Handicapped, 18 Iff 
Condensed Format Code Table, 87 
Condensed Record Structure, 88 
Counting Lesson, 183 
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County Fair Derby, 263-266 

Debugging programs, 57-58, 68, 138 

Diskout, 338 

Division (math), 173-175 

Dodge 'em, 246-247 

Dogfight, 169-21 \ 

Dots to Plots, 326-329 

Dow Jones News Service, 334-335 

Down Loading, 25 

Drills (education) 

Let's Learn Notes, 199ff 

Mystery Words, 205ff 

Name That Bone, 176 

Pocket Typing Trainer, 66 

Spelling Flash, 65 

Spelling Test Game, 306-307 

Typing for Accuracy, 186-188 
Editor/ Assembler Command Cartridge, 136ff 
Education programs 

Computer-assisted instruction, 163ff 

LOGO, Sec 4, 95ff 

Math, 168ff 

Music, 196ff 

Spelling, 65, 306-307 

Typing, 66, 186-188 
Effective Interest Rate, listing, 348 
Electronic mail, 25 
Engineering 

Civil Engineering Fundamentals, 189ff 

Overland Flow, 318ff 
Extended BASIC Command Cartridge, 85ff, 92-93 

animation, 30-32, 309-312 

Verbose, 305-308 

vs. Assembly language, 140-141 
Filebuild Program, 337 
Flowcharting, 41-44 
Flyaway, 121-123 
Force 1, 243-245 
Forecasting, 343-345 
Forms generator, 336ff 
FORTH, 40 
Fractions, 168ff 
Games, see Computer gaming 
Getting Down to Business, 343ff 
Gifted students, 212-214 
Graphics 

animation, 30-32, 309-3 12ff 

Assembly language, 146ff 

bar graphs, 79-80 

BASIC, 78ff 

bit-plot graphics, 30-32, 326-329 
Chuck-a-Luck, 61-64 

Computer-assisted instruction, 165-167, 176-180 

Dynamic Manipulation of Screen Character 

Graphics, 78ff 

Extended BASIC. 92 

LOGO, 95ff 

loops, 78-80 

mapping, 313-317 

music, 219-220 

Overland Flow, 318ff 

screen printing, 157-162, 324-325, 326-329 

Spriter, 309-312 
Harried Housewife, 237ff 
Home Secretary, 298ff 
Homework Helper: Division, 173-175 
Homework Helper: Fractions, 168ff 
Household Inventory, 18 
Information utilties, 24-25, 334-335 
Integrated circuits 

SN76489 (sound generation controller), 45-47 

TMS5200 (speech synthesizer), 28-29 

TMS9900 (CPU), 131-135, 146-147 

TMS9918A (video display processor), 30-32, 147-148 
Interactive Forms Generator, 336ff 
Interplanetary Rescue, 272-275 
Inventory, 18-19, 298ff, 349-350 
Joysticks, 51, 121-123 
Languages, 37-40 

Assembly language, 129ff 

BASIC, 69ff 

LOGO, 95ff 



UCSD Pascal, 67-68 
Let's Learn Notes, 199ff 
Letterhead, 99'er 325 
Life, 136ff 
LOGO, 39-40, 95ff 

and adults, 103-106 

and very young children, 111-112 

history, 97-98 

joysticks, 121-123 

Lamplighter project, 99-102 

list processing, 107-110, 113-115 

problem-solving, 124-128 

program quality, 116-120 

recursion, 107-110, 113-115 

Tower of Hanoi, 125-128 
Machine language, 37 
Magic Crayon, 146ff 
Mapping, 313-317 
Math, 168ff 
Maze Race, 253-255 
Memory 

cassette recorders, 20-23 

Mini Memory Command Cartridge, 154-156, 158-160 

random access files, 350-354 
Mentally handicapped students, 181-185 
Micro Bartender, 289-292 

Mini Memory Command Cartridge, 154-156, 158-160 
Modems, 25. 26-27, 334 
Music, 196-220 

gifted students, 212-214 

Let's Learn Notes, 199ff 

Music File Player, 215-217 

Music Maker Command Cartridge, 212-214, 218-220 

Music Skills Trainer. 196-198. 212-214 

Music Text Editor, 215-217 

Mystery Words, 205ff 

Theory drills. 205ff 
Music Program Generator, 91 
Name and address file, 289ff 
Name That Bone, 176-180 
N-Vader, 276-277 

Operating system (UCSD Pascal), 67-68 

Overland Flow, 318ff 

Papert, Seymour (LOGO), 95ff 

Pascal, see UCSD Pascal 

Payments: The Rule of 78, 293ff 

P-code. 67-68 

Personal Record Keeping Command Cartridge. 76-77. 330-333, 335 
PILOT, 39 

Pocket Tower of Hanoi, 94 
Pocket Typing Trainer, 66 
Power lines, 33 

Preschool Block Letters, 165-167 
Printing 

graphics. 324-325. 326-329 

screen printing. 76-77, 157ff 
Problem-solving (LOGO), 124-128 
Programming, 16-19. 41-44. 52ff. 85ff, 136ff 

Assembly language. 136ff 

flowcharting. 41-44 

games. 48-51. 52ff 

LOGO, 116-120 

problems, 34 

top-down design. 52ff 
Programming Aids II (disk). 85ff 
Programming languages, 37-40 

Assembly languages, 129ff 

BASIC, 69ff 

LOGO. 95ff 

UCSD Pascal. 67-68 
Programs. 16-19. 41-44 

applications. 16-19. 41-44 

ASCII codes, 85ff 

business, 293-297, 298-304, 330-333, 335-342 
checkbook balancing, 17 
Choropeth Mapping, 313-317 
Cbuck-a-Luck , 52-64 
Computer-assisted instruction, 163ff 
Computer gaming, 221ff 
Data communications, 26-27 
Dots to Plots, 326-329 
downloading. 25 
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education, 163ff 

evaluating, 345-348 

games, see Computer gaming 

grapiiics, 78ff, 309-312, 324-325 

Home Secretary, 298ff 

Interactive Forms Generator, 336ff 

inventory, 18-19, 298ff 

LOGO, 95ff 

Magic Crayon, 146ff 

Micro Bartender, 289-292 

Music, 196ff 

Mystery Words, 205ff 

Overland Flow, 318ff 

Pocket Typing Trainer, 66 

Preschool Block Letters, 165-167 

printer graphics, 324-325 

recipe conversion, 17, 289-292 

record keeping, 18-19, 298ff, 330-333 

Rule of 78, 293ff 

saving, 22, 34, 93 

screen dump, 157ff 

sounds, 45-47 

spelling, 65, 306-307 

Spriter, 309-312 

typing, 66. 186-188 

Verbose, 305-308 
Projections, 343-345 
Random access files, 154-156, 350-354 
Recipe conversion, 17, 289-292 
Record keeping, 18-19, 298ff, 330-333 
REM Remover, 88 
Reviews 

Mini Memory Command Cartridge, 154-156 
Music maker Command Cartridge, 218-220 
Music Skills Trainer, 196-198 

ROI analysis, 345-348 

RS232 interface, 25, 26-27, 159, 334 

Rule of 78, 293ff 

San Francisco Tourist, K^-ldl 

Saving programs, 22, 34, 93 

Screen Dump, 161 

Screen graphics, 78ff 

Screen printing, 76-77, 157ff 

SN76489 (sound generation controller), 45-47 

Software evaluation, 345-348 



Sorting, 18 

Sound, 45-47, 218-220 
Source, The, 24-25 
Space Patrol, 278-279 
Space War, 248-252 

Speech Editor Command Cartridge, 13, 305-308 

Speech synthesis, 28-29, 92-93 

Spelling, 65, 306-307 

Spelling Flash, 65 

Spelling Test Game, 306-307 

Sprite Chase, 267-268 

Spriter, 309-312 

Sprites 

animation, 30-32, 309-312 
Assembly language, 140, 146-153 
Chuck-a-Luck, 61-64 
LOGO, 95-128 
Sprite Chase, 267-268 
Spriter, 309-312 
Storage, see Memory 

Terminal Emulator II Command Cartridge, 25, 26-27, 28-29, 334 
Terminology, 15, 38 

Data communications, 26-27 

Speech synthesis, 28-29 

TMS9900 (CPU), 131-135 
TEXNET, 25 
Tex-Thello, 256-259 
Three-Bars, 83 
Timesharing, 24-25 
TMS5200 (speech synthesizer), 28-29 
TMS9900 (CPU), 131-135, 146-147 
TMS9918A (video display processor), 30-32, 147-148 
Top-down design, 52ff 
Tower of Hanoi, 125-128 
Transient voltage surges, 33 
TRS-80 BASIC, 71-72 
Turtles (LOGO), 95-128 
Twinkle, 83 
Typing, 66, 186-188 
Typing for Accuracy, 186-188 
UCSD PASCAL, 39-40, 67-68 
Verbose, 305-308 
Voltage surges, 33 

Wired remote controllers, see Joysticks 
X-mas Tree, 81 
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You've certainly made the right choices so far. First, you d^ecid- 
ed it was time to bring a computer into your home. Next, you 
purchased an excellent machine. Then you selected this book— 
the most comprehensive information resource for that machine. 
Now, you have the chance to put it all together by subscribing 
to a magazine that will ensure you get the most value from your 
purchases— keeping you an active computer user. Don't be one 
of the 8 out of 10 "drop-outs" cited above. Act NOW and 
subscribe TODAY so you don't miss out on a single issue. There 
will never be a better time. 



"After the initial excitement has worn off . . . 

8 out of 10 machines are used less than once a month. 

. . . and 1 year later, they are virtually forgotten!" 

— From a recent home computer industry survey. 

AN URGENT MESSAGE 
FOR Tl USERS 

The reason behind this surprising statistic is quite sim- 
ple. Once the excitement of purchase has worn off, 
home computer owners often find themselves 
overwhelmed — left with a complex machine and little prac- 
tical knowledge or ongoing support. 

TI-99/4A owners, especially, may feel left out of the 
continuing excitement represented by innovations in home 
computer systems and software. Fortunately, there is a 
remedy: a monthly magazine devoted to the interests of 
the TI user. 

Home Computer Magazine (HCM) provides you with 
the latest news, the latest product information, and 
presents the most current programs and tips for getting the 
most out of your TI Home Computer system. 

While books and manuals provide basic, necessary in- 
formation, only a timely, ongoing publication can bring 
continuing excitement and discovery into your home month 
after month. 

In every jam-packed issue of Home Computer Magazine 
you'll find lively, informative articles with dynamic, full- 
color illustrations — articles dealing with education, 
business, and entertainment, as well as professional and 
home applications. Each issue contains extensive tutorials 
and fun-filled learning exercises for beginners, tips and 
"how-to" articles for intermediate-level users, and ad- 
vanced programming techniques that keep the pros com- 
ing back for more — as well as page after page of ready- 
to-run software for everyone. 

To complement its traditional, in-depth coverage of the 
Texas Instruments Home Computer, HCM has now add- 
ed coverage of the Apple, Commodore, and IBM home 
systems — opening up an even wider world for TI owners 
in 3 important ways: 

(1) More software — You'll get first-time-ever 
versions of Apple He, Commodore 64 and IBM 
PCjr programs translated to run on your 
TI-99/4A. 

(2) More products — Third-party producers for the 
Apple, IBM, and Commodore machines will now 
present their Tl-compatible products exclusively 
in the pages of HCM. 

(3) More information — Our coverage of these 
larger systems will increase your knowledge and 
prepare you to make intelligent choices if you 
should purchase a second system at a later date — 
making all of your back issues that much more 
valuable for reference use. 

From the People Who Know The Home Computer Best^ 

HOME COMPUTER 
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A Giant Home Computer Compendium 
for the Texas Instruments 99/4A — 
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The largest, most comprehensive collection of programs 
and articles ever assembled for the Tl Home Computer 



• Over 200 thoroughly tested key-in-and-RUN 
programs and sub-programs typeset in a grid 
format for maximum clarity. 

• Programming instruction in 4 languages — 
learn to use BASIC, Extended BASIC, LOGO 
and Assembly Language— for everything 
from record keeping and money management 
to arcade-quality action games. 



• A selection of sensational game software 
featuring full-color graphics, animation, 
and sound effects. 

• Beyond the owner's manual — tips and 
techniques for getting the most out of 
your computer system. 

• Computer-Assisted Instruction — The home 
computer becomes your private tutor. 
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Page after page of innovative applications — transforming 
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